# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1075935317 0
# Node ID 80c9f33653f71dcaf6ca1c71acc22b661804dd06
# Parent  dce224f6353c258e1f5fb094f6e6119f91107998
(cperl-fill-paragraph): Call fill-paragraph
with point inside rather than after the paragraph.

diff -r dce224f6353c -r 80c9f33653f7 lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Wed Feb 04 22:19:00 2004 +0000
+++ b/lisp/progmodes/cperl-mode.el	Wed Feb 04 22:55:17 2004 +0000
@@ -4313,11 +4313,12 @@
 			 (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")))
 	   (point)))
 	;; Remove existing hashes
-	(goto-char (point-min))
-	(while (progn (forward-line 1) (< (point) (point-max)))
-	  (skip-chars-forward " \t")
-	  (and (looking-at "#+")
-	       (delete-char (- (match-end 0) (match-beginning 0)))))
+	(save-excursion
+	  (goto-char (point-min))
+	  (while (progn (forward-line 1) (< (point) (point-max)))
+	    (skip-chars-forward " \t")
+	    (and (looking-at "#+")
+		 (delete-char (- (match-end 0) (match-beginning 0))))))
 
 	;; Lines with only hashes on them can be paragraph boundaries.
 	(let ((paragraph-start (concat paragraph-start "\\|^[ \t#]*$"))