(Info-fontify-node): Fix detection of sentence-break before *Note.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3f35fff8a33a549d689db6f42138e9b71d2adad0..1aec594adbe87e37b13d3535c998033f5e9c0ef6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,11 @@
+2005-10-26  Richard M. Stallman  <rms@gnu.org>
+
+       * info.el (Info-fontify-node): Fix detection of sentence-break
+       before *Note.
+
 2005-10-26  Romain Francoise  <romain@orebokech.com>
 
-       * smerge-mode.el: Add 'tools' to file keywords.
+       * smerge-mode.el: Add `tools' to file keywords.
 
 2005-10-26  Nick Roberts  <nickrob@snap.net.nz>
 

diff --git a/lisp/info.el b/lisp/info.el
index c94e4121dc8a105ea3f06247cce14d7e30459936..ec74160188add28c861c9d6f99983082fab2c822 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3736,20 +3736,18 @@ the variable `Info-file-list-for-emacs'."
                   ;; *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)