Mercurial > emacs
changeset 90830:e33fffaa9534
(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 | 92c344270c8a |
| children | 04525a3725c7 |
| files | src/lread.c |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
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;