Mercurial > emacs
changeset 80711:3c8c80b9ca33
(fortran-end-of-subprogram): Check for a match before trying to move
there (sync from trunk 2008-06-11).
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 10 Aug 2008 20:09:13 +0000 |
| parents | 2eaab780bfe3 |
| children | 84876a89aba6 |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Sun Aug 10 20:08:50 2008 +0000 +++ b/lisp/progmodes/fortran.el Sun Aug 10 20:09:13 2008 +0000 @@ -1122,12 +1122,12 @@ (fortran-check-end-prog-re))) (forward-line) (beginning-of-line 2) - (catch 'ok - (while (re-search-forward fortran-end-prog-re nil 'move) - (if (fortran-check-end-prog-re) - (throw 'ok t)))) - (goto-char (match-beginning 0)) - (forward-line))))) + (when (catch 'ok + (while (re-search-forward fortran-end-prog-re nil 'move) + (if (fortran-check-end-prog-re) + (throw 'ok t)))) + (goto-char (match-beginning 0)) + (forward-line)))))) (defun fortran-previous-statement () "Move point to beginning of the previous Fortran statement.