(readevalloop, read1): Treat NBSP as whitespace.

diff --git a/src/ChangeLog b/src/ChangeLog
index 43c9a9f6686b297f90aa300fdd178273fc6169cf..327597f366cfc0f57b1d36ba5f650f792e5e7ccc 100644 (file)
--- 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\e,Ad\e(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 ef999fac74c4a90f5a57b626e9ac86ba0c6c0d45..20587c6759e07f016b80bbc379eb5f149988fd46 100644 (file)
--- 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 == '`')