(mouse-select-buffer): Do sit-for before x-popup-menu.

1 files changed, 12 insertions, 4 deletions

diff --git a/lisp/msb.el b/lisp/msb.el
index a28ede10d84..1d7657b3e47 100644
--- a/lisp/msb.el
+++ b/lisp/msb.el
@@ -28,10 +28,14 @@
 ;;   2. Make a better mouse-buffer-menu.
 ;;
 ;; Installation:
-;;   (require 'msb)
-;;   Note! You now use msb instead of mouse-buffer-menu.
-;;
-;;   Now try the menu bar Buffers menu.
+
+;;   1. Byte compile msb first.  It uses things in the cl package that
+;;      are slow if not compiled, but blazingly fast when compiled.  I
+;;      have also had one report that said that msb malfunctioned when
+;;      not compiled.
+;;   2. (require 'msb)
+;;      Note! You now use msb instead of mouse-buffer-menu.
+;;   3. Now try the menu bar Buffers menu.
 ;;
 ;; Customization:
 ;;   Look at the variable `msb-menu-cond' for deciding what menus you
@@ -835,6 +839,10 @@ variable `msb-menu-cond'."
         ;; adjust position
         (setq posX (- posX (funcall msb-horizontal-shift-function))
               position (list (list posX posY) posWind))))
+    ;; This `sit-for' magically makes the menu stay up if the mouse
+    ;; button is released withing 0.1 second.
+    (sit-for 0 100)
+    ;; Popup the menu
     (setq choice (x-popup-menu position msb--last-buffer-menu))
     (cond
      ((eq (car choice) 'toggle)