diff options
| author | Stefan Monnier <[email protected]> | 2003-06-03 20:56:59 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2003-06-03 20:56:59 +0000 |
| commit | 472d38201d69d82ad5ccce99c7d4a074701e7b1b (patch) | |
| tree | f3deb826e1098573cda14a20c02ba7e08ae9b13d /lisp/info.el | |
| parent | 0c3aa29ef824c7ffabc7e3e1cbd04e29644753f2 (diff) | |
(info-fontify-node): Use better help-echo text.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 35 |
1 files changed, 21 insertions, 14 deletions
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) |