# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 933105980 0
# Node ID 4b9caa006ac3a5a6585cfeefe0019e9edfd30d86
# Parent  85b8423006846ba22cb534cf96bad354b06057fe
(fill-region-as-paragraph): Fix previous change.

diff -r 85b842300684 -r 4b9caa006ac3 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Tue Jul 27 20:01:33 1999 +0000
+++ b/lisp/textmodes/fill.el	Tue Jul 27 20:06:20 1999 +0000
@@ -546,9 +546,13 @@
 		      ;; 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
-						    (current-left-margin)
-						    (length fill-prefix))))))
+			  ;; Make sure we take SOMETHING after the
+			  ;; fill prefix if any.
+			  (fill-find-break-point
+			   (save-excursion
+			     (goto-char linebeg)
+			     (move-to-column prefixcol)
+			     (point))))))
 
 		;; If the left margin and fill prefix by themselves
 		;; pass the fill-column, keep at least one word.