master 875a8582ec: * lisp/repeat.el (describe-repeat-maps): Use fill-region-as-paragraph.

[Juri Linkov]

branch: master
commit 875a8582ec586afb2ff01b4cf8a81b0862c374d9
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * 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 f2e1c0ad5a..6b2977205f 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)))))