Commit 4157159a authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

* lisp/net/shr.el (shr-fill-line):

Preserve text properties in folded lines (bug#24034).
parent 9a41cd12
...@@ -636,13 +636,12 @@ size, and full-buffer size." ...@@ -636,13 +636,12 @@ size, and full-buffer size."
;; Success; continue. ;; Success; continue.
(when (= (preceding-char) ?\s) (when (= (preceding-char) ?\s)
(delete-char -1)) (delete-char -1))
(let ((face (get-text-property (point) 'face)) (let ((props (text-properties-at (point)))
(background-start (point))) (gap-start (point)))
(insert "\n") (insert "\n")
(shr-indent) (shr-indent)
(when face (when props
(put-text-property background-start (point) 'face (add-text-properties gap-start (point) props)))
`,(shr-face-background face))))
(setq start (point)) (setq start (point))
(shr-vertical-motion shr-internal-width) (shr-vertical-motion shr-internal-width)
(when (looking-at " $") (when (looking-at " $")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment