diff options
| author | Stefan Monnier | 2004-02-04 22:55:17 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-02-04 22:55:17 +0000 |
| commit | cff301beed3776a18def846d99753ef53ecfe277 (patch) | |
| tree | 5de28c4f10c99fb338387f89edbd3b9e56a6a54b | |
| parent | da75761f2f3bfa38ce4e8840374de19b9af32b92 (diff) | |
| download | emacs-cff301beed3776a18def846d99753ef53ecfe277.tar.gz emacs-cff301beed3776a18def846d99753ef53ecfe277.zip | |
(cperl-fill-paragraph): Call fill-paragraph
with point inside rather than after the paragraph.
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 11 |
1 files changed, 6 insertions, 5 deletions
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." | |||
| 4313 | (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]"))) | 4313 | (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]"))) |
| 4314 | (point))) | 4314 | (point))) |
| 4315 | ;; Remove existing hashes | 4315 | ;; Remove existing hashes |
| 4316 | (goto-char (point-min)) | 4316 | (save-excursion |
| 4317 | (while (progn (forward-line 1) (< (point) (point-max))) | 4317 | (goto-char (point-min)) |
| 4318 | (skip-chars-forward " \t") | 4318 | (while (progn (forward-line 1) (< (point) (point-max))) |
| 4319 | (and (looking-at "#+") | 4319 | (skip-chars-forward " \t") |
| 4320 | (delete-char (- (match-end 0) (match-beginning 0))))) | 4320 | (and (looking-at "#+") |
| 4321 | (delete-char (- (match-end 0) (match-beginning 0)))))) | ||
| 4321 | 4322 | ||
| 4322 | ;; Lines with only hashes on them can be paragraph boundaries. | 4323 | ;; Lines with only hashes on them can be paragraph boundaries. |
| 4323 | (let ((paragraph-start (concat paragraph-start "\\|^[ \t#]*$")) | 4324 | (let ((paragraph-start (concat paragraph-start "\\|^[ \t#]*$")) |