diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2006-05-02 19:27:09 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2006-05-02 19:27:09 +0000 |
| commit | 72fa72acd8e9de3912fcf869cd9a09d3e63f4a2e (patch) | |
| tree | 5246ab7e7d8be47011419066381826384503ad81 /lisp/msb.el | |
| parent | 4f308f7304c763b5a4b581716515e9a6ce9cec33 (diff) | |
| download | emacs-72fa72acd8e9de3912fcf869cd9a09d3e63f4a2e.tar.gz | |
* msb.el (msb): If EVENT is a down event, read and discard the up
event.
Diffstat (limited to 'lisp/msb.el')
| -rw-r--r-- | lisp/msb.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/msb.el b/lisp/msb.el index 95cbfc85df4..61ddce5dae0 100644 --- a/lisp/msb.el +++ b/lisp/msb.el @@ -473,6 +473,11 @@ selects that window. 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)) |