(fortran-indent-new-line): Make it an alias

for reindent-then-newline-and-indent.

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index bd0d0aad0046fba318f3649e0d93bb3f8e1b1f8c..120a885d017fc49a9c091a58325c88e96d487813 100644 (file)
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -1323,22 +1323,9 @@ Return point or nil."
          (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."