Mercurial > emacs
diff src/lread.c @ 85356:689fd5665496
(read1): Set pvectype for char_tables.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 17 Oct 2007 14:12:59 +0000 |
parents | 0bc184c59770 |
children | 107ccd98fa12 1251cabc40b7 |
line wrap: on
line diff
--- a/src/lread.c Wed Oct 17 08:58:23 2007 +0000 +++ b/src/lread.c Wed Oct 17 14:12:59 2007 +0000 @@ -2207,7 +2207,7 @@ if (XVECTOR (tmp)->size < CHAR_TABLE_STANDARD_SLOTS || XVECTOR (tmp)->size > CHAR_TABLE_STANDARD_SLOTS + 10) error ("Invalid size char-table"); - XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp)); + XSETPVECTYPE (XVECTOR (tmp), PVEC_CHAR_TABLE); XCHAR_TABLE (tmp)->top = Qt; return tmp; } @@ -2220,7 +2220,7 @@ tmp = read_vector (readcharfun, 0); if (XVECTOR (tmp)->size != SUB_CHAR_TABLE_STANDARD_SLOTS) error ("Invalid size char-table"); - XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp)); + XSETPVECTYPE (XVECTOR (tmp), PVEC_CHAR_TABLE); XCHAR_TABLE (tmp)->top = Qnil; return tmp; }