diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-05-09 02:19:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-05-09 02:19:20 +0000 |
| commit | 8993dbcd7f69a5beeb3cf8dd0b154af6378a342d (patch) | |
| tree | 6744e4d6b6bbc872cd91b988eec5301b03e4981b /lisp/emacs-lisp | |
| parent | a99ebfdcd6a7fdea25cecf72d9252afe64601ff1 (diff) | |
| download | emacs-8993dbcd7f69a5beeb3cf8dd0b154af6378a342d.tar.gz emacs-8993dbcd7f69a5beeb3cf8dd0b154af6378a342d.tar.bz2 emacs-8993dbcd7f69a5beeb3cf8dd0b154af6378a342d.zip | |
(popup-dialog-box): x-popup-dialog returns the value, not the cons cell.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lmenu.el | 9 |
1 files 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. |