# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 796781479 0
# Node ID 7d4805feb4138cf193c5ec21c59440c85e011adc
# Parent  6a26526998f660d3b7773f569abcfd34445a7848
(fill-region-as-paragraph): Remove fill-prefix first, then remove indentation.

diff -r 6a26526998f6 -r 7d4805feb413 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Sat Apr 01 05:01:32 1995 +0000
+++ b/lisp/textmodes/fill.el	Sun Apr 02 00:11:19 1995 +0000
@@ -211,9 +211,6 @@
 	  (if (or (memq justify '(right center))
 		  (< (current-indentation) (current-left-margin)))
 	      (indent-to-left-margin))
-	  ;; and remove indentation from other lines.
-	  (beginning-of-line 2)
-	  (indent-region (point) (point-max) 0)
 	  ;; Delete the fill prefix from every line except the first.
 	  ;; The first line may not even have a fill prefix.
 	  (goto-char from)
@@ -235,7 +232,12 @@
 		   (goto-char from)
 		   (and (looking-at fpre) (goto-char (match-end 0)))
 		   (setq from (point)))))
-	  ;; "from" is now before the text to fill,
+	  ;; Remove indentation from lines other than the first.
+	  (beginning-of-line 2)
+	  (indent-region (point) (point-max) 0)
+	  (goto-char from)
+
+	  ;; FROM, and point, are now before the text to fill,
 	  ;; but after any fill prefix on the first line.
 
 	  ;; Make sure sentences ending at end of line get an extra space.