diff options
| -rw-r--r-- | lisp/net/shr.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 8718e4ffaea..2c8ff79763f 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -636,12 +636,13 @@ size, and full-buffer size." ;; Success; continue. (when (= (preceding-char) ?\s) (delete-char -1)) - (let ((props (text-properties-at (point))) - (gap-start (point))) + (let ((face (get-text-property (point) 'face)) + (background-start (point))) (insert "\n") (shr-indent) - (when props - (add-text-properties gap-start (point) props))) + (when face + (put-text-property background-start (point) 'face + `,(shr-face-background face)))) (setq start (point)) (shr-vertical-motion shr-internal-width) (when (looking-at " $") |