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

* lread.c (read1): Signal error if #s is not followed by paren.

Browse source
This commit is contained in:
Andreas Schwab 2010-06-23 10:22:36 +02:00
parent b1fbbb32e1
commit 5721b4ed16
2 changed files with 16 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/ChangeLog
View file

@ -1,3 +1,7 @@
2010-06-23 Andreas Schwab <schwab@linux-m68k.org>
* lread.c (read1): Signal error if #s is not followed by paren.
2010-06-19 Chong Yidong <cyd@stupidchicken.com>
* image.c (free_image): Mark frame as garbaged (Bug#6426).

22
src/lread.c
View file

@ -2377,28 +2377,28 @@ read1 (readcharfun, pch, first_in_list)
/* This is repetitive but fast and simple. */
params[param_count] = QCsize;
params[param_count+1] = Fplist_get (tmp, Qsize);
if (!NILP (params[param_count+1]))
param_count+=2;
if (!NILP (params[param_count + 1]))
param_count += 2;
params[param_count] = QCtest;
params[param_count+1] = Fplist_get (tmp, Qtest);
if (!NILP (params[param_count+1]))
param_count+=2;
if (!NILP (params[param_count + 1]))
param_count += 2;
params[param_count] = QCweakness;
params[param_count+1] = Fplist_get (tmp, Qweakness);
if (!NILP (params[param_count+1]))
param_count+=2;
if (!NILP (params[param_count + 1]))
param_count += 2;
params[param_count] = QCrehash_size;
params[param_count+1] = Fplist_get (tmp, Qrehash_size);
if (!NILP (params[param_count+1]))
param_count+=2;
if (!NILP (params[param_count + 1]))
param_count += 2;
params[param_count] = QCrehash_threshold;
params[param_count+1] = Fplist_get (tmp, Qrehash_threshold);
if (!NILP (params[param_count+1]))
param_count+=2;
if (!NILP (params[param_count + 1]))
param_count += 2;
/* This is the hashtable data. */
data = Fplist_get (tmp, Qdata);
@ -2419,6 +2419,8 @@ read1 (readcharfun, pch, first_in_list)
return ht;
}
UNREAD (c);
invalid_syntax ("#", 1);
}
if (c == '^')
{