(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 c477f6bc72e4a85fc517df8a771bd178b8b947dc..5c67ee080bf8bb09e74a95231802a8cfd37beff1 100644 (file)
--- 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 c5792482b7947d4e11fca82e5ec18fe28b60da65..38c077a54178a846e122c44956a2dd4de472e2b8 100644 (file)
--- 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))