# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1015580356 0
# Node ID 5de6df44f85fb4736c52851714a385d83caea097
# Parent  8d961db288935aa9da808a55d4ba50be33fb4465
(Info-fontify-node): Bind up-clicks, not down-clicks.
Put the mouse-face on the entire xref, like the local keymap.

diff -r 8d961db28893 -r 5de6df44f85f lisp/info.el
--- 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