# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1177862632 0
# Node ID e33fffaa9534f5fcf4729faa87e28b144e964e35
# Parent  92c344270c8a11454f8ea3c2dffc7408e5b34d71
(read1): Use CHAR_TABLE_STANDARD_SLOTS to validate
char-table size.

diff -r 92c344270c8a -r e33fffaa9534 src/lread.c
--- a/src/lread.c	Thu Apr 26 04:38:27 2007 +0000
+++ b/src/lread.c	Sun Apr 29 16:03:52 2007 +0000
@@ -2302,7 +2302,7 @@
 	    {
 	      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;