Mercurial > emacs

comparison lisp/emacs-lisp/lmenu.el @ 8038:bffab6b07862

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(popup-menu): Convert list to same-size vector, not singleton vector.
author Karl Heuer <kwzh@gnu.org>
date Thu, 23 Jun 1994 23:58:16 +0000
parents 2b0419458768
children a320525f4d8f
comparison
equal deleted inserted replaced
8037:fd5fb80a940d 8038:bffab6b07862
137 answer cmd) 137 answer cmd)
138 (while menu 138 (while menu
139 (setq answer (x-popup-menu (list (list (nth 1 pos) (nthcdr 2 pos)) 139 (setq answer (x-popup-menu (list (list (nth 1 pos) (nthcdr 2 pos))
140 (car pos)) 140 (car pos))
141 menu)) 141 menu))
142 (setq cmd (lookup-key menu (vector answer))) 142 (setq cmd (lookup-key menu (apply 'vector answer)))
143 (setq menu nil) 143 (setq menu nil)
144 (and cmd 144 (and cmd
145 (if (keymapp cmd) 145 (if (keymapp cmd)
146 (setq menu cmd) 146 (setq menu cmd)
147 (call-interactively cmd)))))) 147 (call-interactively cmd))))))