From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 4 Feb 2004 22:55:17 +0000 (+0000)
Subject: (cperl-fill-paragraph): Call fill-paragraph
X-Git-Tag: ttn-vms-21-2-B4~7745
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cff301beed3776a18def846d99753ef53ecfe277;p=emacs.git

(cperl-fill-paragraph): Call fill-paragraph
with point inside rather than after the paragraph.
---

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 7202a083d79..155648fadb1 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -4313,11 +4313,12 @@ indentation and initial hashes.  Behaves usually outside of comment."
 			 (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#]*$"))