diff --git a/ChangeLog b/ChangeLog
index 1a0e634c8f..e7dbef55dc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Fri Jul 26 12:14:48 2002  Minero Aoki  <aamine@loveruby.net>
+
+	* parse.y (yylex): modify to accept a code like "m (a){...}".
+
 Thu Jul 25 09:05:02 2002  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
 
 	* misc/ruby-mode.el (ruby-delimiter): include here document.
diff --git a/parse.y b/parse.y
index 14e38347cf..2ca171f332 100644
--- a/parse.y
+++ b/parse.y
@@ -3850,12 +3850,12 @@ yylex()
 	return c;
 
       case '{':
-	if (!IS_ARG()) {
-	    if (space_seen && lex_state == EXPR_ENDARG)
-		c = tLBRACE_ARG;
-	    if (lex_state != EXPR_END && lex_state != EXPR_ENDARG)
-		c = tLBRACE;
-	}
+	if (IS_ARG() || lex_state == EXPR_END)
+	    c = '{';          /* block (primary) */
+	else if (lex_state == EXPR_ENDARG)
+	    c = tLBRACE_ARG;  /* block (expr) */
+	else
+	    c = tLBRACE;      /* hash */
 	COND_PUSH(0);
 	CMDARG_PUSH(0);
 	lex_state = EXPR_BEG;