# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1274241115 14400
# Node ID 30ebb77362b66c67f4b6cca739fe6384df0b30bb
# Parent  0706b3de1aa06d6114e571ce59b0f0ba0870e81d
* textmodes/fill.el (fill-region): Don't fill past the end.

diff -r 0706b3de1aa0 -r 30ebb77362b6 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue May 18 16:51:12 2010 -0400
+++ b/lisp/ChangeLog	Tue May 18 23:51:55 2010 -0400
@@ -1,3 +1,7 @@
+2010-05-19  Uday S Reddy  <u.s.reddy@cs.bham.ac.uk>  (tiny change)
+
+	* textmodes/fill.el (fill-region): Don't fill past the end (bug#6201).
+
 2010-05-18  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* subr.el (read-quoted-char): Resolve modifiers after key
diff -r 0706b3de1aa0 -r 30ebb77362b6 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Tue May 18 16:51:12 2010 -0400
+++ b/lisp/textmodes/fill.el	Tue May 18 23:51:55 2010 -0400
@@ -1036,7 +1036,7 @@
 	  (fill-forward-paragraph -1))
 	(if (< (point) beg)
 	    (goto-char beg))
-	(if (>= (point) initial)
+	(if (and (>= (point) initial) (< (point) end))
 	    (setq fill-pfx
 		  (fill-region-as-paragraph (point) end justify nosqueeze))
 	  (goto-char end))))