Parent Directory | Revision Log | Patch
revision 1.90 by monnier, Wed Mar 13 16:42:47 2002 UTC | revision 1.91 by gm, Sun Apr 21 17:57:43 2002 UTC | |
---|---|---|
# | Line 1107 Return point or nil." | Line 1107 Return point or nil." |
1107 | (fortran-check-end-prog-re)))) | (fortran-check-end-prog-re)))) |
1108 | (skip-chars-forward " \t0-9") | (skip-chars-forward " \t0-9") |
1109 | (cond ((looking-at | (cond ((looking-at |
1110 | "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+[0-9]") | "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+") |
1111 | (setq count (1- count))) | (setq count (1- count))) |
1112 | ((looking-at "end[ \t]*do\\b") | ((looking-at "end[ \t]*do\\b") |
1113 | (setq count (1+ count))))) | (setq count (1+ count))))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |