# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1130344716 0
# Node ID bdc911746f648c979c2036fa89e63f17dcf411e4
# Parent  f2be1560adf252585e3c1d79371f4ffbae9c0c48
(Info-fontify-node): Fix detection of sentence-break before *Note.

diff -r f2be1560adf2 -r bdc911746f64 lisp/info.el
--- a/lisp/info.el	Wed Oct 26 08:38:07 2005 +0000
+++ b/lisp/info.el	Wed Oct 26 16:38:36 2005 +0000
@@ -3736,20 +3736,18 @@
                   ;; *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 ")
-                              ((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 "))))
+			      ((save-match-data
+				 (save-excursion
+				   (search-forward "\n\n" start t)))
+			       "See ")
+			      (t "see "))))
                 (goto-char next)
                 (add-text-properties
                  (match-beginning 1)