[Emacs-diffs] Changes to emacs/lisp/info.el

[Stefan Monnier]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.348 emacs/lisp/info.el:1.349
*** emacs/lisp/info.el:1.348    Tue Jun  3 16:28:21 2003
--- emacs/lisp/info.el  Tue Jun  3 16:56:59 2003
***************
*** 2866,2885 ****
                (skip-syntax-backward " ")
                (setq other-tag
                      (cond
!                      ((or (<= (point) (point-min))
!                           (memq (char-after (1- (point))) '( ?\. ?! )))
!                       "See ")
!                      ((memq (char-after (1- (point))) '( ?\( ?\[ ?\{ ?\, ?\; 
?\: ))
!                       "see ")
!                      (t nil)))
                (goto-char next))
              (if hide-tag
                  (add-text-properties (match-beginning 1) (match-end 1)
                                       '(invisible t)))
!             (add-text-properties (match-beginning 2) (match-end 2)
!                                  '(font-lock-face info-xref
!                                                   mouse-face highlight
!                                                   help-echo "mouse-2: go to 
this node"))
              (when (eq Info-hide-note-references t)
                (add-text-properties (match-beginning 3) (match-end 3)
                                     '(invisible t)))
--- 2866,2887 ----
                (skip-syntax-backward " ")
                (setq other-tag
                      (cond
!                      ((memq (char-before) '(nil ?\. ?! ))
!                       "See "
!                      ((memq (char-before) '( ?\( ?\[ ?\{ ?\, ?\; ?\: ))
!                       "see ")))
                (goto-char next))
              (if hide-tag
                  (add-text-properties (match-beginning 1) (match-end 1)
                                       '(invisible t)))
!             (add-text-properties
!              (match-beginning 2) (match-end 2)
!              (cons 'help-echo
!                    (cons (if (match-end 4)
!                              (concat "mouse-2: go to " (match-string 4))
!                            "mouse-2: go to this node")
!                          '(font-lock-face info-xref
!                            mouse-face highlight))))
              (when (eq Info-hide-note-references t)
                (add-text-properties (match-beginning 3) (match-end 3)
                                     '(invisible t)))
***************
*** 2915,2924 ****
                  (put-text-property (match-beginning 0)
                                     (1+ (match-beginning 0))
                                     'font-lock-face 'info-menu-5))
!             (add-text-properties (match-beginning 1) (match-end 1)
!                                  '(font-lock-face info-xref
!                                    mouse-face highlight
!                                    help-echo "mouse-2: go to this node"))
              (when (eq Info-hide-note-references t)
                (put-text-property (match-beginning 2) (match-beginning 4)
                                   'invisible t)
--- 2917,2931 ----
                  (put-text-property (match-beginning 0)
                                     (1+ (match-beginning 0))
                                     'font-lock-face 'info-menu-5))
!             (add-text-properties
!              (match-beginning 1) (match-end 1)
!              (cons 'help-echo
!                    (cons
!                     (if (match-end 3)
!                         (concat "mouse-2: go to " (match-string 3))
!                       "mouse-2: go to this node")
!                     '(font-lock-face info-xref
!                       mouse-face highlight))))
              (when (eq Info-hide-note-references t)
                (put-text-property (match-beginning 2) (match-beginning 4)
                                   'invisible t)