(popup-menu): Allow user to select nothing.

1994-06-25 01:42:43 +00:00
parent d196a64d03
commit 9f04f0237a
1 changed files with 5 additions and 4 deletions
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -135,10 +135,11 @@ 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))
-				 menu))
+    (while (and menu
+		(setq answer (x-popup-menu (list (list (nth 1 pos)
+						       (nthcdr 2 pos))
+						 (car pos))
+					   menu)))
      (setq cmd (lookup-key menu (apply 'vector answer)))
      (setq menu nil)
      (and cmd