From 179fc9ef03060813603a33b7c26dd3d906d17d47 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 4 Sep 2000 21:23:51 +0000 Subject: [PATCH] (mouse-major-mode-menu, mouse-popup-menubar): Run menu-bar-update-hook. --- lisp/ChangeLog | 6 ++++++ lisp/mouse.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b8120b54b88..73e3eb649bb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1528,6 +1528,12 @@ 2000-09-04 Dave Love + * 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 502f8e02c60..373d1014a05 100644 --- 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])) -- 2.39.2