diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-11-06 12:18:02 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-11-06 12:18:02 -0500 |
commit | 5ca114d1a897f57d5570e2e5b243dc7111ab1c73 (patch) | |
tree | 614989fdb58b74dd752b2a6258455d6afc1bc3d5 /lisp/menu-bar.el | |
parent | cfeda3902887b85bc719534678262e16745b8fd2 (diff) |
* lisp/menu-bar.el (popup-menu): Use key-binding.
Diffstat (limited to 'lisp/menu-bar.el')
-rw-r--r-- | lisp/menu-bar.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index ae1edabf583..13c4c36be17 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -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. |