From 3baf8754b82ed331ed5843da37b7d092a1eba3b5 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 21 Apr 2002 17:57:43 +0000 Subject: [PATCH] (fortran-beginning-do): Make regexp match a DO statement irrespective of numeric label. --- lisp/progmodes/fortran.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 8d4d0131180..40780f1bc85 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))))) -- 2.39.2