From: Robert Pluim <rpluim@gmail.com>
Date: Thu, 18 Nov 2021 17:42:44 +0000 (+0200)
Subject: * lisp/repeat.el (describe-repeat-maps): Print all bound keys (bug#49265).
X-Git-Tag: emacs-28.0.90~59
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bf824843f40a8235e2cdfc6d84d67ea2e2e96acb;p=emacs.git

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

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)