From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 23 Oct 2001 16:24:40 +0000 (+0000)
Subject: (Info-fontify-node): Bind doun-mouse-{1,2} instead
X-Git-Tag: ttn-vms-21-2-B4~19226
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61fd8d32f4ed8b21af6d23205c44e48ae0245597;p=emacs.git

(Info-fontify-node): Bind doun-mouse-{1,2} instead
of mouse-{1,2} since dragging is on the down event.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c477f6bc72e..5c67ee080bf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-10-23  Gerd Moellmann  <gerd@gnu.org>
 
+	* info.el (Info-fontify-node): Bind doun-mouse-{1,2} instead
+	of mouse-{1,2} since dragging is on the down event.
+
 	* play/doctor.el (make-doctor-variables): Remove a '($ please)'.
 
 	* mail/mh-utils.el (mh-recenter): Call `recenter' with arg t
diff --git a/lisp/info.el b/lisp/info.el
index c5792482b79..38c077a5417 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2583,8 +2583,8 @@ the variable `Info-file-list-for-emacs'."
 					     ("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))