Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
90829:92c344270c8a 90830:e33fffaa9534
2300 c = READCHAR; 2300 c = READCHAR;
2301 if (c == '[') 2301 if (c == '[')
2302 { 2302 {
2303 Lisp_Object tmp; 2303 Lisp_Object tmp;
2304 tmp = read_vector (readcharfun, 0); 2304 tmp = read_vector (readcharfun, 0);
2305 if (XVECTOR (tmp)->size < VECSIZE (struct Lisp_Char_Table)) 2305 if (XVECTOR (tmp)->size < CHAR_TABLE_STANDARD_SLOTS)
2306 error ("Invalid size char-table"); 2306 error ("Invalid size char-table");
2307 XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp)); 2307 XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp));
2308 return tmp; 2308 return tmp;
2309 } 2309 }
2310 else if (c == '^') 2310 else if (c == '^')