From: Gerd Moellmann Date: Tue, 23 Oct 2001 16:26:09 +0000 (+0000) Subject: (Info-fontify-node): Bind doun-mouse-{1,2} instead X-Git-Tag: emacs-21.2~482 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16dd4ab444c0adb07911e2bad69d20044f30ff23;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 ac3f64d7801..e9852348def 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2001-10-23 Gerd Moellmann + * 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 c6fe420a1eb..1f9644de80b 100644 --- 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))