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: ...@@ -246,11 +246,10 @@ The syntax, more precisely:
converted)))) converted))))
(setq tail (cdr tail))) (setq tail (cdr tail)))
(setq choice (x-popup-dialog t (cons name (nreverse converted)))) (setq choice (x-popup-dialog t (cons name (nreverse converted))))
(setq meaning (assq choice converted)) (if choice
(if meaning (if (symbolp choice)
(if (symbolp (cdr meaning)) (call-interactively choice)
(call-interactively (cdr meaning)) (eval choice)))))
(eval (cdr meaning))))))
;; This is empty because the usual elements of the menu bar ;; This is empty because the usual elements of the menu bar
;; are provided by menu-bar.el instead. ;; 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