From 9ee96155218069ecc02c4a3fcafc4fe793899a9a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 24 Jun 2006 06:49:16 +0000 Subject: [PATCH] (read_escape): When an unknown Unicode code point is encountered as a string or character escape, signal an error. --- src/lread.c | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/src/lread.c b/src/lread.c index a0d4ad825dd..a3da8489e49 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1964,17 +1964,12 @@ read_escape (readcharfun, stringp, byterep) make_number(i)); UNGCPRO; - if (EQ(Qnil, lisp_char)) + if (NILP(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); + error ("Unsupported Unicode code point: U+%x", (unsigned)i); } + + return XFASTINT (lisp_char); } default: -- 2.39.2