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

* lisp/repeat.el (describe-repeat-maps): Print all bound keys (bug#49265).

Browse source
This commit is contained in:
Robert Pluim 2021-11-18 19:42:44 +02:00 • committed by Juri Linkov
parent 6fc94fb99e
commit bf824843f4
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/repeat.el
View file

@ -533,10 +533,12 @@ Used in `repeat-mode'."
(dolist (command (sort (cdr keymap) 'string-lessp))
(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))))
(desc (mapconcat (lambda (key)
(format-message "`%s'" (key-description key)))
(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"))))))
(provide 'repeat)