From aa4ed68c3ed4434c6d56972c451d04c4fbd2a201 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 8 Jun 1993 05:25:19 +0000 Subject: [PATCH] (fortran-indent-new-line): Renamed from fortran-reindent-then-newline-and-indent. --- lisp/progmodes/fortran.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index f7b5d31a094..10e8c3f405c 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -190,7 +190,7 @@ This variable used in TAB-format mode.") (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 @@ Auto-indent does not happen if a numeric arg is used." (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 @@ non-comment Fortran statement in the file, and nil otherwise." (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)