From 9eb028f886858d6cb2a92063f5ea01c2f4b7d584 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 21 Jul 2016 08:36:17 +0000 Subject: [PATCH] * lisp/net/shr.el (shr-fill-line): Preserve text properties in folded lines (bug#24034). --- lisp/net/shr.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 68972020db3..07009d06be9 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -662,13 +662,12 @@ size, and full-buffer size." ;; Success; continue. (when (= (preceding-char) ?\s) (delete-char -1)) - (let ((face (get-text-property (point) 'face)) - (background-start (point))) + (let ((props (text-properties-at (point))) + (gap-start (point))) (insert "\n") (shr-indent) - (when face - (put-text-property background-start (point) 'face - `,(shr-face-background face)))) + (when props + (add-text-properties gap-start (point) props))) (setq start (point)) (shr-vertical-motion shr-internal-width) (when (looking-at " $") -- 2.39.2