From 8993dbcd7f69a5beeb3cf8dd0b154af6378a342d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 9 May 1995 02:19:20 +0000 Subject: [PATCH] (popup-dialog-box): x-popup-dialog returns the value, not the cons cell. --- lisp/emacs-lisp/lmenu.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) 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. -- 2.39.2