comparison lisp/progmodes/fortran.el @ 21432:79711f0f4079

(fortran-fill-paragraph): This is the one which must return t, not: (fortran-fill-statement):

21431:a080769e8f7d

				  (looking-at comment-line-start-skip)
				  (match-string 0))))
	  (let (fill-paragraph-function)
	    (fill-region start end justify))) ; with normal `fill-paragraph'
	(set-marker start nil)
	(set-marker end nil)))))

(defun fortran-fill-statement ()
  "Fill a fortran statement up to `fill-column'."
  (interactive)
  (if (not (save-excursion

        ;; single space.
        (while (progn 
                 (forward-line)
                 (fortran-remove-continuation)))
        (fortran-previous-statement)))
    (fortran-indent-line)
  t)                                    ; must return t for fill-paragraph

(provide 'fortran)

;;; fortran.el ends here

21432:79711f0f4079

				  (looking-at comment-line-start-skip)
				  (match-string 0))))
	  (let (fill-paragraph-function)
	    (fill-region start end justify))) ; with normal `fill-paragraph'
	(set-marker start nil)
	(set-marker end nil))))
  t)

(defun fortran-fill-statement ()
  "Fill a fortran statement up to `fill-column'."
  (interactive)
  (if (not (save-excursion

        ;; single space.
        (while (progn 
                 (forward-line)
                 (fortran-remove-continuation)))
        (fortran-previous-statement)))
    (fortran-indent-line))

(provide 'fortran)

;;; fortran.el ends here