(popup-menu): Bind cmd with let.

f97eee51 · Richard M. Stallman · d95ebf76 · f97eee51
Commit f97eee51 authored May 23, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/emacs-lisp/lmenu.el lisp/emacs-lisp/lmenu.el +1 -1

No files found.
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -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)
+	answer cmd)
    (while menu
      (setq answer (x-popup-menu (list (list (nth 1 pos) (nthcdr 2 pos))
 				       (car pos))