Mercurial > emacs
diff lisp/info.el @ 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 | 0597a7bc10a2 |
| children | 4126b1d76d8f |
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))