master 84472c3363 1/4: comint: Add repeat-map for comint-{next, previous}-prompt

[Eli Zaretskii]

branch: master
commit 84472c3363e4e80ec68e38eb798e8c4c15dc208e
Author: Brian Leung <leungbk@posteo.net>
Commit: Eli Zaretskii <eliz@gnu.org>

    comint: Add repeat-map for comint-{next,previous}-prompt
    
    * lisp/comint.el (comint-repeat-map): New keymap.  (Bug#59144)
---
 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 @@ via PTYs.")
                                       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.