diff options
| author | Juri Linkov <juri@linkov.net> | 2022-11-17 19:54:33 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-11-17 19:54:33 +0200 |
| commit | 875a8582ec586afb2ff01b4cf8a81b0862c374d9 (patch) | |
| tree | b1d91c8e5be33429b23179511e546cf3d913756a | |
| parent | 2bf7a06c4bb6cef53bfdfdc58e31128f49b691af (diff) | |
| download | emacs-875a8582ec586afb2ff01b4cf8a81b0862c374d9.tar.gz | |
* lisp/repeat.el (describe-repeat-maps): Use fill-region-as-paragraph.
| -rw-r--r-- | lisp/repeat.el | 39 |
1 files changed, 27 insertions, 12 deletions
diff --git a/lisp/repeat.el b/lisp/repeat.el index f2e1c0ad5a7..6b2977205fe 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el @@ -595,22 +595,37 @@ Used in `repeat-mode'." (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) + (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 (or commands-enter commands-exit) + (insert "\n") + (when commands-enter + (fill-region-as-paragraph + (point) + (progn + (insert (concat "Entered with: " + (mapconcat (lambda (cmd) + (format-message "`%s'" cmd)) + (sort commands-enter #'string<) + ", ") + "\n")) + (point)))) + (when commands-exit + (fill-region-as-paragraph + (point) + (progn + (insert (concat "Exited with: " + (mapconcat (lambda (cmd) + (format-message "`%s'" cmd)) + (sort commands-exit #'string<) + ", ") + "\n")) + (point)))))) (when (symbolp (car keymap)) (insert (substitute-command-keys (format-message "\\{%s}" (car keymap))))) |