mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(popup-menu): Allow user to select nothing.

Browse source
This commit is contained in:
Karl Heuer 1994-06-25 01:42:43 +00:00
parent d196a64d03
commit 9f04f0237a
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/lmenu.el
View file

@ -135,10 +135,11 @@ The syntax, more precisely:
(let ((menu (make-lucid-menu-keymap (car menu-desc) (cdr menu-desc)))
(pos (mouse-pixel-position))
answer cmd)
(while menu
(setq answer (x-popup-menu (list (list (nth 1 pos) (nthcdr 2 pos))
(car pos))
menu))
(while (and menu
(setq answer (x-popup-menu (list (list (nth 1 pos)
(nthcdr 2 pos))
(car pos))
menu)))
(setq cmd (lookup-key menu (apply 'vector answer)))
(setq menu nil)
(and cmd