From 9d10a8ca0508bddbb7fa1cc1c16e61c63a56820d Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 30 Aug 2020 17:03:05 +0200 Subject: [PATCH] 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 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 -- 2.39.2