mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases Activity

(Info-fontify-node): Bind doun-mouse-{1,2} instead

Browse Source 
of mouse-{1,2} since dragging is on the down event.
This commit is contained in:
Gerd Moellmann 2001-10-23 16:24:40 +00:00
parent c51488cde5
commit 61fd8d32f4
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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

4
lisp/info.el
View File

@ -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))