Mercurial > emacs
changeset 10823:abd2a268ed88
(mouse-select-buffer): Do sit-for before x-popup-menu.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 24 Feb 1995 21:26:05 +0000 |
| parents | 1ec15b8745a2 |
| children | 894369e950f5 |
| files | lisp/msb.el |
| diffstat | 1 files changed, 12 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/msb.el Fri Feb 24 18:49:48 1995 +0000 +++ b/lisp/msb.el Fri Feb 24 21:26:05 1995 +0000 @@ -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 @@ ;; 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)