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: ...@@ -135,7 +135,7 @@ The syntax, more precisely:
" "
(let ((menu (make-lucid-menu-keymap (car menu-desc) (cdr menu-desc))) (let ((menu (make-lucid-menu-keymap (car menu-desc) (cdr menu-desc)))
(pos (mouse-pixel-position)) (pos (mouse-pixel-position))
answer) answer cmd)
(while menu (while menu
(setq answer (x-popup-menu (list (list (nth 1 pos) (nthcdr 2 pos)) (setq answer (x-popup-menu (list (list (nth 1 pos) (nthcdr 2 pos))
(car 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