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

menu-bar-update-hook.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b8120b54b88f05f325f7234803b86dce64cd566d..73e3eb649bb7a672e34aeb38fc27cacb97be2a9e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1528,6 +1528,12 @@
 
 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.
 
        * custom.el (custom-set-variables): Print message about errors in

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 502f8e02c6075d72cdf00bc6749d9cf3ab58370e..373d1014a0584d17a9c5cdedf09d6dc712339d78 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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.
   (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 @@ 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
 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]))