Mercurial > emacs

comparison lisp/emacs-lisp/lmenu.el @ 7655:9134274acb76

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(popup-menu): Bind cmd with let.
author Richard M. Stallman <rms@gnu.org>
date Mon, 23 May 1994 07:39:08 +0000
parents 2db2ad2025c4
children d50e5481aae2
comparison
equal deleted inserted replaced
7654:926bfbeb7846 7655:9134274acb76
133 menu-item := '[' name callback active-p [ argument ] ']' 133 menu-item := '[' name callback active-p [ argument ] ']'
134 menu := '(' name [ menu-item | menu | text ]+ ')' 134 menu := '(' name [ menu-item | menu | text ]+ ')'
135 " 135 "
136 (let ((menu (make-lucid-menu-keymap (car menu-desc) (cdr menu-desc))) 136 (let ((menu (make-lucid-menu-keymap (car menu-desc) (cdr menu-desc)))
137 (pos (mouse-pixel-position)) 137 (pos (mouse-pixel-position))
138 answer) 138 answer cmd)
139 (while menu 139 (while menu
140 (setq answer (x-popup-menu (list (list (nth 1 pos) (nthcdr 2 pos)) 140 (setq answer (x-popup-menu (list (list (nth 1 pos) (nthcdr 2 pos))
141 (car pos)) 141 (car pos))
142 menu)) 142 menu))
143 (setq cmd (lookup-key menu (vector answer))) 143 (setq cmd (lookup-key menu (vector answer)))