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

(read1): Set pvectype for char_tables.

Browse source
This commit is contained in:
Stefan Monnier 2007-10-17 14:12:59 +00:00
parent 5a331f34c3
commit 2504022a91
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/ChangeLog
View file

@ -1,5 +1,7 @@
2007-10-17 Stefan Monnier <monnier@iro.umontreal.ca>
* lread.c (read1): Set pvectype for char_tables.
* lisp.h (XMISCANY, XMARKER, XINTFWD, XBOOLFWD, XOBJFWD, XOVERLAY)
(XBUFFER_OBJFWD, XBUFFER_LOCAL_VALUE, XKBOARD_OBJFWD, XSAVE_VALUE):
Add type checks.

4
src/lread.c
View file

@ -2207,7 +2207,7 @@ read1 (readcharfun, pch, first_in_list)
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 @@ read1 (readcharfun, pch, first_in_list)
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;
}