diff options
| author | Richard M. Stallman | 1998-05-05 21:47:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-05-05 21:47:53 +0000 |
| commit | 25f9b4bf397f8c54d47e01eeb711d58ddb70c275 (patch) | |
| tree | 474e9b1a7d1f8c097cceb5183d1433e43e0dc164 | |
| parent | 437d9247a0043be841f1afa5803a093109dd8472 (diff) | |
| download | emacs-25f9b4bf397f8c54d47e01eeb711d58ddb70c275.tar.gz emacs-25f9b4bf397f8c54d47e01eeb711d58ddb70c275.zip | |
(mouse-major-mode-menu): Run activate-menubar-hook here.
| -rw-r--r-- | lisp/mouse.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index bc5f8475b77..5d55b3dfd0e 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -49,6 +49,8 @@ | |||
| 49 | ;; Switch to the window clicked on, because otherwise | 49 | ;; Switch to the window clicked on, because otherwise |
| 50 | ;; the mode's commands may not make sense. | 50 | ;; the mode's commands may not make sense. |
| 51 | (interactive "@e\nP") | 51 | (interactive "@e\nP") |
| 52 | ;; Let the mode update its menus first. | ||
| 53 | (run-hooks 'activate-menubar-hook) | ||
| 52 | (let (;; This is where mouse-major-mode-menu-prefix | 54 | (let (;; This is where mouse-major-mode-menu-prefix |
| 53 | ;; returns the prefix we should use (after menu-bar). | 55 | ;; returns the prefix we should use (after menu-bar). |
| 54 | ;; It is either nil or (SOME-SYMBOL). | 56 | ;; It is either nil or (SOME-SYMBOL). |