From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 19 Jun 2022 14:21:14 +0000 (+0200)
Subject: Make describe-repeat-maps fontify key bindings
X-Git-Tag: emacs-29.0.90~1447^2~1609
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a7ee25e90309fdf513d778ba0ae034aaff4cc559;p=emacs.git

Make describe-repeat-maps fontify key bindings

* lisp/repeat.el (describe-repeat-maps): Fontify key bindings as
key bindings.
---

diff --git a/lisp/repeat.el b/lisp/repeat.el
index 94ea9f7ac1f..dff3931aebf 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)