[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 eb9d461: * lisp/net/shr.el (shr-fill-line): Withd
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] emacs-25 eb9d461: * lisp/net/shr.el (shr-fill-line): Withdraw the last commit (4157159). |
Date: |
Thu, 21 Jul 2016 08:33:42 +0000 (UTC) |
branch: emacs-25
commit eb9d461a8edd1a515f361a3a5fdc2e886264b0d9
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
* 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 8718e4f..2c8ff79 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 " $")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 eb9d461: * lisp/net/shr.el (shr-fill-line): Withdraw the last commit (4157159).,
Katsumi Yamaoka <=