# HG changeset patch # User Richard M. Stallman # Date 739517119 0 # Node ID 2ca5f216e44592659c78c8ee196df406c546a18b # Parent dc2b64ef30dc45faf0912e5385e7e6d650071881 (fortran-indent-new-line): Renamed from fortran-reindent-then-newline-and-indent. diff -r dc2b64ef30dc -r 2ca5f216e445 lisp/progmodes/fortran.el --- 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)