# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1018580189 0
# Node ID 235f5029534daab93b28cd61ada06b1d8859559c
# Parent  d62ce2e3b4737f19e9f491b3d993612a8e5d3919
(fill-region-as-paragraph): Use save-excursion instead of relying on
forward-line to bring us where we started.

diff -r d62ce2e3b473 -r 235f5029534d lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Fri Apr 12 00:01:53 2002 +0000
+++ b/lisp/textmodes/fill.el	Fri Apr 12 02:56:29 2002 +0000
@@ -660,9 +660,9 @@
 		      (progn
 			(delete-horizontal-space)
 			(justify-current-line justify t t))
-		    (forward-line -1)
-		    (justify-current-line justify nil t)
-		    (forward-line 1))))))
+		    (save-excursion
+		      (forward-line -1)
+		      (justify-current-line justify nil t)))))))
 	;; Leave point after final newline.
 	(goto-char to))
       (unless (eobp)