# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 932714841 0
# Node ID c0012b8a093ee15c0a822932c06028d73edebf15
# Parent  bf96605e00eecdae15ace1da6ecb1ca7022c7987
(fill-region-as-paragraph): Avoid backing up
before left margin and fill-prefix by fill-find-break-point.

diff -r bf96605e00ee -r c0012b8a093e lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Fri Jul 23 07:20:12 1999 +0000
+++ b/lisp/textmodes/fill.el	Fri Jul 23 07:27:21 1999 +0000
@@ -546,7 +546,11 @@
 		      ;; character to find the correct break point.
 		      (if (not (and (eq (charset-after (1- (point))) 'ascii)
 				    (eq (charset-after (point)) 'ascii)))
-			  (fill-find-break-point linebeg))))
+			  (fill-find-break-point
+			   (+ linebeg
+			      (current-left-margin)
+			      (if fill-prefix (string-width fill-prefix)
+				0))))))
 
 		;; If the left margin and fill prefix by themselves
 		;; pass the fill-column, keep at least one word.