Mercurial > emacs
changeset 70346:9d91fdaea39d
* msb.el (msb): If EVENT is a down event, read and discard the up
event.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 02 May 2006 19:27:09 +0000 |
| parents | bddeadaa4365 |
| children | 28c35ae1bb02 |
| files | lisp/ChangeLog lisp/msb.el |
| diffstat | 2 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue May 02 12:32:57 2006 +0000 +++ b/lisp/ChangeLog Tue May 02 19:27:09 2006 +0000 @@ -1,3 +1,8 @@ +2006-05-02 Chong Yidong <cyd@mit.edu> + + * msb.el (msb): If EVENT is a down event, read and discard the up + event. + 2006-05-02 Reiner Steib <Reiner.Steib@gmx.de> * startup.el (command-line-1): Refer to Lisp manual when
--- a/lisp/msb.el Tue May 02 12:32:57 2006 +0000 +++ b/lisp/msb.el Tue May 02 19:27:09 2006 +0000 @@ -473,6 +473,11 @@ See the function `mouse-select-buffer' and the variable `msb-menu-cond' for more information about how the menus are split." (interactive "e") + ;; If EVENT is a down-event, read and discard the + ;; corresponding up-event. + (and (eventp event) + (memq 'down (event-modifiers event)) + (read-event)) (let ((old-window (selected-window)) (window (posn-window (event-start event)))) (unless (framep window) (select-window window))