# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1150682077 0
# Node ID 65a8f4ffdbcab5c6e0f61a654764b2e4a9cef57d
# Parent  c5d9875473a9dc97a3f09c957a10c851a0d91d19
(read_escape): Fix the code synched with HEAD.

diff -r c5d9875473a9 -r 65a8f4ffdbca src/lread.c
--- a/src/lread.c	Mon Jun 19 01:38:58 2006 +0000
+++ b/src/lread.c	Mon Jun 19 01:54:37 2006 +0000
@@ -2103,8 +2103,6 @@
       {
 	int i = 0;
 	int count = 0;
-	Lisp_Object lisp_char;
-	struct gcpro gcpro1;
 
 	while (++count <= unicode_hex_count)
 	  {
@@ -2121,22 +2119,7 @@
 	      }
 	  }
 
-	GCPRO1 (readcharfun);
-	lisp_char = call2(intern("decode-char"), intern("ucs"),
-			  make_number(i));
-	UNGCPRO;
-
-	if (EQ(Qnil, lisp_char))
-	  {
-	    /* This is ugly and horrible and trashes the user's data.  */
-	    XSETFASTINT (i, MAKE_CHAR (charset_katakana_jisx0201,
-				       34 + 128, 46 + 128));
-            return i;
-	  }
-	else
-	  {
-	    return XFASTINT (lisp_char);
-	  }
+	return i;
       }
 
     default: