Mercurial > emacs
changeset 25162:ec613559ec18
(fortran-indent-new-line): Make it an alias
for reindent-then-newline-and-indent.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 03 Aug 1999 11:13:23 +0000 |
| parents | ae69eef1b98b |
| children | 451b28d426e6 |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 3 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- 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."