Commit 179fc9ef authored by Dave Love's avatar Dave Love
Browse files

(mouse-major-mode-menu, mouse-popup-menubar): Run

menu-bar-update-hook.
parent caf047ec
...@@ -1528,6 +1528,12 @@ ...@@ -1528,6 +1528,12 @@
2000-09-04 Dave Love <fx@gnu.org> 2000-09-04 Dave Love <fx@gnu.org>
* mouse.el (mouse-major-mode-menu, mouse-popup-menubar): Run
menu-bar-update-hook.
* help.el (help-manyarg-func-alist): Add
find-operation-coding-system.
* wid-edit.el (widget-sexp-validate): Fix garbled code. * wid-edit.el (widget-sexp-validate): Fix garbled code.
* custom.el (custom-set-variables): Print message about errors in * custom.el (custom-set-variables): Print message about errors in
......
...@@ -105,7 +105,7 @@ Default to the Edit menu if the major mode doesn't define a menu." ...@@ -105,7 +105,7 @@ Default to the Edit menu if the major mode doesn't define a menu."
;; the mode's commands may not make sense. ;; the mode's commands may not make sense.
(interactive "@e\nP") (interactive "@e\nP")
;; Let the mode update its menus first. ;; 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 (let* (;; This is where mouse-major-mode-menu-prefix
;; returns the prefix we should use (after menu-bar). ;; returns the prefix we should use (after menu-bar).
;; It is either nil or (SOME-SYMBOL). ;; It is either nil or (SOME-SYMBOL).
...@@ -166,7 +166,7 @@ Default to the Edit menu if the major mode doesn't define a menu." ...@@ -166,7 +166,7 @@ Default to the Edit menu if the major mode doesn't define a menu."
The contents are the items that would be in the menu bar whether or The contents are the items that would be in the menu bar whether or
not it is actually displayed." not it is actually displayed."
(interactive "@e \nP") (interactive "@e \nP")
(run-hooks 'activate-menubar-hook) (run-hooks 'activate-menubar-hook 'menu-bar-update-hook)
(let* ((local-menu (and (current-local-map) (let* ((local-menu (and (current-local-map)
(lookup-key (current-local-map) [menu-bar]))) (lookup-key (current-local-map) [menu-bar])))
(global-menu (lookup-key global-map [menu-bar])) (global-menu (lookup-key global-map [menu-bar]))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment