masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-03 10:53:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Be more careful about aligning prefix lines in 'visual-wrap-prefix-mode'

Browse source 
* lisp/visual-wrap.el (visual-wrap--apply-to-line): Ensure we don't
apply the 'min-width' property across multiple lines (bug#72681).
This commit is contained in:
Jim Porter 2024-08-17 13:21:00 -07:00
parent 4f1987cf77
commit 135da3556b
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/visual-wrap.el
View file

@ -121,9 +121,15 @@ extra indent = 2
(next-line-prefix (visual-wrap--content-prefix
first-line-prefix position)))
(when (numberp next-line-prefix)
;; Set a minimum width for the prefix so it lines up correctly
;; with subsequent lines. Make sure not to do this past the end
;; of the line though! (`fill-match-adaptive-prefix' could
;; potentially return a prefix longer than the current line in
;; the buffer.)
(put-text-property
position (+ position (length first-line-prefix)) 'display
`(min-width ((,next-line-prefix . width)))))
position (min (+ position (length first-line-prefix))
(line-end-position))
'display `(min-width ((,next-line-prefix . width)))))
(setq next-line-prefix (visual-wrap--adjust-prefix next-line-prefix))
(put-text-property
position (line-end-position) 'wrap-prefix