From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 25 Jul 2025 17:15:34 +0000 (+0200)
Subject: (repeat-mode): Simplify.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=00b60dbf97925d50d2476b2accd584804e2f96c6;p=emacs.git

(repeat-mode): Simplify.
---

diff --git a/lisp/repeat.el b/lisp/repeat.el
index 3fd76aa8700..9caeff7c7f9 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -445,19 +445,7 @@ See `describe-repeat-maps' for a list of all repeatable commands."
         (remove-hook 'post-command-hook 'repeat-post-hook))
     (when repeat-keep-prefix
       (add-hook 'pre-command-hook 'repeat-pre-hook))
-    (add-hook 'post-command-hook 'repeat-post-hook)
-    (when (called-interactively-p 'any)
-      (let* ((keymaps nil)
-             (commands (all-completions
-                        "" obarray
-                        (lambda (s)
-                          (and (commandp s)
-                               (get s 'repeat-map)
-                               (push (get s 'repeat-map) keymaps))))))
-        (message "Repeat mode is enabled for %d commands and %d keymaps; \
-see `describe-repeat-maps'"
-                 (length commands)
-                 (length (delete-dups keymaps)))))))
+    (add-hook 'post-command-hook 'repeat-post-hook)))
 
 (defun repeat--command-property (property)
   (or (and (symbolp this-command)