diff options
| author | Glenn Morris <[email protected]> | 2002-04-21 17:57:43 +0000 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2002-04-21 17:57:43 +0000 |
| commit | 3baf8754b82ed331ed5843da37b7d092a1eba3b5 (patch) | |
| tree | 3dc1323de868e66c14dd738938eba3db02a2bd67 | |
| parent | 5bba9cfd48665a36a48ac95924c8084e376c135e (diff) | |
(fortran-beginning-do): Make regexp match a DO statement irrespective of
numeric label.
| -rw-r--r-- | lisp/progmodes/fortran.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 8d4d013118..40780f1bc8 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -1107,7 +1107,7 @@ Return point or nil." (fortran-check-end-prog-re)))) (skip-chars-forward " \t0-9") (cond ((looking-at - "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+[0-9]") + "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+") (setq count (1- count))) ((looking-at "end[ \t]*do\\b") (setq count (1+ count))))) |