[Emacs-diffs] /srv/bzr/emacs/trunk r105936: * lread.c (readevalloop): Use correct code for NBSP.

[Andreas Schwab]

------------------------------------------------------------
revno: 105936
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Tue 2011-09-27 10:37:07 +0200
message:
  * lread.c (readevalloop): Use correct code for NBSP.
  (read1): Likewise.  (Bug#9608)
modified:
  src/ChangeLog
  src/lread.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2011-09-25 16:00:02 +0000
+++ b/src/ChangeLog     2011-09-27 08:37:07 +0000
@@ -1,3 +1,8 @@
+2011-09-27  Andreas Schwab  <address@hidden>
+
+       * lread.c (readevalloop): Use correct code for NBSP.
+       (read1): Likewise.  (Bug#9608)
+
 2011-09-25  Michael Albinus  <address@hidden>
 
        * dbusbind.c (Fdbus_register_signal): When service is not

=== modified file 'src/lread.c'
--- a/src/lread.c       2011-09-19 08:25:35 +0000
+++ b/src/lread.c       2011-09-27 08:37:07 +0000
@@ -1796,7 +1796,7 @@
 
       /* Ignore whitespace here, so we can detect eof.  */
       if (c == ' ' || c == '\t' || c == '\n' || c == '\f' || c == '\r'
-         || c == 0x8a0)  /* NBSP */
+         || c == 0xa0)  /* NBSP */
        goto read_next;
 
       if (!NILP (Vpurify_flag) && c == '(')
@@ -2685,7 +2685,7 @@
          uninterned_symbol = 1;
          c = READCHAR;
          if (!(c > 040
-               && c != 0x8a0
+               && c != 0xa0    /* NBSP */
                && (c >= 0200
                    || strchr ("\"';()[]#`,", c) == NULL)))
            {
@@ -3033,7 +3033,7 @@
     default:
     default_label:
       if (c <= 040) goto retry;
-      if (c == 0x8a0) /* NBSP */
+      if (c == 0xa0) /* NBSP */
        goto retry;
 
     read_symbol:
@@ -3074,7 +3074,7 @@
              c = READCHAR;
            }
          while (c > 040
-                && c != 0x8a0 /* NBSP */
+                && c != 0xa0 /* NBSP */
                 && (c >= 0200
                     || strchr ("\"';()[]#`,", c) == NULL));