Mercurial > emacs
changeset 40220:ac7e8ad8b1d6
(Info-fontify-node): Bind doun-mouse-{1,2} instead
of mouse-{1,2} since dragging is on the down event.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 23 Oct 2001 16:24:16 +0000 |
| parents | 0e50d546f7cd |
| children | 457769fbbd03 |
| files | lisp/info.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Tue Oct 23 16:16:06 2001 +0000 +++ b/lisp/info.el Tue Oct 23 16:24:16 2001 +0000 @@ -2583,8 +2583,8 @@ ("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))