(read_escape): Fix the code synched with HEAD.

diff --git a/src/lread.c b/src/lread.c
index 6ea92d1..824bc5f 100644 (file)
--- 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: