From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 30 Aug 2020 15:03:05 +0000 (+0200)
Subject: Tweak background colours in shr when there's indentation
X-Git-Tag: emacs-28.0.90~6315
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d10a8ca0508bddbb7fa1cc1c16e61c63a56820d;p=emacs.git

Tweak background colours in shr when there's indentation

* lisp/net/shr.el (shr-fill-line): Get the background colour right
for the indentation, too.
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 8fdc7580320..6517596130c 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -751,10 +751,10 @@ size, and full-buffer size."
               (face (get-text-property (point) 'face)))
           ;; Extend the background to the end of the line.
           (insert ?\n)
+	  (shr-indent)
           (when face
-            (put-text-property (1- (point)) (point)
+            (put-text-property gap-start (point)
                                'face (shr-face-background face)))
-	  (shr-indent)
           (when (and (> (1- gap-start) (point-min))
                      (get-text-property (point) 'shr-url)
                      ;; The link on both sides of the newline are the