mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Tweak shr background colour handling

Browse source 
* lisp/net/shr.el (shr-fill-line): Extend the background to the
end of the line when folding lines.
This commit is contained in:
Lars Ingebrigtsen 2019-08-29 09:18:40 +02:00
parent 7803e65ffc
commit d87e9a59cd
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/net/shr.el
View file

@ -715,8 +715,12 @@ size, and full-buffer size."
;; Success; continue.
(when (= (preceding-char) ?\s)
(delete-char -1))
(let ((gap-start (point)))
(insert "\n")
(let ((gap-start (point))
(face (get-text-property (point) 'face)))
;; Extend the background to the end of the line.
(if face
(insert (propertize "\n" 'face (shr-face-background face)))
(insert "\n"))
(shr-indent)
(when (and (> (1- gap-start) (point-min))
(get-text-property (point) 'shr-url)