diff options
Diffstat (limited to 'lisp/emacs-lisp/lmenu.el')
| -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. |