[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 9eb028f: * lisp/net/shr.el (shr-fill-line):
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master 9eb028f: * lisp/net/shr.el (shr-fill-line): |
Date: |
Thu, 21 Jul 2016 08:36:41 +0000 (UTC) |
branch: master
commit 9eb028f886858d6cb2a92063f5ea01c2f4b7d584
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
* 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 6897202..07009d0 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 " $")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 9eb028f: * lisp/net/shr.el (shr-fill-line):,
Katsumi Yamaoka <=