Commit 2d060beb authored by Dave Love's avatar Dave Love
Browse files

(fortran-fill-paragraph): This is the one

which must return t, not:
(fortran-fill-statement):
parent 79f13bba
...@@ -1768,7 +1768,8 @@ Intended as the value of `fill-paragraph-function'." ...@@ -1768,7 +1768,8 @@ Intended as the value of `fill-paragraph-function'."
(let (fill-paragraph-function) (let (fill-paragraph-function)
(fill-region start end justify))) ; with normal `fill-paragraph' (fill-region start end justify))) ; with normal `fill-paragraph'
(set-marker start nil) (set-marker start nil)
(set-marker end nil))))) (set-marker end nil))))
t)
(defun fortran-fill-statement () (defun fortran-fill-statement ()
"Fill a fortran statement up to `fill-column'." "Fill a fortran statement up to `fill-column'."
...@@ -1791,8 +1792,7 @@ Intended as the value of `fill-paragraph-function'." ...@@ -1791,8 +1792,7 @@ Intended as the value of `fill-paragraph-function'."
(forward-line) (forward-line)
(fortran-remove-continuation))) (fortran-remove-continuation)))
(fortran-previous-statement))) (fortran-previous-statement)))
(fortran-indent-line) (fortran-indent-line))
t) ; must return t for fill-paragraph
(provide 'fortran) (provide 'fortran)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment