Mercurial > emacs

changeset 21432:79711f0f4079

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fortran-fill-paragraph): This is the one which must return t, not: (fortran-fill-statement):
author Dave Love <fx@gnu.org>
date Wed, 08 Apr 1998 18:08:59 +0000
parents a080769e8f7d
children 25b02305130b
files lisp/progmodes/fortran.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el	Wed Apr 08 17:31:45 1998 +0000
+++ b/lisp/progmodes/fortran.el	Wed Apr 08 18:08:59 1998 +0000
@@ -1768,7 +1768,8 @@
 	  (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 @@
                  (forward-line)
                  (fortran-remove-continuation)))
         (fortran-previous-statement)))
-    (fortran-indent-line)
-  t)                                    ; must return t for fill-paragraph
+    (fortran-indent-line))
 
 (provide 'fortran)