Commit d10044c5 authored by Andreas Schwab's avatar Andreas Schwab
Browse files

(read1): Use CHAR_TABLE_STANDARD_SLOTS to validate

char-table size.
parent c71cdfc1
......@@ -2302,7 +2302,7 @@ read1 (readcharfun, pch, first_in_list)
{
Lisp_Object tmp;
tmp = read_vector (readcharfun, 0);
if (XVECTOR (tmp)->size < VECSIZE (struct Lisp_Char_Table))
if (XVECTOR (tmp)->size < CHAR_TABLE_STANDARD_SLOTS)
error ("Invalid size char-table");
XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp));
return tmp;
......
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