diff --git a/ChangeLog b/ChangeLog
index b26fb4cfb3..8fe3fd4f3c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu Jul  4 23:43:26 2002  Minero Aoki  <aamine@loveruby.net>
+
+	* parse.y: remove useless function str_extend_p().
+
 Wed Jul  3 14:26:40 2002  Sean Chittenden  <sean@ruby-lang.org>
 
 	* lib/net/ftp.rb (get): new method.
diff --git a/parse.y b/parse.y
index c71dc92646..ef5db61dfb 100644
--- a/parse.y
+++ b/parse.y
@@ -2294,8 +2294,6 @@ none		: /* none */ {$$ = 0;}
 static char *tokenbuf = NULL;
 static int   tokidx, toksiz = 0;
 
-static int str_extend_p _((void));
-
 #define LEAVE_BS 1
 
 static VALUE (*lex_gets)();	/* gets function */
@@ -4195,22 +4193,6 @@ yylex()
     }
 }
 
-static int
-str_extend_p()
-{
-    int c = nextc(), t = 0;
-    switch (c) {
-      case '$':
-      case '@':
-	t = tSTRING_DVAR;
-      case '{':
-	t = tSTRING_DBEG;
-    }
-    pushback(c);
-    pushback('#');
-    return t;
-}
-
 NODE*
 rb_node_newnode(type, a0, a1, a2)
     enum node_type type;