From d5e6e0b6df0df7272d0595ab4ee4c372de966399 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 7 Dec 2010 19:32:31 -0800 Subject: [PATCH] mouse.el fix for bug#7586. * lisp/mouse.el (mouse-menu-major-mode-map, mouse-menu-bar-map): Run hooks to update menu contents. --- lisp/ChangeLog | 3 +++ lisp/mouse.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6c558723bdf..1805c06878e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-12-08 Glenn Morris + * mouse.el (mouse-menu-major-mode-map, mouse-menu-bar-map): + Run hooks to update menu contents. (Bug#7586) + * mail/smtpmail.el (smtpmail-send-it): Avoid colons in the queued file names, for the sake of MS Windows. (Bug#7588) diff --git a/lisp/mouse.el b/lisp/mouse.el index e88c2669714..243e7179678 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -181,6 +181,7 @@ items `Turn Off' and `Help'." (minor-mode-menu-from-indicator indicator))) (defun mouse-menu-major-mode-map () + (run-hooks 'activate-menubar-hook 'menu-bar-update-hook) (let* (;; Keymap from which to inherit; may be null. (ancestor (mouse-menu-non-singleton (and (current-local-map) @@ -213,6 +214,7 @@ Otherwise return the whole menu." "Return a keymap equivalent to the menu bar. The contents are the items that would be in the menu bar whether or not it is actually displayed." + (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])) @@ -2607,5 +2609,4 @@ choose a font." (make-obsolete 'mldrag-drag-vertical-line 'mouse-drag-vertical-line "21.1") (provide 'mldrag) -;; arch-tag: 9a710ce1-914a-4923-9b81-697f7bf82ab3 ;;; mouse.el ends here -- 2.11.4.GIT