Commit 52968808 authored by Andreas Schwab's avatar Andreas Schwab
Browse files

* src/lread.c (read1): Read `#:' as empty uninterned symbol if no

symbol character follows.
parent a762e966
2011-07-17 Andreas Schwab <schwab@linux-m68k.org>
* lread.c (read1): Read `#:' as empty uninterned symbol if no
symbol character follows.
2011-07-17 Paul Eggert <eggert@cs.ucla.edu> 2011-07-17 Paul Eggert <eggert@cs.ucla.edu>
* fileio.c (Fcopy_file): Pacify gcc re fchown. (Bug#9002) * fileio.c (Fcopy_file): Pacify gcc re fchown. (Bug#9002)
......
...@@ -2660,7 +2660,18 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list) ...@@ -2660,7 +2660,18 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list)
{ {
uninterned_symbol = 1; uninterned_symbol = 1;
c = READCHAR; c = READCHAR;
goto default_label; if (!(c > 040
&& c != 0x8a0
&& (c >= 0200
|| !(strchr ("\"';()[]#`,", c)))))
{
/* No symbol character follows, this is the empty
symbol. */
if (c >= 0)
UNREAD (c);
return Fmake_symbol (build_string (""));
}
goto read_symbol;
} }
/* Reader forms that can reuse previously read objects. */ /* Reader forms that can reuse previously read objects. */
if (c >= '0' && c <= '9') if (c >= '0' && c <= '9')
...@@ -3002,6 +3013,8 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list) ...@@ -3002,6 +3013,8 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list)
if (c <= 040) goto retry; if (c <= 040) goto retry;
if (c == 0x8a0) /* NBSP */ if (c == 0x8a0) /* NBSP */
goto retry; goto retry;
read_symbol:
{ {
char *p = read_buffer; char *p = read_buffer;
int quoted = 0; int quoted = 0;
......
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