From a7ee25e90309fdf513d778ba0ae034aaff4cc559 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 19 Jun 2022 16:21:14 +0200 Subject: [PATCH] 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 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) -- 2.39.5