1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00

Format long help texts better in read-multiple-choice

* lisp/emacs-lisp/rmc.el (rmc--show-help): Format long help texts
better (bug#54430).
This commit is contained in:
Felician Nemeth 2022-03-17 12:44:43 +01:00 committed by Lars Ingebrigtsen
parent 7fef2e04b2
commit 6bbd1cc5c9
2 changed files with 32 additions and 4 deletions

View file

@ -112,9 +112,15 @@
(goto-char start)
(dolist (line (split-string text "\n"))
(end-of-line)
(if (bolp)
(insert line "\n")
(insert line))
(if (not (bolp))
(insert line)
(insert (make-string
(max (- (* (mod (1- times) columns)
(+ fill-column 4))
(current-column))
0)
?\s))
(insert line "\n"))
(forward-line 1))))))))
buf))