Mercurial > emacs
changeset 31390:cf8964e1d7e3
(mouse-major-mode-menu, mouse-popup-menubar): Run
menu-bar-update-hook.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 04 Sep 2000 21:20:51 +0000 |
| parents | 5114aeb0f8e6 |
| children | 0275fa841f55 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Mon Sep 04 21:18:49 2000 +0000 +++ b/lisp/mouse.el Mon Sep 04 21:20:51 2000 +0000 @@ -105,7 +105,7 @@ ;; the mode's commands may not make sense. (interactive "@e\nP") ;; Let the mode update its menus first. - (run-hooks 'activate-menubar-hook) + (run-hooks 'activate-menubar-hook 'menu-bar-update-hook) (let* (;; This is where mouse-major-mode-menu-prefix ;; returns the prefix we should use (after menu-bar). ;; It is either nil or (SOME-SYMBOL). @@ -166,7 +166,7 @@ The contents are the items that would be in the menu bar whether or not it is actually displayed." (interactive "@e \nP") - (run-hooks 'activate-menubar-hook) + (run-hooks 'activate-menubar-hook 'menu-bar-update-hook) (let* ((local-menu (and (current-local-map) (lookup-key (current-local-map) [menu-bar]))) (global-menu (lookup-key global-map [menu-bar]))