Mercurial > emacs
changeset 111840:b050075901af
shr.el (shr-find-fill-point): Don't break a line after a kinsoku-bol character if a non-breakable character follows.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Tue, 07 Dec 2010 01:21:09 +0000 |
| parents | 833427a2cdd5 |
| children | 25e3c2636c1f |
| files | lisp/gnus/ChangeLog lisp/gnus/shr.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Mon Dec 06 23:27:17 2010 +0000 +++ b/lisp/gnus/ChangeLog Tue Dec 07 01:21:09 2010 +0000 @@ -1,3 +1,8 @@ +2010-12-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * shr.el (shr-find-fill-point): Don't break a line after a kinsoku-bol + character if a non-breakable character follows. + 2010-12-06 Lars Magne Ingebrigtsen <larsi@gnus.org> * proto-stream.el (proto-stream-open-tls): Return nil if we don't get
--- a/lisp/gnus/shr.el Mon Dec 06 23:27:17 2010 +0000 +++ b/lisp/gnus/shr.el Tue Dec 07 01:21:09 2010 +0000 @@ -304,8 +304,8 @@ (if (eq (preceding-char) ?') (not (memq (char-after (- (point) 2)) (list nil ?\n ? ))) - ;; There're some kinsoku CJK chars that aren't breakable. (and (shr-char-kinsoku-bol-p (preceding-char)) + (shr-char-breakable-p (following-char)) (not (shr-char-kinsoku-bol-p (following-char))))) (shr-char-kinsoku-eol-p (following-char)))) (backward-char 1))