(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 ac3f64d7801bc5948937a54345cbdba5026f4dd3..e9852348def6cd9448ef5610b1f5061f2eaf74ac 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 c6fe420a1eb82b089c2bb9d6276320dd797a2832..1f9644de80b7bfca97c8e231019c5868cab32089 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2578,8 +2578,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))