changeset 90478:65a8f4ffdbca

(read_escape): Fix the code synched with HEAD.
author Kenichi Handa <handa@m17n.org>
date Mon, 19 Jun 2006 01:54:37 +0000
parents c5d9875473a9
children e507e2cc7f5e
files src/lread.c
diffstat 1 files changed, 1 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- 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: