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 | 376bd9d129553b64cb6cb5ad6963e02d9e4b1f63 (patch) | |
| tree | 59c05af89da534a24e217028e111a64502aa27ad | |
| parent | ce49e0bc9e51cc47ab94b04d054a2ac20fc909a1 (diff) | |
| download | emacs-376bd9d129553b64cb6cb5ad6963e02d9e4b1f63.tar.gz | |
(f90-looking-at-do, f90-find-breakpoint): Fix previous change.
| -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'. |