From: Sam Steingold Date: Thu, 27 Nov 2014 18:17:42 +0000 (-0500) Subject: Use `mouse-menu-bar-map' when no other menus are available. X-Git-Tag: emacs-25.0.90~2635^2~289 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07efa3f0ba196c1eea130032c765d5d1a62fa627;p=emacs.git 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). --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3665d19bcbd..d412404efbe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-11-27 Sam Steingold + + * menu-bar.el (menu-bar-open): When everything else fails, + use (mouse-menu-bar-map). + 2014-11-27 Ulf Jasper * net/newst-treeview.el (newsticker-groups-filename): Change 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))))))