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:
parent
7fef2e04b2
commit
6bbd1cc5c9
2 changed files with 32 additions and 4 deletions
|
|
@ -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))
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue