diff options
| author | Richard M. Stallman | 1993-06-08 05:25:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-08 05:25:19 +0000 |
| commit | aa4ed68c3ed4434c6d56972c451d04c4fbd2a201 (patch) | |
| tree | 915b73d8979166a20801a0c9306211a506c42a33 | |
| parent | bcd5aef10781a58b3d506686e2cf5f6baecd685d (diff) | |
| download | emacs-aa4ed68c3ed4434c6d56972c451d04c4fbd2a201.tar.gz emacs-aa4ed68c3ed4434c6d56972c451d04c4fbd2a201.zip | |
(fortran-indent-new-line): Renamed from
fortran-reindent-then-newline-and-indent.
| -rw-r--r-- | lisp/progmodes/fortran.el | 6 |
1 files 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.") | |||
| 190 | (define-key fortran-mode-map "\e;" 'fortran-indent-comment) | 190 | (define-key fortran-mode-map "\e;" 'fortran-indent-comment) |
| 191 | (define-key fortran-mode-map "\e\C-h" 'mark-fortran-subprogram) | 191 | (define-key fortran-mode-map "\e\C-h" 'mark-fortran-subprogram) |
| 192 | (define-key fortran-mode-map "\e\n" 'fortran-split-line) | 192 | (define-key fortran-mode-map "\e\n" 'fortran-split-line) |
| 193 | (define-key fortran-mode-map "\n" 'fortran-reindent-then-newline-and-indent) | 193 | (define-key fortran-mode-map "\n" 'fortran-indent-new-line) |
| 194 | (define-key fortran-mode-map "\e\C-q" 'fortran-indent-subprogram) | 194 | (define-key fortran-mode-map "\e\C-q" 'fortran-indent-subprogram) |
| 195 | (define-key fortran-mode-map "\C-c\C-w" 'fortran-window-create-momentarily) | 195 | (define-key fortran-mode-map "\C-c\C-w" 'fortran-window-create-momentarily) |
| 196 | (define-key fortran-mode-map "\C-c\C-r" 'fortran-column-ruler) | 196 | (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." | |||
| 589 | (looking-at "\t"));In col 8 with a single tab to the left. | 589 | (looking-at "\t"));In col 8 with a single tab to the left. |
| 590 | (not (or (eq last-command 'fortran-indent-line) | 590 | (not (or (eq last-command 'fortran-indent-line) |
| 591 | (eq last-command | 591 | (eq last-command |
| 592 | 'fortran-reindent-then-newline-and-indent)))) | 592 | 'fortran-indent-new-line)))) |
| 593 | (save-excursion | 593 | (save-excursion |
| 594 | (re-search-backward "[^ \t0-9]" | 594 | (re-search-backward "[^ \t0-9]" |
| 595 | (save-excursion | 595 | (save-excursion |
| @@ -750,7 +750,7 @@ non-comment Fortran statement in the file, and nil otherwise." | |||
| 750 | (if fortran-blink-matching-if | 750 | (if fortran-blink-matching-if |
| 751 | (fortran-blink-matching-if)))) | 751 | (fortran-blink-matching-if)))) |
| 752 | 752 | ||
| 753 | (defun fortran-reindent-then-newline-and-indent () | 753 | (defun fortran-indent-new-line () |
| 754 | "Reindent the current Fortran line, insert a newline and indent the newline. | 754 | "Reindent the current Fortran line, insert a newline and indent the newline. |
| 755 | An abbrev before point is expanded if `abbrev-mode' is non-nil." | 755 | An abbrev before point is expanded if `abbrev-mode' is non-nil." |
| 756 | (interactive) | 756 | (interactive) |