Commit 5721b4ed authored by Andreas Schwab's avatar Andreas Schwab
Browse files

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

parent b1fbbb32
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).
......
......@@ -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 == '^')
{
......
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