diff options
| -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#]*$")) |