From 472d38201d69d82ad5ccce99c7d4a074701e7b1b Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 3 Jun 2003 20:56:59 +0000 Subject: (info-fontify-node): Use better help-echo text. --- lisp/info.el | 35 +++++++++++++++++++++-------------- 1 file changed, 21 insertions(+), 14 deletions(-) (limited to 'lisp') diff --git a/lisp/info.el b/lisp/info.el index 6deb7ca70c..caf4559b6a 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -2866,20 +2866,22 @@ the variable `Info-file-list-for-emacs'." (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 @@ the variable `Info-file-list-for-emacs'." (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) -- cgit v1.2.3