diff options
author | Sam Steingold <sds@gnu.org> | 2014-11-27 13:17:42 -0500 |
---|---|---|
committer | Sam Steingold <sds@gnu.org> | 2014-11-27 13:17:42 -0500 |
commit | 07efa3f0ba196c1eea130032c765d5d1a62fa627 (patch) | |
tree | 05b13fd8da1c8b2dee5a6b638fb2ece74a000f7c /lisp/menu-bar.el | |
parent | 574988509898f8022145b047df780c9c807af4b3 (diff) | |
download | emacs-07efa3f0ba196c1eea130032c765d5d1a62fa627.tar.gz |
Use `mouse-menu-bar-map' when no other menus are available.
* lisp/menu-bar.el (menu-bar-open): When everything else fails,
use (mouse-menu-bar-map).
Diffstat (limited to 'lisp/menu-bar.el')
-rw-r--r-- | lisp/menu-bar.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 5ae5da9aff2..12fb192c355 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -2303,7 +2303,8 @@ If FRAME is nil or not given, use the selected frame." global-map (vector 'menu-bar menu)) (lookup-key-ignore-too-long (current-local-map) (vector 'menu-bar menu)) - (cdar (minor-mode-key-binding (vector 'menu-bar menu)))) + (cdar (minor-mode-key-binding (vector 'menu-bar menu))) + (mouse-menu-bar-map)) (posn-at-x-y x 0 nil t) nil t))) (t (with-selected-frame (or frame (selected-frame)) (tmm-menubar)))))) |