diff options
| author | Felician Nemeth <felician.nemeth@gmail.com> | 2022-03-17 12:44:43 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-03-17 12:55:39 +0100 |
| commit | 6bbd1cc5c9cd3db40dcb1ce82f478473b1f78131 (patch) | |
| tree | 8929cf5cfaf21b33d8541cb235ab21e271526128 /lisp/emacs-lisp | |
| parent | 7fef2e04b219f25c64db0e83ec6f4ae707fb7f83 (diff) | |
| download | emacs-6bbd1cc5c9cd3db40dcb1ce82f478473b1f78131.tar.gz emacs-6bbd1cc5c9cd3db40dcb1ce82f478473b1f78131.tar.bz2 emacs-6bbd1cc5c9cd3db40dcb1ce82f478473b1f78131.zip | |
Format long help texts better in read-multiple-choice
* lisp/emacs-lisp/rmc.el (rmc--show-help): Format long help texts
better (bug#54430).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/rmc.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el index e635c7f200c..c450505dfd9 100644 --- a/lisp/emacs-lisp/rmc.el +++ b/lisp/emacs-lisp/rmc.el @@ -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)) |