Mercurial > emacs
diff src/lread.c @ 109271:de58fd0baac5
* lread.c (read1): Signal error if #s is not followed by paren.
author | Andreas Schwab <schwab@linux-m68k.org> |
---|---|
date | Wed, 23 Jun 2010 10:22:36 +0200 |
parents | 86ae2a69cf52 |
children | 60516122d066 2f23047ca654 913b779aa4ee |
line wrap: on
line diff
--- a/src/lread.c Wed Jun 23 00:44:09 2010 -0700 +++ b/src/lread.c Wed Jun 23 10:22:36 2010 +0200 @@ -2377,28 +2377,28 @@ /* 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 @@ return ht; } + UNREAD (c); + invalid_syntax ("#", 1); } if (c == '^') {