procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/repeat.el (describe-repeat-maps): Improve the output.

Browse source 
Print the table of keybindings and a list of commands that
enter and exit repeat-map.  Use default outline headings.
https://lists.gnu.org/archive/html/emacs-devel/2022-11/msg00969.html
This commit is contained in:
Juri Linkov 2022-11-17 09:20:15 +02:00
parent fa9777b174
commit d6c1c76ba4
1 changed files with 26 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
lisp/repeat.el
View file

@ -588,21 +588,32 @@ Used in `repeat-mode'."
(when (and (symbolp (car a))
(symbolp (car 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 (if (symbolp (car keymap))
(symbol-value (car keymap))
(car keymap))))
(desc (mapconcat (lambda (key)
(propertize (key-description key)
'face 'help-key-binding))
(or (where-is-internal command map)
(where-is-internal (nth 3 info) map))
", ")))
(insert (format-message " `%s' (bound to %s)\n" command desc))))
(insert (format-message "* `%s'\n" (car keymap)))
(let* ((map (if (symbolp (car keymap))
(symbol-value (car keymap))
(car keymap)))
(repeat-commands (cdr keymap))
map-commands commands-enter commands-exit)
(map-keymap (lambda (_key cmd) (when (symbolp cmd) (push cmd map-commands))) map)
(setq map-commands (seq-uniq map-commands))
(setq commands-enter (seq-difference repeat-commands map-commands))
(setq commands-exit (seq-difference map-commands repeat-commands))
(when (or commands-enter commands-exit) (insert "\n"))
(when commands-enter
(insert (concat "Entered with: "
(mapconcat (lambda (cmd) (format-message "`%s'" cmd))
commands-enter ", ")
"\n")))
(when commands-exit
(insert (concat "Exited with: "
(mapconcat (lambda (cmd) (format-message "`%s'" cmd))
commands-exit ", ")
"\n"))))
(when (symbolp (car keymap))
(insert (substitute-command-keys (format-message "\\{%s}" (car keymap)))))
(insert "\n")))))))
(provide 'repeat)