Commit adef3de7 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(readevalloop, read1): Treat NBSP as whitespace.

parent 100edb42
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> 2007-07-29 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
   
* gmalloc.c (__malloc_initialize): Remove pthread_once. Not needed. * gmalloc.c (__malloc_initialize): Remove pthread_once. Not needed.
......
...@@ -1501,7 +1501,8 @@ readevalloop (readcharfun, stream, sourcename, evalfun, ...@@ -1501,7 +1501,8 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
} }
/* Ignore whitespace here, so we can detect eof. */ /* 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; goto read_next;
if (!NILP (Vpurify_flag) && c == '(') if (!NILP (Vpurify_flag) && c == '(')
...@@ -2693,7 +2694,9 @@ read1 (readcharfun, pch, first_in_list) ...@@ -2693,7 +2694,9 @@ read1 (readcharfun, pch, first_in_list)
} }
default: default:
default_label: default_label:
if (c <= 040) goto retry; if (c <= 040) goto retry;
if (c == 0x8a0) /* NBSP */
goto retry;
{ {
char *p = read_buffer; char *p = read_buffer;
int quoted = 0; int quoted = 0;
...@@ -2702,6 +2705,7 @@ read1 (readcharfun, pch, first_in_list) ...@@ -2702,6 +2705,7 @@ read1 (readcharfun, pch, first_in_list)
char *end = read_buffer + read_buffer_size; char *end = read_buffer + read_buffer_size;
while (c > 040 while (c > 040
&& c != 0x8a0 /* NBSP */
&& (c >= 0200 && (c >= 0200
|| (!index ("\"';()[]#", c) || (!index ("\"';()[]#", c)
&& !(!first_in_list && c == '`') && !(!first_in_list && c == '`')
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment