From: Kenichi Handa <handa@m17n.org>
Date: Mon, 19 Jun 2006 01:54:37 +0000 (+0000)
Subject: (read_escape): Fix the code synched with HEAD.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~872
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ea7f6369b843ea3f39bf0baef07760cac11b492;p=emacs.git

(read_escape): Fix the code synched with HEAD.
---

diff --git a/src/lread.c b/src/lread.c
index 6ea92d1aebf..824bc5f7502 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2103,8 +2103,6 @@ read_escape (readcharfun, stringp)
       {
 	int i = 0;
 	int count = 0;
-	Lisp_Object lisp_char;
-	struct gcpro gcpro1;
 
 	while (++count <= unicode_hex_count)
 	  {
@@ -2121,22 +2119,7 @@ read_escape (readcharfun, stringp)
 	      }
 	  }
 
-	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: