From: Brian Leung <leungbk@posteo.net>
Date: Wed, 9 Nov 2022 07:18:23 +0000 (-0800)
Subject: shell: Add repeat-map for shell-{forward,backward}-prompt
X-Git-Tag: emacs-29.0.90~1616^2~112
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a0ee57c80dea105ab08aad3c0cdce11e43b5fa29;p=emacs.git

shell: Add repeat-map for shell-{forward,backward}-prompt

* lisp/shell.el (shell-repeat-map): New defvar.  (Bug#59144)
---

diff --git a/lisp/shell.el b/lisp/shell.el
index 641f274045d..7c3c925ab87 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -393,6 +393,14 @@ Useful for shells like zsh that has this feature."
       'complete-expand)
     map))
 
+(defvar-keymap shell-repeat-map
+  :doc "Keymap to repeat shell key sequences.  Used in `repeat-mode'."
+  "C-f" #'shell-forward-command
+  "C-b" #'shell-backward-command)
+
+(put #'shell-forward-command 'repeat-map 'shell-repeat-map)
+(put #'shell-backward-command 'repeat-map 'shell-repeat-map)
+
 (defcustom shell-mode-hook '()
   "Hook for customizing Shell mode."
   :type 'hook