# HG changeset patch # User Eli Zaretskii # Date 1151205770 0 # Node ID dbe1bcee035797b717ddf876cb89f943c7f6ac6e # Parent 5838cf51ee2761c395ff2c58035b1b26297bc312 Fix whitespace of last change. diff -r 5838cf51ee27 -r dbe1bcee0357 src/lread.c --- a/src/lread.c Sun Jun 25 01:43:14 2006 +0000 +++ b/src/lread.c Sun Jun 25 03:22:50 2006 +0000 @@ -1947,7 +1947,7 @@ 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 @@ } 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); }