From eb9d461a8edd1a515f361a3a5fdc2e886264b0d9 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 21 Jul 2016 08:33:41 +0000 Subject: [PATCH] * lisp/net/shr.el (shr-fill-line): Withdraw the last commit (4157159). --- lisp/net/shr.el | 9 +++++---- 1 file 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 " $") -- 2.39.2