[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 9d10a8c 2/2: Tweak background colours in shr when there's indenta
From: |
Lars Ingebrigtsen |
Subject: |
master 9d10a8c 2/2: Tweak background colours in shr when there's indentation |
Date: |
Sun, 30 Aug 2020 11:03:18 -0400 (EDT) |
branch: master
commit 9d10a8ca0508bddbb7fa1cc1c16e61c63a56820d
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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.
---
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 8fdc758..6517596 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