]> git.eshelyaron.com Git - emacs.git/commitdiff
projects / emacs.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 71209b2)
Extend background colours in shr
authorLars Ingebrigtsen <larsi@gnus.org>
Tue, 25 Aug 2020 11:57:00 +0000 (13:57 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Tue, 25 Aug 2020 11:57:00 +0000 (13:57 +0200)
* 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 patch | blob | history

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 24595301b7985b562da0efdaea19ad1d1e6e197f..8fdc758032000d3b23c2038837f7c75e04b930ec 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1315,7 +1315,7 @@ ones, in case fg and bg are nil."
                                  t))
        (when bg
          (add-face-text-property start end
-                                 (list :background (car new-colors))
+                                 (list :background (car new-colors) :extend t)
                                  t)))
       new-colors)))
 
@@ -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
Unnamed repository; edit this file 'description' to name the repository.