From: Kenichi Handa <handa@m17n.org>
Date: Fri, 23 Jul 1999 07:27:21 +0000 (+0000)
Subject: (fill-region-as-paragraph): Avoid backing up
X-Git-Tag: emacs-pretest-21.0.90~7398
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca29a33e6a110dbf3c420a813513253b841303f9;p=emacs.git

(fill-region-as-paragraph): Avoid backing up
before left margin and fill-prefix by fill-find-break-point.
---

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index fe8e5250dc3..8d38e7f6e0f 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -546,7 +546,11 @@ space does not end a sentence, so don't break a line there."
 		      ;; 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.