Mercurial > emacs
changeset 43776:5de6df44f85f
(Info-fontify-node): Bind up-clicks, not down-clicks.
Put the mouse-face on the entire xref, like the local keymap.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 08 Mar 2002 09:39:16 +0000 |
| parents | 8d961db28893 |
| children | c62ae85e0f7b |
| files | lisp/info.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Fri Mar 08 09:35:44 2002 +0000 +++ b/lisp/info.el Fri Mar 08 09:39:16 2002 +0000 @@ -2603,7 +2603,7 @@ (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 @@ ("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