diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/fortran.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 4b54bb16ed7..dc622e675a1 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -904,10 +904,14 @@ Auto-indent does not happen if a numeric ARG is used." | |||
| 904 | "Moves point to the end of the current Fortran subprogram." | 904 | "Moves point to the end of the current Fortran subprogram." |
| 905 | (interactive) | 905 | (interactive) |
| 906 | (let ((case-fold-search t)) | 906 | (let ((case-fold-search t)) |
| 907 | (beginning-of-line 2) | 907 | (if (save-excursion ; on END |
| 908 | (re-search-forward fortran-end-prog-re nil 'move) | 908 | (beginning-of-line) |
| 909 | (goto-char (match-beginning 0)) | 909 | (looking-at fortran-end-prog-re)) |
| 910 | (forward-line))) | 910 | (forward-line) |
| 911 | (beginning-of-line 2) | ||
| 912 | (re-search-forward fortran-end-prog-re nil 'move) | ||
| 913 | (goto-char (match-beginning 0)) | ||
| 914 | (forward-line)))) | ||
| 911 | 915 | ||
| 912 | (defun mark-fortran-subprogram () | 916 | (defun mark-fortran-subprogram () |
| 913 | "Put mark at end of Fortran subprogram, point at beginning. | 917 | "Put mark at end of Fortran subprogram, point at beginning. |