From 7ea7f6369b843ea3f39bf0baef07760cac11b492 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 19 Jun 2006 01:54:37 +0000 Subject: [PATCH] (read_escape): Fix the code synched with HEAD. --- src/lread.c | 19 +------------------ 1 file changed, 1 insertion(+), 18 deletions(-) diff --git a/src/lread.c b/src/lread.c index 6ea92d1aeb..824bc5f750 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: -- 2.20.1