(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 9ce5bb7ea4447d3de51dee80d64c4e8e56858e83..7e0dad009230bedd98eca159b0abd6f596a37255 100644 (file)
--- 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