Mercurial > emacs

comparison lisp/emacs-lisp/easymenu.el @ 90185:5b029ff3b08d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-55 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 320-323) - Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 26 May 2005 05:42:19 +0000
parents f042e7c0fe20 efeaec0ce9c4
children 01137c1fdbe9
comparison
equal deleted inserted replaced
90184:9e5e2f01c7ab 90185:5b029ff3b08d
469 469
470 \(fn MENU)") 470 \(fn MENU)")
471 471
472 (defun easy-menu-add (menu &optional map) 472 (defun easy-menu-add (menu &optional map)
473 "Add the menu to the menubar. 473 "Add the menu to the menubar.
474 This is a nop on Emacs since menus are automatically activated when the 474 On Emacs, menus are already automatically activated when the
475 corresponding keymap is activated. On XEmacs this is needed to actually 475 corresponding keymap is activated. On XEmacs this is needed to
476 add the menu to the current menubar. 476 actually add the menu to the current menubar.
477 Maybe precalculate equivalent key bindings. 477
478 Do it only if `easy-menu-precalculate-equivalent-keybindings' is on." 478 This also precalculates equivalent key bindings when
479 `easy-menu-precalculate-equivalent-keybindings' is on.
480
481 You should call this once the menu and keybindings are set up
482 completely and menu filter functions can be expected to work."
479 (when easy-menu-precalculate-equivalent-keybindings 483 (when easy-menu-precalculate-equivalent-keybindings
480 (if (and (symbolp menu) (not (keymapp menu)) (boundp menu)) 484 (if (and (symbolp menu) (not (keymapp menu)) (boundp menu))
481 (setq menu (symbol-value menu))) 485 (setq menu (symbol-value menu)))
482 (and (keymapp menu) (fboundp 'x-popup-menu) 486 (and (keymapp menu) (fboundp 'x-popup-menu)
483 (x-popup-menu nil menu)) 487 (x-popup-menu nil menu))