diff options
| author | Richard M. Stallman <[email protected]> | 2002-03-08 09:39:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2002-03-08 09:39:16 +0000 |
| commit | 24f6a9876516f8b3dd6fcaaf4b1dfb9f78c92121 (patch) | |
| tree | 66f470b5bb7c99aa76c0181bf57b7e8499d994b6 /lisp/info.el | |
| parent | ff39e69ccd6fd617b14b05a60c2c98b6b3784b12 (diff) | |
(Info-fontify-node): Bind up-clicks, not down-clicks.
Put the mouse-face on the entire xref, like the local keymap.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/info.el b/lisp/info.el index 9ce5bb7ea4..7e0dad0092 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -2603,7 +2603,7 @@ the variable `Info-file-list-for-emacs'." (if (string-equal tag "Node") (put-text-property nbeg nend 'face 'info-header-node) (put-text-property nbeg nend 'face 'info-header-xref) - (put-text-property nbeg nend 'mouse-face 'highlight) + (put-text-property tbeg nend 'mouse-face 'highlight) (put-text-property tbeg nend 'help-echo (concat "Go to node " @@ -2616,8 +2616,8 @@ the variable `Info-file-list-for-emacs'." ("Up" . Info-up)))))) (when fun (let ((keymap (make-sparse-keymap))) - (define-key keymap [header-line down-mouse-1] fun) - (define-key keymap [header-line down-mouse-2] fun) + (define-key keymap [header-line mouse-1] fun) + (define-key keymap [header-line mouse-2] fun) (put-text-property tbeg nend 'local-map keymap))))) (if (not Info-use-header-line) ;; In case they switched Info-use-header-line off |