Commit d87e9a59 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Tweak shr background colour handling

* lisp/net/shr.el (shr-fill-line): Extend the background to the
end of the line when folding lines.
parent 7803e65f
Pipeline #3005 failed with stage
in 90 minutes and 1 second
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment