diff options
author | Stefan Monnier <[email protected]> | 2010-08-19 16:37:31 +0200 |
---|---|---|
committer | Stefan Monnier <[email protected]> | 2010-08-19 16:37:31 +0200 |
commit | 186e86dbac28ca3bd9aa23cb6c8123f2b5ff919a (patch) | |
tree | f861c9760c3fe09f09d5b7c340ab21c0943e15d3 /lisp/subr.el | |
parent | 9b3d6a42efd17fb2a9f01b128b10b17da5296c98 (diff) |
* lisp/subr.el (read-key): Don't hide the menu-bar entries.
Fixes: debbugs:6881
Diffstat (limited to 'lisp/subr.el')
-rw-r--r-- | lisp/subr.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 44ae84ab76..ad939dc6bb 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1842,7 +1842,12 @@ some sort of escape sequence, the ambiguity is resolved via `read-key-delay'." (throw 'read-key keys))))))) (unwind-protect (progn - (use-global-map read-key-empty-map) + (use-global-map + (let ((map (make-sparse-keymap))) + ;; Don't hide the menu-bar and tool-bar entries. + (define-key map [menu-bar] (lookup-key global-map [menu-bar])) + (define-key map [tool-bar] (lookup-key global-map [tool-bar])) + map)) (aref (catch 'read-key (read-key-sequence-vector prompt nil t)) 0)) (cancel-timer timer) (use-global-map old-global-map)))) |