Mercurial > emacs
diff lisp/progmodes/fortran.el @ 3567:2ca5f216e445
(fortran-indent-new-line): Renamed from
fortran-reindent-then-newline-and-indent.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 08 Jun 1993 05:25:19 +0000 |
parents | 927c3d8374ef |
children | 507f64624555 |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Tue Jun 08 05:16:47 1993 +0000 +++ b/lisp/progmodes/fortran.el Tue Jun 08 05:25:19 1993 +0000 @@ -190,7 +190,7 @@ (define-key fortran-mode-map "\e;" 'fortran-indent-comment) (define-key fortran-mode-map "\e\C-h" 'mark-fortran-subprogram) (define-key fortran-mode-map "\e\n" 'fortran-split-line) - (define-key fortran-mode-map "\n" 'fortran-reindent-then-newline-and-indent) + (define-key fortran-mode-map "\n" 'fortran-indent-new-line) (define-key fortran-mode-map "\e\C-q" 'fortran-indent-subprogram) (define-key fortran-mode-map "\C-c\C-w" 'fortran-window-create-momentarily) (define-key fortran-mode-map "\C-c\C-r" 'fortran-column-ruler) @@ -589,7 +589,7 @@ (looking-at "\t"));In col 8 with a single tab to the left. (not (or (eq last-command 'fortran-indent-line) (eq last-command - 'fortran-reindent-then-newline-and-indent)))) + 'fortran-indent-new-line)))) (save-excursion (re-search-backward "[^ \t0-9]" (save-excursion @@ -750,7 +750,7 @@ (if fortran-blink-matching-if (fortran-blink-matching-if)))) -(defun fortran-reindent-then-newline-and-indent () +(defun fortran-indent-new-line () "Reindent the current Fortran line, insert a newline and indent the newline. An abbrev before point is expanded if `abbrev-mode' is non-nil." (interactive)