emacs-28 bf82484: * lisp/repeat.el (describe-repeat-maps): Print all bound keys (bug#49265).

[Juri Linkov]

branch: emacs-28
commit bf824843f40a8235e2cdfc6d84d67ea2e2e96acb
Author: Robert Pluim <rpluim@gmail.com>
Commit: Juri Linkov <juri@linkov.net>

    * 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 45201ad..4dcd353 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)