# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1056055986 0
# Node ID 48bd8b78e37bacb8a76bf1414a1d36fdec0e1056
# Parent  c85b00553f5e7ea26714b02400b91ab5c21c5de9
(Info-fontify-node): Improve calculation of other-tag.

diff -r c85b00553f5e -r 48bd8b78e37b lisp/info.el
--- 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)