HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a99ebfd
)
(popup-dialog-box): x-popup-dialog returns the value, not the cons cell.
author
Richard M. Stallman
<rms@gnu.org>
Tue, 9 May 1995 02:19:20 +0000
(
02:19
+0000)
committer
Richard M. Stallman
<rms@gnu.org>
Tue, 9 May 1995 02:19:20 +0000
(
02:19
+0000)
lisp/emacs-lisp/lmenu.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/emacs-lisp/lmenu.el
b/lisp/emacs-lisp/lmenu.el
index
5bbccbb
..
2530534
100644
(file)
--- 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)))))
\f
;; This is empty because the usual elements of the menu bar
;; are provided by menu-bar.el instead.