Mercurial > emacs
changeset 55045:3baddb82ae01
(easy-menu-add): Do call x-popup-menu, but only if it's defined.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Apr 2004 19:14:49 +0000 |
| parents | 3b81dccc5b32 |
| children | 59e11b0793cf |
| files | lisp/emacs-lisp/easymenu.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/easymenu.el Wed Apr 21 19:14:04 2004 +0000 +++ b/lisp/emacs-lisp/easymenu.el Wed Apr 21 19:14:49 2004 +0000 @@ -478,8 +478,8 @@ (when easy-menu-precalculate-equivalent-keybindings (if (and (symbolp menu) (not (keymapp menu)) (boundp menu)) (setq menu (symbol-value menu))) - ;; x-popup-menu does not exist on tty-only Emacs. - ;; (if (keymapp menu) (x-popup-menu nil menu)) + (and (keymapp menu) (fboundp 'x-popup-menu) + (x-popup-menu nil menu)) )) (defun add-submenu (menu-path submenu &optional before in-menu)