Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
179fc9ef
Commit
179fc9ef
authored
Sep 04, 2000
by
Dave Love
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(mouse-major-mode-menu, mouse-popup-menubar): Run
menu-bar-update-hook.
parent
caf047ec
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
2 deletions
+8
-2
lisp/ChangeLog
lisp/ChangeLog
+6
-0
lisp/mouse.el
lisp/mouse.el
+2
-2
No files found.
lisp/ChangeLog
View file @
179fc9ef
...
...
@@ -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
...
...
lisp/mouse.el
View file @
179fc9ef
...
...
@@ -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]
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment