mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-09 09:16:02 -08:00
Code Issues Projects Releases Wiki Activity

(popup-menu): If the user refuses to select

Browse source 
from a menu, don't try to invoke the menu.
This commit is contained in:
Richard M. Stallman 2001-11-02 07:14:16 +00:00
parent 8faef085c5
commit 324cd97212
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mouse.el
View file

@ -90,7 +90,9 @@ PREFIX is the prefix argument (if any) to pass to the command."
(message "")
;; Maybe try again but with the submap.
(setq map (if (keymapp cmd) cmd)))
(when (functionp cmd)
;; If the user did not cancel by refusing to select,
;; and if the result is a command, run it.
(when (and (null map) (commandp cmd))
(setq prefix-arg prefix)
;; `setup-specified-language-environment', for instance,
;; expects this to be set from a menu keymap.