diff options
| -rw-r--r-- | src/lread.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c index d3014eb7eb6..0634a4c7c30 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2084,7 +2084,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 < VECSIZE (struct Lisp_Char_Table)) error ("Invalid size char-table"); XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp)); return tmp; @@ -2103,7 +2103,7 @@ read1 (readcharfun, pch, first_in_list) depth = XINT (AREF (tmp, 0)); if (depth < 1 || depth > 3) error ("Invalid depth in char-table"); - size = XVECTOR (tmp)->size + 2; + size = XVECTOR (tmp)->size - 2; if (chartab_size [depth] != size) error ("Invalid size char-table"); XSETSUB_CHAR_TABLE (tmp, XSUB_CHAR_TABLE (tmp)); |