471 |
|
|
472 |
(defun easy-menu-add (menu &optional map) |
(defun easy-menu-add (menu &optional map) |
473 |
"Add the menu to the menubar. |
"Add the menu to the menubar. |
474 |
This is a nop on Emacs since menus are automatically activated when the |
On Emacs, menus are already automatically activated when the |
475 |
corresponding keymap is activated. On XEmacs this is needed to actually |
corresponding keymap is activated. On XEmacs this is needed to |
476 |
add the menu to the current menubar. |
actually add the menu to the current menubar. |
477 |
Maybe precalculate equivalent key bindings. |
|
478 |
Do it only if `easy-menu-precalculate-equivalent-keybindings' is on." |
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." |
483 |
(when easy-menu-precalculate-equivalent-keybindings |
(when easy-menu-precalculate-equivalent-keybindings |
484 |
(if (and (symbolp menu) (not (keymapp menu)) (boundp menu)) |
(if (and (symbolp menu) (not (keymapp menu)) (boundp menu)) |
485 |
(setq menu (symbol-value menu))) |
(setq menu (symbol-value menu))) |