[Emacs-diffs] Changes to emacs/lisp/progmodes/fortran.el, v [EMACS_22_BASE]

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Glenn Morris <gm>       08/08/10 20:09:14

Index: fortran.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/fortran.el,v
retrieving revision 1.126.2.7
retrieving revision 1.126.2.8
diff -u -b -r1.126.2.7 -r1.126.2.8
--- fortran.el  18 May 2008 04:16:57 -0000      1.126.2.7
+++ fortran.el  10 Aug 2008 20:09:13 -0000      1.126.2.8
@@ -1122,12 +1122,12 @@
                 (fortran-check-end-prog-re)))
          (forward-line)
        (beginning-of-line 2)
-       (catch 'ok
+       (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)))))
+          (forward-line))))))
 
 (defun fortran-previous-statement ()
   "Move point to beginning of the previous Fortran statement.