# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 933678803 0
# Node ID ec613559ec186873e2deec8969f77b1bc8e8047d
# Parent  ae69eef1b98be31b78d5e5e2f47721fa25f102dc
(fortran-indent-new-line): Make it an alias
for reindent-then-newline-and-indent.

diff -r ae69eef1b98b -r ec613559ec18 lisp/progmodes/fortran.el
--- a/lisp/progmodes/fortran.el	Tue Aug 03 06:17:58 1999 +0000
+++ b/lisp/progmodes/fortran.el	Tue Aug 03 11:13:23 1999 +0000
@@ -1323,22 +1323,9 @@
 	  (fortran-blink-matching-if)
 	  (fortran-blink-matching-do)))))
 
-(defun fortran-indent-new-line ()
-  "Reindent the current Fortran line, insert a newline and indent the newline.
-An abbrev before point is expanded if variable `abbrev-mode' is non-nil."
-  (interactive)
-  (if abbrev-mode (expand-abbrev))
-  (save-excursion
-    (beginning-of-line)
-    (skip-chars-forward " \t")
-    (let ((case-fold-search t))
-      (if (or (looking-at "[0-9]")	;Reindent only where it is most
-	      (looking-at "end")	;likely to be necessary
-	      (looking-at "else")
-	      (looking-at (regexp-quote fortran-continuation-string)))
-	  (fortran-indent-line))))
-  (newline)
-  (fortran-indent-line))
+;; Historically this was a separate function which advertised itself
+;; as reindenting but only did so where `most likely to be necessary'.
+(defalias 'fortran-indent-new-line 'reindent-then-newline-and-indent)
 
 (defun fortran-indent-subprogram ()
   "Properly indent the Fortran subprogram which contains point."