diff options
| -rw-r--r-- | src/lread.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lread.c b/src/lread.c index a3da8489e49..40ce584d335 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1947,7 +1947,7 @@ read_escape (readcharfun, stringp, byterep) while (++count <= unicode_hex_count) { c = READCHAR; - /* isdigit(), isalpha() may be locale-specific, which we don't + /* isdigit and isalpha may be locale-specific, which we don't want. */ if (c >= '0' && c <= '9') i = (i << 4) + (c - '0'); else if (c >= 'a' && c <= 'f') i = (i << 4) + (c - 'a') + 10; @@ -1960,11 +1960,11 @@ read_escape (readcharfun, stringp, byterep) } GCPRO1 (readcharfun); - lisp_char = call2(intern("decode-char"), intern("ucs"), - make_number(i)); + lisp_char = call2 (intern ("decode-char"), intern ("ucs"), + make_number (i)); UNGCPRO; - if (NILP(lisp_char)) + if (NILP (lisp_char)) { error ("Unsupported Unicode code point: U+%x", (unsigned)i); } |