(popup-menu): Convert list to same-size vector, not singleton vector.

This commit is contained in:
Karl Heuer 1994-06-23 23:58:16 +00:00
parent fbf8f564cf
commit c6dd34cba2

View file

@ -139,7 +139,7 @@ The syntax, more precisely:
(setq answer (x-popup-menu (list (list (nth 1 pos) (nthcdr 2 pos))
(car pos))
menu))
(setq cmd (lookup-key menu (vector answer)))
(setq cmd (lookup-key menu (apply 'vector answer)))
(setq menu nil)
(and cmd
(if (keymapp cmd)