diff options
| author | Juri Linkov <juri@linkov.net> | 2019-12-09 00:19:43 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2019-12-09 00:19:43 +0200 |
| commit | 9ea3137bc8601cac9465e953e4e79ee15963e24a (patch) | |
| tree | ec94fed8c87163b834158b8f99d6451f039c85ce /lisp/subr.el | |
| parent | fe7ae74c0b0b40dff4af8fa46da8f5f537bb99a0 (diff) | |
| download | emacs-9ea3137bc8601cac9465e953e4e79ee15963e24a.tar.gz emacs-9ea3137bc8601cac9465e953e4e79ee15963e24a.tar.bz2 emacs-9ea3137bc8601cac9465e953e4e79ee15963e24a.zip | |
Move recenter/scroll keybindings from minibuffer-local-map to read-char map
* lisp/minibuffer.el (minibuffer-local-map): Move remap of
recenter/scroll keybindings to read-char-from-minibuffer-map.
* lisp/subr.el (read-char-from-minibuffer-map): Move remap of
recenter/scroll keybindings here from minibuffer-local-map.
(bug#38502)
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index de7d919abfe..ca5af0f0ab7 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2672,8 +2672,15 @@ floating point support." (defvar read-char-from-minibuffer-map (let ((map (make-sparse-keymap))) (set-keymap-parent map minibuffer-local-map) - (define-key map [remap self-insert-command] - 'read-char-from-minibuffer-insert-char) + + (define-key map [remap self-insert-command] 'read-char-from-minibuffer-insert-char) + + (define-key map [remap recenter-top-bottom] 'minibuffer-recenter-top-bottom) + (define-key map [remap scroll-up-command] 'minibuffer-scroll-up-command) + (define-key map [remap scroll-down-command] 'minibuffer-scroll-down-command) + (define-key map [remap scroll-other-window] 'minibuffer-scroll-other-window) + (define-key map [remap scroll-other-window-down] 'minibuffer-scroll-other-window-down) + map) "Keymap for the `read-char-from-minibuffer' function.") |