(Info-fontify-node): Bind doun-mouse-{1,2} instead

of mouse-{1,2} since dragging is on the down event.

2 files changed, 5 insertions, 2 deletions

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))