Mercurial > emacs

changeset 51436:84e38964119a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(info-fontify-node): Use better help-echo text.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 03 Jun 2003 20:56:59 +0000
parents 13588bcc615a
children 63b62b12e01c
files lisp/info.el
diffstat 1 files changed, 21 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Tue Jun 03 20:28:21 2003 +0000
+++ b/lisp/info.el	Tue Jun 03 20:56:59 2003 +0000
@@ -2866,20 +2866,22 @@
 		(skip-syntax-backward " ")
 		(setq other-tag
 		      (cond
-		       ((or (<= (point) (point-min))
-			    (memq (char-after (1- (point))) '( ?\. ?! )))
-			"See ")
-		       ((memq (char-after (1- (point))) '( ?\( ?\[ ?\{ ?\, ?\; ?\: ))
-			"see ")
-		       (t nil)))
+		       ((memq (char-before) '(nil ?\. ?! ))
+			"See "
+		       ((memq (char-before) '( ?\( ?\[ ?\{ ?\, ?\; ?\: ))
+			"see ")))
 		(goto-char next))
 	      (if hide-tag
 		  (add-text-properties (match-beginning 1) (match-end 1)
 				       '(invisible t)))
-	      (add-text-properties (match-beginning 2) (match-end 2)
-				   '(font-lock-face info-xref
-						    mouse-face highlight
-						    help-echo "mouse-2: go to this node"))
+	      (add-text-properties
+	       (match-beginning 2) (match-end 2)
+	       (cons 'help-echo
+		     (cons (if (match-end 4)
+			       (concat "mouse-2: go to " (match-string 4))
+			     "mouse-2: go to this node")
+			   '(font-lock-face info-xref
+			     mouse-face highlight))))
 	      (when (eq Info-hide-note-references t)
 		(add-text-properties (match-beginning 3) (match-end 3)
 				     '(invisible t)))
@@ -2915,10 +2917,15 @@
 		  (put-text-property (match-beginning 0)
 				     (1+ (match-beginning 0))
 				     'font-lock-face 'info-menu-5))
-	      (add-text-properties (match-beginning 1) (match-end 1)
-				   '(font-lock-face info-xref
-				     mouse-face highlight
-				     help-echo "mouse-2: go to this node"))
+	      (add-text-properties
+	       (match-beginning 1) (match-end 1)
+	       (cons 'help-echo
+		     (cons
+		      (if (match-end 3)
+			  (concat "mouse-2: go to " (match-string 3))
+			"mouse-2: go to this node")
+		      '(font-lock-face info-xref
+			mouse-face highlight))))
 	      (when (eq Info-hide-note-references t)
 		(put-text-property (match-beginning 2) (match-beginning 4)
 				   'invisible t)