Mercurial > emacs

changeset 51623:48bd8b78e37b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-fontify-node): Improve calculation of other-tag.
author Andreas Schwab <schwab@suse.de>
date Thu, 19 Jun 2003 20:53:06 +0000
parents c85b00553f5e
children 817261348e50
files lisp/info.el
diffstat 1 files changed, 13 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Thu Jun 19 16:12:21 2003 +0000
+++ b/lisp/info.el	Thu Jun 19 20:53:06 2003 +0000
@@ -2872,13 +2872,19 @@
 		(goto-char start)
 		(skip-syntax-backward " ")
 		(setq other-tag
-		      (cond
-		       ((<= (point) (point-min))
-			"See ")
-		       ((memq (char-before) '(nil ?\. ?! ))
-			"See ")
-		       ((memq (char-before) '( ?\( ?\[ ?\{ ?\, ?\; ?\: ))
-			"see ")))
+		      (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))
 	      (if hide-tag
 		  (add-text-properties (match-beginning 1) (match-end 1)