From: Andreas Schwab <schwab@suse.de>
Date: Sun, 29 Apr 2007 16:03:52 +0000 (+0000)
Subject: (read1): Use CHAR_TABLE_STANDARD_SLOTS to validate
X-Git-Tag: emacs-pretest-23.0.90~8295^2~523
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d10044c53cb7f27704f26612c55ed6bfc20c122c;p=emacs.git

(read1): Use CHAR_TABLE_STANDARD_SLOTS to validate
char-table size.
---

diff --git a/src/lread.c b/src/lread.c
index 71241dc9521..5d46507dc77 100644
--- 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;