From bcd010a058be28d339a26e91d3ef349723952681 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 24 Jul 2000 17:58:32 +0000 Subject: [PATCH] (popup-menu): Set last-command-event. (mouse-major-mode-menu-prefix): Declare. --- lisp/mouse.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index ef78aff5a7c..019ea21e52e 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -88,9 +88,14 @@ PREFIX is the prefix argument (if any) to pass to the command." ;; Try again but with the submap. (setq map cmd) (setq prefix-arg prefix) + ;; `setup-specified-language-environment', for instance, + ;; expects this to be set from a menu keymap. + (setq last-command-event (car (last event))) ;; mouse-major-mode-menu was using `command-execute' instead. (call-interactively cmd))))))) - + +(defvar mouse-major-mode-menu-prefix) ; dynamically bound + (defun mouse-major-mode-menu (event prefix) "Pop up a mode-specific menu of mouse commands. Default to the Edit menu if the major mode doesn't define a menu." -- 2.39.2