mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(popup-dialog-box): x-popup-dialog returns the value, not the cons cell.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-05-09 02:19:20 +00:00
parent a99ebfdcd6
commit 8993dbcd7f
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/emacs-lisp/lmenu.el
View File

@ -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.