[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 1064b2f: Extend background colours in shr

From: Lars Ingebrigtsen
Subject: master 1064b2f: Extend background colours in shr
Date: Tue, 25 Aug 2020 07:58:47 -0400 (EDT)

branch: master
commit 1064b2f65ecc9b09e4ede3d8a614b9948e179aa4
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Extend background colours in shr
    * lisp/net/shr.el (shr-colorize-region): Extend backgrounds to the
    end (bug#43031).  This avoid ragged edges to the right when, for
    instance, the <body> has a bgcolor.
    (shr-face-background): Ditto.
 lisp/net/shr.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 2459530..8fdc758 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1315,7 +1315,7 @@ ones, in case fg and bg are nil."
        (when bg
          (add-face-text-property start end
-                                 (list :background (car new-colors))
+                                 (list :background (car new-colors) :extend t)
@@ -2250,7 +2250,7 @@ flags that control whether to collect or render objects."
                           (not background))
                  (setq background (cadr elem))))
              (and background
-                  (list :background background))))))
+                  (list :background background :extend t))))))
 (defun shr-expand-alignments (start end)
   (while (< (setq start (next-single-property-change

reply via email to

[Prev in Thread] Current Thread [Next in Thread]