From 61fd8d32f4ed8b21af6d23205c44e48ae0245597 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 23 Oct 2001 16:24:40 +0000 Subject: [PATCH] (Info-fontify-node): Bind doun-mouse-{1,2} instead of mouse-{1,2} since dragging is on the down event. --- lisp/ChangeLog | 3 +++ lisp/info.el | 4 ++-- 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 + * 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)) -- 2.39.5