Commit 8993dbcd authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent a99ebfdc
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment