From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 9 May 1995 02:19:20 +0000 (+0000)
Subject: (popup-dialog-box): x-popup-dialog returns the value, not the cons cell.
X-Git-Tag: emacs-19.34~4093
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8993dbcd7f69a5beeb3cf8dd0b154af6378a342d;p=emacs.git

(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 5bbccbbdab8..25305346f57 100644
--- 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)))))
 
 ;; This is empty because the usual elements of the menu bar
 ;; are provided by menu-bar.el instead.