From 00b60dbf97925d50d2476b2accd584804e2f96c6 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 25 Jul 2025 19:15:34 +0200 Subject: [PATCH] (repeat-mode): Simplify. --- lisp/repeat.el | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) 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) -- 2.39.5