# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1050501040 0
# Node ID 2e4300c14e9594186dc29e378183c2b5b8d0747f
# Parent  d36ea119e3cfbcc186f6ba3083f125762345fc0e
(f90-looking-at-do, f90-find-breakpoint): Fix previous change.

diff -r d36ea119e3cf -r 2e4300c14e95 lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Wed Apr 16 12:27:05 2003 +0000
+++ b/lisp/progmodes/f90.el	Wed Apr 16 13:50:40 2003 +0000
@@ -855,7 +855,7 @@
   "Return (\"do\" NAME) if a do statement starts after point.
 NAME is nil if the statement has no label."
   (if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\\(do\\)\\>")
-      (list (match-string 3) (match-string 2)))
+      (list (match-string 3) (match-string 2))))
 
 (defsubst f90-looking-at-select-case ()
   "Return (\"select\" NAME) if a select-case statement starts after point.
@@ -1519,7 +1519,7 @@
       (forward-char (if (looking-at f90-no-break-re) 2 1))
     (backward-char)
     (or (looking-at f90-no-break-re)
-        (forward-char)))))
+        (forward-char))))
 
 (defun f90-do-auto-fill ()
   "Break line if non-white characters beyond `fill-column'.