From: Glenn Morris <rgm@gnu.org>
Date: Wed, 16 Apr 2003 13:50:40 +0000 (+0000)
Subject: (f90-looking-at-do, f90-find-breakpoint): Fix previous change.
X-Git-Tag: ttn-vms-21-2-B4~10491
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0db701f029fd4cb6db4305bc8e2182ae1329ff6e;p=emacs.git

(f90-looking-at-do, f90-find-breakpoint): Fix previous change.
---

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 47e200ee357..b0dbf9dcaea 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -855,7 +855,7 @@ For example, \"!\" or \"!!\"."
   "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 @@ is non-nil, call `f90-update-line' after inserting the continuation marker."
       (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'.