From 4db28a9dc83be033d309782e5b14c9ebc9f01f38 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 6 Jul 2021 20:53:09 +0300 Subject: [PATCH] * lisp/repeat.el (describe-repeat-maps): Rename from `describe-repeat'. Fix text strings (bug#49265). --- lisp/repeat.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/repeat.el b/lisp/repeat.el index 503cb340006..cec3cb643a1 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el @@ -397,7 +397,7 @@ When Repeat mode is enabled, and the command symbol has the property named (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'." + (message "Repeat mode is enabled for %d commands and %d keymaps; see `describe-repeat-maps'." (length commands) (length (delete-dups keymaps)))))) @@ -489,10 +489,10 @@ When Repeat mode is enabled, and the command symbol has the property named repeat-echo-mode-line-string))) (force-mode-line-update t))) -(defun describe-repeat () - "Describe repeatable commands and keymaps." +(defun describe-repeat-maps () + "Describe mappings of commands repeatable by symbol property `repeat-map'." (interactive) - (help-setup-xref (list #'describe-repeat) + (help-setup-xref (list #'describe-repeat-maps) (called-interactively-p 'interactive)) (let ((keymaps nil)) (all-completions @@ -502,7 +502,7 @@ When Repeat mode is enabled, and the command symbol has the property named (push s (alist-get (get s 'repeat-map) keymaps))))) (with-help-window (help-buffer) (with-current-buffer standard-output - (princ "This is a list of repeatable keymaps and commands.\n\n") + (princ "A list of keymaps used by commands with the symbol property `repeat-map'.\n\n") (dolist (keymap (sort keymaps (lambda (a b) (string-lessp (car a) (car b))))) (princ (format-message "`%s' keymap is repeatable by these commands:\n" -- 2.39.2