From 875a8582ec586afb2ff01b4cf8a81b0862c374d9 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 17 Nov 2022 19:54:33 +0200 Subject: [PATCH] * lisp/repeat.el (describe-repeat-maps): Use fill-region-as-paragraph. --- lisp/repeat.el | 39 +++++++++++++++++++++++++++------------ 1 file 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))))) -- 2.39.2