From: Katsumi Yamaoka Date: Tue, 7 Dec 2010 01:21:09 +0000 (+0000) Subject: shr.el (shr-find-fill-point): Don't break a line after a kinsoku-bol character if... X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~30 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6568edea53db356657f44670573dfb046391c6ed;p=emacs.git shr.el (shr-find-fill-point): Don't break a line after a kinsoku-bol character if a non-breakable character follows. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 0e34fbc5f64..c0446207028 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2010-12-07 Katsumi Yamaoka + + * 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 * proto-stream.el (proto-stream-open-tls): Return nil if we don't get diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index fafe3d94dea..4f3af112a32 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -304,8 +304,8 @@ redirects somewhere else." (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))