master a7ee25e903: Make describe-repeat-maps fontify key bindings

[Lars Ingebrigtsen]

branch: master
commit a7ee25e90309fdf513d778ba0ae034aaff4cc559
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make describe-repeat-maps fontify key bindings
    
    * lisp/repeat.el (describe-repeat-maps): Fontify key bindings as
    key bindings.
---
 lisp/repeat.el | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/lisp/repeat.el b/lisp/repeat.el
index 94ea9f7ac1..dff3931aeb 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -557,21 +557,24 @@ Used in `repeat-mode'."
                          (push s (alist-get (get s 'repeat-map) keymaps)))))
       (with-help-window (help-buffer)
         (with-current-buffer standard-output
-          (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"
-                                   (car keymap)))
-            (dolist (command (sort (cdr keymap) 'string-lessp))
+          (insert "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)))))
+            (insert (format-message
+                     "`%s' keymap is repeatable by these commands:\n"
+                     (car keymap)))
+            (dolist (command (sort (cdr keymap) #'string-lessp))
               (let* ((info (help-fns--analyze-function command))
                      (map (list (symbol-value (car keymap))))
                      (desc (mapconcat (lambda (key)
-                                        (format-message "`%s'" 
(key-description key)))
+                                        (propertize (key-description key)
+                                                    'face 'help-key-binding))
                                       (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")))))))
+                (insert (format-message " `%s' (bound to %s)\n" command 
desc))))
+            (insert "\n")))))))
 
 (provide 'repeat)