# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 871401137 0
# Node ID 09398d892cf76181fecc8df61b1cefa329929010
# Parent  d28bff25d9a6be5dcb4995226a4ceed41a6f82ac
(fill-region-as-paragraph):
When justifying, cope if line ends in spaces and no newline.

diff -r d28bff25d9a6 -r 09398d892cf7 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Tue Aug 12 11:59:41 1997 +0000
+++ b/lisp/textmodes/fill.el	Tue Aug 12 15:52:17 1997 +0000
@@ -513,8 +513,10 @@
 			 (setq prefixcol (current-column))))))
 	      ;; Justify the line just ended, if desired.
 	      (if justify
-		  (if (eobp)
-		      (justify-current-line justify t t)
+                (if (save-excursion (skip-chars-forward " \t") (eobp))
+                    (progn
+                      (delete-horizontal-space)
+                      (justify-current-line justify t t))
 		    (forward-line -1)
 		    (justify-current-line justify nil t)
 		    (forward-line 1))))))