diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-08-19 16:37:31 +0200 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-08-19 16:37:31 +0200 |
| commit | 186e86dbac28ca3bd9aa23cb6c8123f2b5ff919a (patch) | |
| tree | f861c9760c3fe09f09d5b7c340ab21c0943e15d3 /lisp/subr.el | |
| parent | 9b3d6a42efd17fb2a9f01b128b10b17da5296c98 (diff) | |
| download | emacs-186e86dbac28ca3bd9aa23cb6c8123f2b5ff919a.tar.gz | |
* 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 44ae84ab76b..ad939dc6bb4 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)))) |