Commit f97eee51 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(popup-menu): Bind cmd with let.

parent d95ebf76
......@@ -135,7 +135,7 @@ 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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment