diff options
| author | Glenn Morris | 2002-04-21 17:57:43 +0000 |
|---|---|---|
| committer | Glenn Morris | 2002-04-21 17:57:43 +0000 |
| commit | 3baf8754b82ed331ed5843da37b7d092a1eba3b5 (patch) | |
| tree | 3dc1323de868e66c14dd738938eba3db02a2bd67 | |
| parent | 5bba9cfd48665a36a48ac95924c8084e376c135e (diff) | |
| download | emacs-3baf8754b82ed331ed5843da37b7d092a1eba3b5.tar.gz emacs-3baf8754b82ed331ed5843da37b7d092a1eba3b5.zip | |
(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 8d4d0131180..40780f1bc85 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -1107,7 +1107,7 @@ Return point or nil." | |||
| 1107 | (fortran-check-end-prog-re)))) | 1107 | (fortran-check-end-prog-re)))) |
| 1108 | (skip-chars-forward " \t0-9") | 1108 | (skip-chars-forward " \t0-9") |
| 1109 | (cond ((looking-at | 1109 | (cond ((looking-at |
| 1110 | "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+[0-9]") | 1110 | "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+") |
| 1111 | (setq count (1- count))) | 1111 | (setq count (1- count))) |
| 1112 | ((looking-at "end[ \t]*do\\b") | 1112 | ((looking-at "end[ \t]*do\\b") |
| 1113 | (setq count (1+ count))))) | 1113 | (setq count (1+ count))))) |