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