diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2016-07-20 22:56:42 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2016-07-20 22:56:42 +0000 |
| commit | 4157159a37b43712440da91a45a6d5f71eb96e8a (patch) | |
| tree | 731830f2367ef630e3fa087e1a7efaa8b5a29ec5 /lisp/net/shr.el | |
| parent | 9a41cd1215e60415777bb139c0669100e347375b (diff) | |
| download | emacs-4157159a37b43712440da91a45a6d5f71eb96e8a.tar.gz emacs-4157159a37b43712440da91a45a6d5f71eb96e8a.tar.bz2 emacs-4157159a37b43712440da91a45a6d5f71eb96e8a.zip | |
* lisp/net/shr.el (shr-fill-line):
Preserve text properties in folded lines (bug#24034).
Diffstat (limited to 'lisp/net/shr.el')
| -rw-r--r-- | lisp/net/shr.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 2c8ff79763f..8718e4ffaea 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -636,13 +636,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 " $") |