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

[Richard M . Stallman]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.453 emacs/lisp/info.el:1.454
*** emacs/lisp/info.el:1.453    Fri Oct 21 08:49:46 2005
--- emacs/lisp/info.el  Wed Oct 26 16:38:36 2005
***************
*** 3736,3755 ****
                    ;; *Note is often used where *note should have been
                    (goto-char start)
                    (skip-syntax-backward " ")
                    (setq other-tag
                          (cond ((memq (char-before) '(nil ?\. ?! ??))
                                 "See ")
!                               ((memq (char-before) '(?\, ?\; ?\: ?-))
!                                "see ")
!                               ((memq (char-before) '(?\( ?\[ ?\{))
!                                ;; Check whether the paren is preceded by
!                                ;; an end of sentence
!                                (skip-syntax-backward " (")
!                                (if (memq (char-before) '(nil ?\. ?! ??))
!                                    "See "
!                                  "see "))
!                               ((save-match-data (looking-at "\n\n"))
!                                "See "))))
                  (goto-char next)
                  (add-text-properties
                   (match-beginning 1)
--- 3736,3753 ----
                    ;; *Note is often used where *note should have been
                    (goto-char start)
                    (skip-syntax-backward " ")
+                 (when (memq (char-before) '(?\( ?\[ ?\{))
+                   ;; Check whether the paren is preceded by
+                   ;; an end of sentence
+                   (skip-syntax-backward " ("))
                    (setq other-tag
                          (cond ((memq (char-before) '(nil ?\. ?! ??))
                                 "See ")
!                             ((save-match-data
!                                (save-excursion
!                                  (search-forward "\n\n" start t)))
!                              "See ")
!                             (t "see "))))
                  (goto-char next)
                  (add-text-properties
                   (match-beginning 1)