(lisp-fill-paragraph): Use fill-paragraph once again for filling a comment.

This commit is contained in:
Richard M. Stallman 1996-01-26 19:47:32 +00:00
parent 88c2fc2c6e
commit b5e89ed1d7

View file

@ -742,7 +742,7 @@ and initial semicolons."
(save-excursion
(while (and (zerop (forward-line -1))
(looking-at "^[ \t]*;")))
;; We may have gone to far. Go forward again.
;; We may have gone too far. Go forward again.
(or (looking-at ".*;")
(forward-line 1))
(point))
@ -756,7 +756,7 @@ and initial semicolons."
(let ((paragraph-start (concat paragraph-start "\\|[ \t;]*$"))
(paragraph-separate (concat paragraph-start "\\|[ \t;]*$"))
(fill-prefix comment-fill-prefix))
(fill-region (point-min) (point-max) justify t))))
(fill-paragraph justify))))
t))