From: Andreas Schwab <schwab@linux-m68k.org>
Date: Tue, 27 Sep 2011 08:37:07 +0000 (+0200)
Subject: * lread.c (readevalloop): Use correct code for NBSP.
X-Git-Tag: emacs-pretest-24.0.91~267
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed497dd4ec3137c43637531a0fa14a0f78edbe25;p=emacs.git

* lread.c (readevalloop): Use correct code for NBSP.
(read1): Likewise.  (Bug#9608)
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 3282654ab06..59169bdcf9f 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-27  Andreas Schwab  <schwab@linux-m68k.org>
+
+	* lread.c (readevalloop): Use correct code for NBSP.
+	(read1): Likewise.  (Bug#9608)
+
 2011-09-25  Michael Albinus  <michael.albinus@gmx.de>
 
 	* dbusbind.c (Fdbus_register_signal): When service is not
diff --git a/src/lread.c b/src/lread.c
index 2b1b49ab2fe..241b1e41c94 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1796,7 +1796,7 @@ readevalloop (Lisp_Object readcharfun,
 
       /* 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 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list)
 	  uninterned_symbol = 1;
 	  c = READCHAR;
 	  if (!(c > 040
-		&& c != 0x8a0
+		&& c != 0xa0	/* NBSP */
 		&& (c >= 0200
 		    || strchr ("\"';()[]#`,", c) == NULL)))
 	    {
@@ -3033,7 +3033,7 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list)
     default:
     default_label:
       if (c <= 040) goto retry;
-      if (c == 0x8a0) /* NBSP */
+      if (c == 0xa0) /* NBSP */
 	goto retry;
 
     read_symbol:
@@ -3074,7 +3074,7 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list)
 	      c = READCHAR;
 	    }
 	  while (c > 040
-		 && c != 0x8a0 /* NBSP */
+		 && c != 0xa0 /* NBSP */
 		 && (c >= 0200
 		     || strchr ("\"';()[]#`,", c) == NULL));