changeset 40220:ac7e8ad8b1d6

(Info-fontify-node): Bind doun-mouse-{1,2} instead of mouse-{1,2} since dragging is on the down event.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 23 Oct 2001 16:24:16 +0000
parents 0e50d546f7cd
children 457769fbbd03
files lisp/info.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Tue Oct 23 16:16:06 2001 +0000
+++ b/lisp/info.el	Tue Oct 23 16:24:16 2001 +0000
@@ -2583,8 +2583,8 @@
 					     ("Up" . Info-up))))))
 		  (when fun
 		    (let ((keymap (make-sparse-keymap)))
-		      (define-key keymap [header-line mouse-1] fun)
-		      (define-key keymap [header-line mouse-2] fun)
+		      (define-key keymap [header-line down-mouse-1] fun)
+		      (define-key keymap [header-line down-mouse-2] fun)
 		      (put-text-property tbeg nend 'local-map keymap))))
 		))))
 	(goto-char (point-min))