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