diff options
| author | Glenn Morris <rgm@gnu.org> | 2003-04-16 13:50:40 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2003-04-16 13:50:40 +0000 |
| commit | 0db701f029fd4cb6db4305bc8e2182ae1329ff6e (patch) | |
| tree | f8cfa5c2dd37d5205a2153fe0dd1c0ea4d366cf4 /lisp | |
| parent | ef5a4730db25ca5cf34c476799b44e11b8e526f1 (diff) | |
| download | emacs-0db701f029fd4cb6db4305bc8e2182ae1329ff6e.tar.gz | |
(f90-looking-at-do, f90-find-breakpoint): Fix previous change.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/f90.el | 4 |
1 files 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'. |