diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/lread.c | 8 |
2 files changed, 10 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 43c9a9f6686..327597f366c 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2007-07-30 Richard Stallman <rms@gnu.org> + + * lread.c (readevalloop, read1): Treat NBSP as whitespace. + 2007-07-29 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> * gmalloc.c (__malloc_initialize): Remove pthread_once. Not needed. diff --git a/src/lread.c b/src/lread.c index ef999fac74c..20587c6759e 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1501,7 +1501,8 @@ readevalloop (readcharfun, stream, sourcename, evalfun, } /* Ignore whitespace here, so we can detect eof. */ - if (c == ' ' || c == '\t' || c == '\n' || c == '\f' || c == '\r') + if (c == ' ' || c == '\t' || c == '\n' || c == '\f' || c == '\r' + || c == 0x8a0) /* NBSP */ goto read_next; if (!NILP (Vpurify_flag) && c == '(') @@ -2693,7 +2694,9 @@ read1 (readcharfun, pch, first_in_list) } default: default_label: - if (c <= 040) goto retry; + if (c <= 040) goto retry; + if (c == 0x8a0) /* NBSP */ + goto retry; { char *p = read_buffer; int quoted = 0; @@ -2702,6 +2705,7 @@ read1 (readcharfun, pch, first_in_list) char *end = read_buffer + read_buffer_size; while (c > 040 + && c != 0x8a0 /* NBSP */ && (c >= 0200 || (!index ("\"';()[]#", c) && !(!first_in_list && c == '`') |