mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source 
menu-bar-update-hook.
This commit is contained in:
Dave Love 2000-09-04 21:23:51 +00:00
parent caf047eca9
commit 179fc9ef03
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

4
lisp/mouse.el
View File

@ -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]))