Make dired-jump repeatable in repeat-mode

* lisp/dired.el (dired-jump-map): New variable.
(dired-jump): Put 'repeat-map' property with 'dired-jump-map'.

diff --git a/lisp/dired.el b/lisp/dired.el
index dc7400d46e0ef0dfbb5b9ecc06e23380ba29cac3..d7bf6316882d74213475d986ca26ce94dd406ce7 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -4797,6 +4797,11 @@ Interactively with prefix argument, read FILE-NAME."
              (read-file-name "Jump to Dired file: "))))
   (dired-jump t file-name))
 
+(defvar-keymap dired-jump-map
+  :doc "Keymap to repeat `dired-jump'.  Used in `repeat-mode'."
+  "C-j" #'dired-jump)
+(put 'dired-jump 'repeat-map 'dired-jump-map)
+
 \f
 ;;; Miscellaneous commands