From: Richard M. Stallman Date: Fri, 8 Mar 2002 09:39:16 +0000 (+0000) Subject: (Info-fontify-node): Bind up-clicks, not down-clicks. X-Git-Tag: ttn-vms-21-2-B4~16281 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=24f6a9876516f8b3dd6fcaaf4b1dfb9f78c92121;p=emacs.git (Info-fontify-node): Bind up-clicks, not down-clicks. Put the mouse-face on the entire xref, like the local keymap. --- diff --git a/lisp/info.el b/lisp/info.el index 9ce5bb7ea44..7e0dad00923 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