(f90-looking-at-where-or-forall): Oops, defsubst, not defun.

2002-05-20 21:52:07 +00:00
parent 6f6420041a
commit b32a3d9930
1 changed files with 1 additions and 1 deletions
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -955,7 +955,7 @@ NAME is nil if the statement has no label."
                  (looking-at "then\\>")))
            (list struct label))))))

-(defun f90-looking-at-where-or-forall ()
+(defsubst f90-looking-at-where-or-forall ()
  "Return (KIND NAME) if a where or forall block starts after point.
 NAME is nil if the statement has no label."
  (save-excursion