From: Juri Linkov Date: Tue, 6 Jul 2021 17:53:09 +0000 (+0300) Subject: * lisp/repeat.el (describe-repeat-maps): Rename from `describe-repeat'. X-Git-Tag: emacs-28.0.90~1939 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4db28a9dc83be033d309782e5b14c9ebc9f01f38;p=emacs.git * lisp/repeat.el (describe-repeat-maps): Rename from `describe-repeat'. Fix text strings (bug#49265). --- 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"