/[emacs]/emacs/lisp/progmodes/fortran.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/fortran.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)))))

Legend:
Removed from v.1.90  
changed lines
  Added in v.1.91

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26