(repeat-mode): Simplify.

diff --git a/lisp/repeat.el b/lisp/repeat.el
index 3fd76aa8700005f4be3c3b5a3d651e5490257e54..9caeff7c7f9a140b00d69ce314ffea112946ff20 100644 (file)
--- 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)