Commit 25f9b4bf authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mouse-major-mode-menu): Run activate-menubar-hook here.

parent 437d9247
...@@ -49,6 +49,8 @@ ...@@ -49,6 +49,8 @@
;; Switch to the window clicked on, because otherwise ;; Switch to the window clicked on, because otherwise
;; 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.
(run-hooks 'activate-menubar-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).
......
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