From: Eli Zaretskii Date: Sat, 5 Oct 2013 16:33:37 +0000 (+0300) Subject: Fix pop down menu with another click on menu bar. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1328^2~8 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72b70f6a68ac53cbab4db0e290259c1182a94db4;p=emacs.git Fix pop down menu with another click on menu bar. --- diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index e37c6a28b4f..52cf0fd2f6d 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -2269,6 +2269,29 @@ If nil, the current mouse position is used." map (current-global-map)) (substitute-key-definition 'keyboard-escape-quit 'tty-menu-exit map (current-global-map)) + ;; The bindings of menu-bar items are so that clicking on the menu + ;; bar when a menu is already shown pops down that menu. + ;; FIXME: we should iterate over all the visible menu-bar items, + ;; instead of naming them explicitly here. Also, this doesn't + ;; include items added by current major mode. + (substitute-key-definition (lookup-key (current-global-map) [menu-bar file]) + 'tty-menu-exit + map (current-global-map)) + (substitute-key-definition (lookup-key (current-global-map) [menu-bar edit]) + 'tty-menu-exit + map (current-global-map)) + (substitute-key-definition (lookup-key (current-global-map) [menu-bar options]) + 'tty-menu-exit + map (current-global-map)) + (substitute-key-definition (lookup-key (current-global-map) [menu-bar buffer]) + 'tty-menu-exit + map (current-global-map)) + (substitute-key-definition (lookup-key (current-global-map) [menu-bar tools]) + 'tty-menu-exit + map (current-global-map)) + (substitute-key-definition (lookup-key (current-global-map) [menu-bar help-menu]) + 'tty-menu-exit + map (current-global-map)) (substitute-key-definition 'forward-char 'tty-menu-next-menu map (current-global-map)) (substitute-key-definition 'backward-char 'tty-menu-prev-menu