From 6a16c4cb00e22e3b75569ce09acc4aa2da536d56 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 7 Dec 1996 20:32:35 +0000 Subject: [PATCH] (mouse-major-mode-menu): Propagate prefix arg to the command that is run. --- lisp/mouse.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index 0981533d038..c96a2aaca54 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -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) -- 2.39.5