diff options
| author | Juri Linkov <juri@linkov.net> | 2022-12-22 10:03:09 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-12-22 10:03:09 +0200 |
| commit | 05d8310fb5ddb35c2566c2b50ca07e86edf3c670 (patch) | |
| tree | 1bab3a6f8abde5e8de10dd9972272fcb69f8851f /lisp/comint.el | |
| parent | d6c8d5dbc9fc4786e91b76654058e904c96f0e11 (diff) | |
| download | emacs-05d8310fb5ddb35c2566c2b50ca07e86edf3c670.tar.gz emacs-05d8310fb5ddb35c2566c2b50ca07e86edf3c670.tar.bz2 emacs-05d8310fb5ddb35c2566c2b50ca07e86edf3c670.zip | |
Use the new keyword ':repeat' in repeatable keymaps.
* lisp/bindings.el (undo-repeat-map)
(buffer-navigation-repeat-map, next-error-repeat-map)
(page-navigation-repeat-map):
* lisp/comint.el (comint-repeat-map):
* lisp/dired.el (dired-jump-map):
* lisp/outline.el (outline-navigation-repeat-map)
(outline-editing-repeat-map):
* lisp/shell.el (shell-repeat-map):
* lisp/tab-bar.el (tab-bar-switch-repeat-map)
(tab-bar-move-repeat-map):
* lisp/window.el (other-window-repeat-map)
(resize-window-repeat-map):
* lisp/winner.el (winner-repeat-map):
* lisp/eshell/em-prompt.el (eshell-prompt-repeat-map):
* lisp/eshell/esh-mode.el (eshell-command-repeat-map):
Add the keyword ':repeat' to 'defvar-keymap' instead of
setting the symbol property 'repeat-map' explicitly.
* lisp/keymap.el (defvar-keymap): Check for 'props'
that is used in 'defvar-form'.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index f0bb8da4355..fd0e06a3612 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -606,12 +606,10 @@ via PTYs.") (defvar-keymap comint-repeat-map :doc "Keymap to repeat comint key sequences. Used in `repeat-mode'." + :repeat t "C-n" #'comint-next-prompt "C-p" #'comint-previous-prompt) -(put #'comint-next-prompt 'repeat-map 'comint-repeat-map) -(put #'comint-previous-prompt 'repeat-map 'comint-repeat-map) - ;; Fixme: Is this still relevant? (defvar comint-ptyp t "Non-nil if communications via pty; false if by pipe. Buffer local. |