From 0db701f029fd4cb6db4305bc8e2182ae1329ff6e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 16 Apr 2003 13:50:40 +0000 Subject: [PATCH] (f90-looking-at-do, f90-find-breakpoint): Fix previous change. --- lisp/progmodes/f90.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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'. -- 2.39.2