Mercurial > emacs
diff lisp/msb.el @ 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 | 3bd95f4f2941 |
children | 947a5b1dd3b6 146cd8369025 |
line wrap: on
line diff
--- 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))