From bf824843f40a8235e2cdfc6d84d67ea2e2e96acb Mon Sep 17 00:00:00 2001 From: Robert Pluim Date: Thu, 18 Nov 2021 19:42:44 +0200 Subject: [PATCH] * lisp/repeat.el (describe-repeat-maps): Print all bound keys (bug#49265). --- lisp/repeat.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/repeat.el b/lisp/repeat.el index 45201ad1aa6..4dcd353e346 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el @@ -533,10 +533,12 @@ Used in `repeat-mode'." (dolist (command (sort (cdr keymap) 'string-lessp)) (let* ((info (help-fns--analyze-function command)) (map (list (symbol-value (car keymap)))) - (desc (key-description - (or (where-is-internal command map t) - (where-is-internal (nth 3 info) map t))))) - (princ (format-message " `%s' (bound to '%s')\n" command desc)))) + (desc (mapconcat (lambda (key) + (format-message "`%s'" (key-description key))) + (or (where-is-internal command map) + (where-is-internal (nth 3 info) map)) + ", "))) + (princ (format-message " `%s' (bound to %s)\n" command desc)))) (princ "\n")))))) (provide 'repeat) -- 2.39.2