Mercurial > emacs
changeset 16621:042bf1d82a14
(mouse-major-mode-menu): Propagate prefix arg
to the command that is run.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 07 Dec 1996 20:32:35 +0000 |
| parents | c3a095290ec4 |
| children | 9811f1144bbf |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Sat Dec 07 20:31:38 1996 +0000 +++ b/lisp/mouse.el Sat Dec 07 20:32:35 1996 +0000 @@ -42,11 +42,11 @@ ;; Provide a mode-specific menu on a mouse button. -(defun mouse-major-mode-menu (event) +(defun mouse-major-mode-menu (event prefix) "Pop up a mode-specific menu of mouse commands." ;; Switch to the window clicked on, because otherwise ;; the mode's commands may not make sense. - (interactive "@e") + (interactive "@e\nP") (let (;; This is where mouse-major-mode-menu-prefix ;; returns the prefix we should use (after menu-bar). ;; It is either nil or (SOME-SYMBOL). @@ -66,8 +66,12 @@ (apply 'vector (append '(menu-bar) mouse-major-mode-menu-prefix result))))) + ;; Clear out echoing, which perhaps shows a prefix arg. + (message "") (if command - (command-execute command)))))) + (progn + (setq prefix-arg prefix) + (command-execute command))))))) ;; Compute and cache the equivalent keys in MENU and all its submenus. ;;;(defun mouse-major-mode-menu-compute-equiv-keys (menu)