From 24f6a9876516f8b3dd6fcaaf4b1dfb9f78c92121 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 8 Mar 2002 09:39:16 +0000 Subject: [PATCH] (Info-fontify-node): Bind up-clicks, not down-clicks. Put the mouse-face on the entire xref, like the local keymap. --- lisp/info.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.39.2