From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 7 Dec 1996 20:32:35 +0000 (+0000)
Subject: (mouse-major-mode-menu): Propagate prefix arg
X-Git-Tag: emacs-20.1~3323
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a16c4cb00e22e3b75569ce09acc4aa2da536d56;p=emacs.git

(mouse-major-mode-menu): Propagate prefix arg
to the command that is run.
---

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)