diff options
| author | Glenn Morris | 2008-08-10 20:09:13 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-08-10 20:09:13 +0000 |
| commit | 8f010b8fbbc5e868329581750396967dca51b3c0 (patch) | |
| tree | 83d95a42402f54d7e5e493c12ccf439bae2a1066 | |
| parent | 9e7efbfa811d9464d82c1555ce6d0589008c1acd (diff) | |
| download | emacs-8f010b8fbbc5e868329581750396967dca51b3c0.tar.gz emacs-8f010b8fbbc5e868329581750396967dca51b3c0.zip | |
(fortran-end-of-subprogram): Check for a match before trying to move
there (sync from trunk 2008-06-11).
| -rw-r--r-- | lisp/progmodes/fortran.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 0e7fd0ee051..c22f128a13b 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -1122,12 +1122,12 @@ Auto-indent does not happen if a numeric ARG is used." | |||
| 1122 | (fortran-check-end-prog-re))) | 1122 | (fortran-check-end-prog-re))) |
| 1123 | (forward-line) | 1123 | (forward-line) |
| 1124 | (beginning-of-line 2) | 1124 | (beginning-of-line 2) |
| 1125 | (catch 'ok | 1125 | (when (catch 'ok |
| 1126 | (while (re-search-forward fortran-end-prog-re nil 'move) | 1126 | (while (re-search-forward fortran-end-prog-re nil 'move) |
| 1127 | (if (fortran-check-end-prog-re) | 1127 | (if (fortran-check-end-prog-re) |
| 1128 | (throw 'ok t)))) | 1128 | (throw 'ok t)))) |
| 1129 | (goto-char (match-beginning 0)) | 1129 | (goto-char (match-beginning 0)) |
| 1130 | (forward-line))))) | 1130 | (forward-line)))))) |
| 1131 | 1131 | ||
| 1132 | (defun fortran-previous-statement () | 1132 | (defun fortran-previous-statement () |
| 1133 | "Move point to beginning of the previous Fortran statement. | 1133 | "Move point to beginning of the previous Fortran statement. |