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

* lisp/repeat.el (describe-repeat-maps): Use help-fns--analyze-function.

Browse source 
Print keys bound to commands in every keymap (bug#49265)
This commit is contained in:
Robert Pluim 2021-11-15 19:50:30 +02:00 • committed by Juri Linkov
parent c840bfe7e1
commit fe2ac7cb7c
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/repeat.el
View file

@ -507,10 +507,13 @@ See `describe-repeat-maps' for a list of all repeatable commands."
repeat-echo-mode-line-string)))
(force-mode-line-update t)))
(declare-function help-fns--analyze-function "help-fns" (function))
(defun describe-repeat-maps ()
"Describe mappings of commands repeatable by symbol property `repeat-map'.
Used in `repeat-mode'."
(interactive)
(require 'help-fns)
(help-setup-xref (list #'describe-repeat-maps)
(called-interactively-p 'interactive))
(let ((keymaps nil))
@ -527,7 +530,12 @@ Used in `repeat-mode'."
(princ (format-message "`%s' keymap is repeatable by these commands:\n"
(car keymap)))
(dolist (command (sort (cdr keymap) 'string-lessp))
(princ (format-message " `%s'\n" command)))
(let* ((info (help-fns--analyze-function command))
(map (list (symbol-value (car keymap))))
(desc (key-description
(or (where-is-internal command map t)
(where-is-internal (nth 3 info) map t)))))
(princ (format-message " `%s' (bound to '%s')\n" command desc))))
(princ "\n"))))))
(provide 'repeat)