(popup-dialog-box): x-popup-dialog returns the value, not the cons cell.

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index 5bbccbbdab85719e76712e2827d14fe6be594464..25305346f57d1f544e35e991311403db781e2d41 100644 (file)
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -246,11 +246,10 @@ The syntax, more precisely:
                      converted))))
       (setq tail (cdr tail)))
     (setq choice (x-popup-dialog t (cons name (nreverse converted))))
-    (setq meaning (assq choice converted))
-    (if meaning
-       (if (symbolp (cdr meaning))
-           (call-interactively (cdr meaning))
-         (eval (cdr meaning))))))
+    (if choice
+       (if (symbolp choice)
+           (call-interactively choice)
+         (eval choice)))))
 \f
 ;; This is empty because the usual elements of the menu bar
 ;; are provided by menu-bar.el instead.