[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100547: Handle deferred `event-ki
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100547: Handle deferred `event-kind' property when using unread-command-events. |
Date: |
Sat, 09 Apr 2011 22:10:52 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 100547
committer: Chong Yidong <address@hidden>
branch nick: emacs-23
timestamp: Sat 2011-04-09 22:10:52 -0400
message:
Handle deferred `event-kind' property when using unread-command-events.
* src/mouse.el (mouse-drag-mode-line-1): Make sure that if we push
mouse-2 into unread-command-events, it is interpreted correctly.
modified:
lisp/ChangeLog
lisp/mouse.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-04-09 20:29:22 +0000
+++ b/lisp/ChangeLog 2011-04-10 02:10:52 +0000
@@ -1,3 +1,8 @@
+2011-04-10 Chong Yidong <address@hidden>
+
+ * mouse.el (mouse-drag-mode-line-1): Make sure that if we push
+ mouse-2 into unread-command-events, it is interpreted correctly.
+
2011-04-09 Chong Yidong <address@hidden>
* image-mode.el (image-type, image-mode-map, image-minor-mode-map)
=== modified file 'lisp/mouse.el'
--- a/lisp/mouse.el 2011-01-28 17:18:54 +0000
+++ b/lisp/mouse.el 2011-04-10 02:10:52 +0000
@@ -538,6 +538,9 @@
;; a `drag-mouse-1'. In any case `on-link' would have been nulled
;; above if there had been any significant mouse movement.
(when (and on-link (eq 'mouse-1 (car-safe event)))
+ ;; If mouse-2 has never been done by the user, it doesn't
+ ;; have the necessary property to be interpreted correctly.
+ (put 'mouse-2 'event-kind 'mouse-click)
(push (cons 'mouse-2 (cdr event)) unread-command-events))))))
(defun mouse-drag-mode-line (start-event)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-23 r100547: Handle deferred `event-kind' property when using unread-command-events.,
Chong Yidong <=