Mercurial > emacs

changeset 50616:2e4300c14e95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(f90-looking-at-do, f90-find-breakpoint): Fix previous change.
author Glenn Morris <rgm@gnu.org>
date Wed, 16 Apr 2003 13:50:40 +0000
parents d36ea119e3cf
children 9582ab8af8fe
files lisp/progmodes/f90.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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'.