diff options
| author | Richard M. Stallman | 1995-05-09 02:19:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-05-09 02:19:20 +0000 |
| commit | 8993dbcd7f69a5beeb3cf8dd0b154af6378a342d (patch) | |
| tree | 6744e4d6b6bbc872cd91b988eec5301b03e4981b | |
| parent | a99ebfdcd6a7fdea25cecf72d9252afe64601ff1 (diff) | |
| download | emacs-8993dbcd7f69a5beeb3cf8dd0b154af6378a342d.tar.gz emacs-8993dbcd7f69a5beeb3cf8dd0b154af6378a342d.zip | |
(popup-dialog-box): x-popup-dialog returns the value, not the cons cell.
| -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: | |||
| 246 | converted)))) | 246 | converted)))) |
| 247 | (setq tail (cdr tail))) | 247 | (setq tail (cdr tail))) |
| 248 | (setq choice (x-popup-dialog t (cons name (nreverse converted)))) | 248 | (setq choice (x-popup-dialog t (cons name (nreverse converted)))) |
| 249 | (setq meaning (assq choice converted)) | 249 | (if choice |
| 250 | (if meaning | 250 | (if (symbolp choice) |
| 251 | (if (symbolp (cdr meaning)) | 251 | (call-interactively choice) |
| 252 | (call-interactively (cdr meaning)) | 252 | (eval choice))))) |
| 253 | (eval (cdr meaning)))))) | ||
| 254 | 253 | ||
| 255 | ;; This is empty because the usual elements of the menu bar | 254 | ;; This is empty because the usual elements of the menu bar |
| 256 | ;; are provided by menu-bar.el instead. | 255 | ;; are provided by menu-bar.el instead. |