From: Dave Love <fx@gnu.org>
Date: Wed, 8 Apr 1998 18:08:59 +0000 (+0000)
Subject: (fortran-fill-paragraph): This is the one
X-Git-Tag: emacs-20.3~1642
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d060bebe753f34bdd55d36f9ff06bb669ef581c;p=emacs.git

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

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index a20b42a19b5..da30a95d0f7 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -1768,7 +1768,8 @@ Intended as the value of `fill-paragraph-function'."
 	  (let (fill-paragraph-function)
 	    (fill-region start end justify))) ; with normal `fill-paragraph'
 	(set-marker start nil)
-	(set-marker end nil)))))
+	(set-marker end nil))))
+  t)
 
 (defun fortran-fill-statement ()
   "Fill a fortran statement up to `fill-column'."
@@ -1791,8 +1792,7 @@ Intended as the value of `fill-paragraph-function'."
                  (forward-line)
                  (fortran-remove-continuation)))
         (fortran-previous-statement)))
-    (fortran-indent-line)
-  t)                                    ; must return t for fill-paragraph
+    (fortran-indent-line))
 
 (provide 'fortran)