andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(cperl-fill-paragraph): Call fill-paragraph

Browse source 
with point inside rather than after the paragraph.
This commit is contained in:
Stefan Monnier 2004-02-04 22:55:17 +00:00
parent da75761f2f
commit cff301beed
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/progmodes/cperl-mode.el
View file

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