Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
5ca114d1
Commit
5ca114d1
authored
Nov 06, 2013
by
Stefan Monnier
Browse files
* lisp/menu-bar.el (popup-menu): Use key-binding.
parent
cfeda390
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
6 deletions
+5
-6
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/menu-bar.el
lisp/menu-bar.el
+1
-6
No files found.
lisp/ChangeLog
View file @
5ca114d1
2013-11-06 Stefan Monnier <monnier@iro.umontreal.ca>
* menu-bar.el (popup-menu): Use key-binding.
2013-11-06 Eli Zaretskii <eliz@gnu.org>
* menu-bar.el (popup-menu, menu-bar-open): When displaying TTY
...
...
lisp/menu-bar.el
View file @
5ca114d1
...
...
@@ -2189,12 +2189,7 @@ FROM-MENU-BAR, if non-nil, means we are dropping one of menu-bar's menus."
(
setq
position
(
list
menu-symbol
(
list
frame
'
(
menu-bar
)
event
0
)))
(
setq
map
(
or
(
lookup-key
global-map
(
vector
'menu-bar
menu-symbol
))
(
lookup-key
(
current-local-map
)
(
vector
'menu-bar
menu-symbol
))
(
cdar
(
minor-mode-key-binding
(
vector
'menu-bar
menu-symbol
)))))))
(
key-binding
(
vector
'menu-bar
menu-symbol
)))))
((
and
(
not
(
keymapp
map
))
(
listp
map
))
;; We were given a list of keymaps. Search them all
;; in sequence until a first binding is found.
...
...
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