# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 968102451 0
# Node ID cf8964e1d7e3f7303b6f7bd3783ff122d0a610af
# Parent  5114aeb0f8e62be4845f8c201eb25a76662ce98e
(mouse-major-mode-menu, mouse-popup-menubar): Run
menu-bar-update-hook.

diff -r 5114aeb0f8e6 -r cf8964e1d7e3 lisp/mouse.el
--- 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]))