procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/net/shr.el (shr-fill-line): Withdraw the last commit (4157159).

Browse source
This commit is contained in:
Katsumi Yamaoka 2016-07-21 08:33:41 +00:00
parent 4157159a37
commit eb9d461a8e
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/net/shr.el
View file

@ -636,12 +636,13 @@ size, and full-buffer size."
;; Success; continue. ;; Success; continue.
(when (= (preceding-char) ?\s) (when (= (preceding-char) ?\s)
(delete-char -1)) (delete-char -1))
(let ((props (text-properties-at (point))) (let ((face (get-text-property (point) 'face))
(gap-start (point))) (background-start (point)))
(insert "\n") (insert "\n")
(shr-indent) (shr-indent)
(when props (when face
(add-text-properties gap-start (point) props))) (put-text-property background-start (point) 'face
`,(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 " $")