Mercurial > emacs

diff src/lread.c @ 90830:e33fffaa9534

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read1): Use CHAR_TABLE_STANDARD_SLOTS to validate char-table size.
author Andreas Schwab <schwab@suse.de>
date Sun, 29 Apr 2007 16:03:52 +0000
parents 4ef881a120fe
children 70bf32a0f523
line wrap: on
line diff
--- 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;