mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(popup-menu): Set last-command-event.

Browse source 
(mouse-major-mode-menu-prefix): Declare.
This commit is contained in:
Dave Love 2000-07-24 17:58:32 +00:00
parent fbe0a9585f
commit bcd010a058
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/mouse.el
View file

@ -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."