Commit 48ba8195 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

shr.el (shr-insert): Set shr-start after deleting trailing space; don't delete...

shr.el (shr-insert): Set shr-start after deleting trailing space; don't delete it within indentation.
parent 156e3f9c
2010-12-16 Katsumi Yamaoka <yamaoka@jpl.org>
* shr.el (shr-insert): Set shr-start after deleting trailing space;
don't delete it within indentation.
2010-12-15 Lars Magne Ingebrigtsen <larsi@gnus.org>
 
* nnimap.el (nnimap-retrieve-group-data-early): Fix the syntax of the
......
......@@ -253,16 +253,12 @@ redirects somewhere else."
(when (and (bolp)
(> shr-indentation 0))
(shr-indent))
;; The shr-start is a special variable that is used to pass
;; upwards the first point in the buffer where the text really
;; starts.
(unless shr-start
(setq shr-start (point)))
;; No space is needed behind a wide character categorized as
;; kinsoku-bol, between characters both categorized as nospace,
;; or at the beginning of a line.
(let (prev)
(when (and (eq (preceding-char) ? )
(when (and (> (current-column) shr-indentation)
(eq (preceding-char) ? )
(or (= (line-beginning-position) (1- (point)))
(and (shr-char-breakable-p
(setq prev (char-after (- (point) 2))))
......@@ -270,6 +266,11 @@ redirects somewhere else."
(and (shr-char-nospace-p prev)
(shr-char-nospace-p (aref elem 0)))))
(delete-char -1)))
;; The shr-start is a special variable that is used to pass
;; upwards the first point in the buffer where the text really
;; starts.
(unless shr-start
(setq shr-start (point)))
(insert elem)
(let (found)
(while (and (> (current-column) shr-width)
......
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