Mercurial > emacs
changeset 44726:079ae47e9744
(fortran-beginning-do): Make regexp match a DO statement irrespective of
numeric label.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 21 Apr 2002 17:57:43 +0000 |
| parents | 60dbf4a139f2 |
| children | 3936c522b4d3 |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Sun Apr 21 17:36:16 2002 +0000 +++ b/lisp/progmodes/fortran.el Sun Apr 21 17:57:43 2002 +0000 @@ -1107,7 +1107,7 @@ (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)))))