Mercurial > emacs
comparison lisp/progmodes/fortran.el @ 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 | b13e662ea2b3 |
| children | b7f97570f3f7 |
comparison
equal
deleted
inserted
replaced
| 44725:60dbf4a139f2 | 44726:079ae47e9744 |
|---|---|
| 1105 ;; Keep local to subprogram | 1105 ;; Keep local to subprogram |
| 1106 (not (and (looking-at fortran-end-prog-re) | 1106 (not (and (looking-at fortran-end-prog-re) |
| 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))))) |
| 1114 (and (= count 0) | 1114 (and (= count 0) |
| 1115 ;; All pairs accounted for. | 1115 ;; All pairs accounted for. |