Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Make describe-repeat-maps fontify key bindings

Browse source 
* lisp/repeat.el (describe-repeat-maps): Fontify key bindings as
key bindings.
This commit is contained in:
Lars Ingebrigtsen 2022-06-19 16:21:14 +02:00
parent b2d11d69dd
commit a7ee25e903
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/repeat.el
View file

@ -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")
(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)))))
(princ (format-message "`%s' keymap is repeatable by these commands:\n"
(car keymap)))
(dolist (command (sort (cdr keymap) 'string-lessp))
(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)