From 5aca2648a2166f2ed3aa48e18a4607bd072bea81 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 3 Aug 1999 11:13:23 +0000 Subject: [PATCH] (fortran-indent-new-line): Make it an alias for reindent-then-newline-and-indent. --- lisp/progmodes/fortran.el | 19 +++---------------- 1 file changed, 3 insertions(+), 16 deletions(-) diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index bd0d0aad004..120a885d017 100644 --- 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." -- 2.39.5