procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lread.c (readevalloop): Use correct code for NBSP.

Browse source 
(read1): Likewise.  (Bug#9608)
This commit is contained in:
Andreas Schwab 2011-09-27 10:37:07 +02:00
parent 90926e2392
commit ed497dd4ec
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -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

8
src/lread.c
View file

@ -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));