Mercurial > emacs
comparison lisp/progmodes/fortran.el @ 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 | 888326cb8ffb |
children | edf06ac56d1f |
comparison
equal
deleted
inserted
replaced
25161:ae69eef1b98b | 25162:ec613559ec18 |
---|---|
1321 (if fortran-blink-matching-if | 1321 (if fortran-blink-matching-if |
1322 (progn | 1322 (progn |
1323 (fortran-blink-matching-if) | 1323 (fortran-blink-matching-if) |
1324 (fortran-blink-matching-do))))) | 1324 (fortran-blink-matching-do))))) |
1325 | 1325 |
1326 (defun fortran-indent-new-line () | 1326 ;; Historically this was a separate function which advertised itself |
1327 "Reindent the current Fortran line, insert a newline and indent the newline. | 1327 ;; as reindenting but only did so where `most likely to be necessary'. |
1328 An abbrev before point is expanded if variable `abbrev-mode' is non-nil." | 1328 (defalias 'fortran-indent-new-line 'reindent-then-newline-and-indent) |
1329 (interactive) | |
1330 (if abbrev-mode (expand-abbrev)) | |
1331 (save-excursion | |
1332 (beginning-of-line) | |
1333 (skip-chars-forward " \t") | |
1334 (let ((case-fold-search t)) | |
1335 (if (or (looking-at "[0-9]") ;Reindent only where it is most | |
1336 (looking-at "end") ;likely to be necessary | |
1337 (looking-at "else") | |
1338 (looking-at (regexp-quote fortran-continuation-string))) | |
1339 (fortran-indent-line)))) | |
1340 (newline) | |
1341 (fortran-indent-line)) | |
1342 | 1329 |
1343 (defun fortran-indent-subprogram () | 1330 (defun fortran-indent-subprogram () |
1344 "Properly indent the Fortran subprogram which contains point." | 1331 "Properly indent the Fortran subprogram which contains point." |
1345 (interactive) | 1332 (interactive) |
1346 (save-excursion | 1333 (save-excursion |