changeset 66670:d5afffbc0c96

(Info-fontify-node): Don't display extra "see" if there already is one here.
author Richard M. Stallman <rms@gnu.org>
date Thu, 03 Nov 2005 21:38:35 +0000
parents 550c8e306cb5
children be6d79a520af
files lisp/info.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Thu Nov 03 21:37:21 2005 +0000
+++ b/lisp/info.el	Thu Nov 03 21:38:35 2005 +0000
@@ -3757,7 +3757,9 @@
 		    ;; an end of sentence
 		    (skip-syntax-backward " ("))
                   (setq other-tag
-                        (cond ((memq (char-before) '(nil ?\. ?! ??))
+			(cond ((save-match-data (looking-back "\\<see"))
+			       "")
+			      ((memq (char-before) '(nil ?\. ?! ??))
                                "See ")
 			      ((save-match-data
 				 (save-excursion