diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2006-06-24 06:49:16 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2006-06-24 06:49:16 +0000 |
| commit | 9ee96155218069ecc02c4a3fcafc4fe793899a9a (patch) | |
| tree | ff7249cfdbb04282210164669a471e2f2bc89ae3 /src/lread.c | |
| parent | d8773eda71f4b2e95f132ac8bdc047fdd894e8c5 (diff) | |
| download | emacs-9ee96155218069ecc02c4a3fcafc4fe793899a9a.tar.gz emacs-9ee96155218069ecc02c4a3fcafc4fe793899a9a.tar.bz2 emacs-9ee96155218069ecc02c4a3fcafc4fe793899a9a.zip | |
(read_escape): When an unknown Unicode code point is encountered as a string
or character escape, signal an error.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 13 |
1 files 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: |