procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(fortran-end-of-subprogram): Check for a match before trying to move

Browse source 
there (sync from trunk 2008-06-11).
This commit is contained in:
Glenn Morris 2008-08-10 20:09:13 +00:00
parent 9e7efbfa81
commit 8f010b8fbb
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/progmodes/fortran.el
View file

@ -1122,12 +1122,12 @@ Auto-indent does not happen if a numeric ARG is used."
(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.