diff options
| author | Dave Love <fx@gnu.org> | 2000-07-24 17:58:32 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-07-24 17:58:32 +0000 |
| commit | bcd010a058be28d339a26e91d3ef349723952681 (patch) | |
| tree | 5e5a0a558d6d224feb7fe9282bf5effd64b9b843 /lisp/mouse.el | |
| parent | fbe0a9585f580a805d4544811141c9b5f3eb72bb (diff) | |
| download | emacs-bcd010a058be28d339a26e91d3ef349723952681.tar.gz | |
(popup-menu): Set last-command-event.
(mouse-major-mode-menu-prefix): Declare.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 7 |
1 files changed, 6 insertions, 1 deletions
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." |