[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."
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
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 1064b2f: Extend background colours in shr,
Lars Ingebrigtsen <=