# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 744015683 0
# Node ID d00889d02f75f068f9a693392a874f79caefb237
# Parent  2173e8c3723b7385028f6d19d6d01184d67aae4d
(fill-region-as-paragraph): Move misplaced paren
ending `(if (eobp) nil ...)'.
In the loop that avoids breaking after `.' with one space,
break if we actually have two spaces.

diff -r 2173e8c3723b -r d00889d02f75 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Fri Jul 30 05:58:29 1993 +0000
+++ b/lisp/textmodes/fill.el	Fri Jul 30 07:01:23 1993 +0000
@@ -161,6 +161,7 @@
 	    ;; avoid putting it at the end of the line.
 	    (while (and (> (point) (+ linebeg 2))
 			(eq (preceding-char) ?\ )
+			(not (eq (following-char) ?\ ))
 			(eq (char-after (- (point) 2)) ?\.))
 	      (forward-char -2)
 	      (skip-chars-backward "^ \n" linebeg))
@@ -171,7 +172,7 @@
 		  (skip-chars-forward " ")
 		  (skip-chars-forward "^ \n"))
 	      ;; Normally, move back over the single space between the words.
-	      (forward-char -1)))
+	      (forward-char -1))
 	    (if (and fill-prefix (zerop prefixcol)
 		     (< (- (point) (point-min)) (length fill-prefix))
 		     (string= (buffer-substring (point-min) (point))
@@ -180,7 +181,7 @@
 		;; This handles the first line of the paragraph.
 		(progn
 		  (skip-chars-forward " ")
-		  (skip-chars-forward "^ \n")))
+		  (skip-chars-forward "^ \n"))))
 	  ;; Replace all whitespace here with one newline.
 	  ;; Insert before deleting, so we don't forget which side of
 	  ;; the whitespace point or markers used to be on.