# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1042746360 0
# Node ID 6a6be3d3a8985c268cbca2a775fdd5e1b6a8f86d
# Parent  f9e4999d30253dfcd1229d88fdde53dc2943f70a
(fill-region-as-paragraph): Only erase `hard' property until end-of-paragraph.

diff -r f9e4999d3025 -r 6a6be3d3a898 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Thu Jan 16 12:59:18 2003 +0000
+++ b/lisp/textmodes/fill.el	Thu Jan 16 19:46:00 2003 +0000
@@ -641,7 +641,7 @@
 		(forward-line 1)))
 
 	  (if use-hard-newlines
-	      (remove-text-properties from (point-max) '(hard nil)))
+	      (remove-list-of-text-properties from to '(hard)))
 	  ;; Make sure first line is indented (at least) to left margin...
 	  (if (or (memq justify '(right center))
 		  (< (current-indentation) (current-left-margin)))