(read1): Use CHAR_TABLE_STANDARD_SLOTS to validate

char-table size.

diff --git a/src/lread.c b/src/lread.c
index 71241dc95210ac41f5ebb779aa037fc353b8dbf5..5d46507dc770454d217c9bef6146e3601e448f34 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -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;