# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1021931527 0
# Node ID 1c0762514eaa8a1dfea8024907e960e3163b8ec6
# Parent  b718fe5a699202613cb19726adafaebc3b172ca2
(f90-looking-at-where-or-forall): Oops, defsubst, not defun.

diff -r b718fe5a6992 -r 1c0762514eaa lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Mon May 20 19:32:59 2002 +0000
+++ b/lisp/progmodes/f90.el	Mon May 20 21:52:07 2002 +0000
@@ -955,7 +955,7 @@
                   (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