>From 50a276b3839569c6c9f61e81e1771e958e7fd9c0 Mon Sep 17 00:00:00 2001 From: Brian Leung Date: Tue, 8 Nov 2022 22:03:29 -0800 Subject: [PATCH 1/2] comint: Add repeat-map for comint * lisp/comint.el (comint-repeat-map): New keymap. --- lisp/comint.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/comint.el b/lisp/comint.el index 07ced8d321..93b97cb22b 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -604,6 +604,14 @@ comint-mode-map menu-bar-final-items)) map)) +(defvar-keymap comint-repeat-map + :doc "Keymap to repeat comint key sequences. Used in `repeat-mode'." + "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. -- 2.38.1