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 3665d19bcbd9c0fd004ba0e1adddbcc431cd28ce..d412404efbedc0b52e4409533bc8f9d66f77743f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-27  Sam Steingold  <sds@gnu.org>
+
+       * menu-bar.el (menu-bar-open): When everything else fails,
+       use (mouse-menu-bar-map).
+
 2014-11-27  Ulf Jasper  <ulf.jasper@web.de>
 
        * net/newst-treeview.el (newsticker-groups-filename): Change

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 5ae5da9aff2ac3295f1f90cdb9b6c045f4925889..12fb192c355ea2d8900f8dee0e10d2f1345609b6 100644 (file)
--- 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))))))