diff options
| author | Dmitry Antipov | 2014-07-17 13:12:51 +0400 |
|---|---|---|
| committer | Dmitry Antipov | 2014-07-17 13:12:51 +0400 |
| commit | b1bfebbfc50e3d83a76ec1469b1e4570b1b022bc (patch) | |
| tree | 1274038fc905eb77ca03978b509d5fef01c40354 /src/print.c | |
| parent | 02a7e500e85ffe42a352a9e0c1fddd1ed6a67658 (diff) | |
| download | emacs-b1bfebbfc50e3d83a76ec1469b1e4570b1b022bc.tar.gz emacs-b1bfebbfc50e3d83a76ec1469b1e4570b1b022bc.zip | |
* print.c (print_preprocess): Adjust to match changed
sub char-table structure and avoid crash (Bug#18038).
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/print.c b/src/print.c index 2f52f5d03ec..57fac7af378 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -1228,7 +1228,8 @@ print_preprocess (Lisp_Object obj) | |||
| 1228 | size = ASIZE (obj); | 1228 | size = ASIZE (obj); |
| 1229 | if (size & PSEUDOVECTOR_FLAG) | 1229 | if (size & PSEUDOVECTOR_FLAG) |
| 1230 | size &= PSEUDOVECTOR_SIZE_MASK; | 1230 | size &= PSEUDOVECTOR_SIZE_MASK; |
| 1231 | for (i = 0; i < size; i++) | 1231 | for (i = (SUB_CHAR_TABLE_P (obj) |
| 1232 | ? SUB_CHAR_TABLE_OFFSET : 0); i < size; i++) | ||
| 1232 | print_preprocess (AREF (obj, i)); | 1233 | print_preprocess (AREF (obj, i)); |
| 1233 | if (HASH_TABLE_P (obj)) | 1234 | if (HASH_TABLE_P (obj)) |
| 1234 | { /* For hash tables, the key_and_value slot is past | 1235 | { /* For hash tables, the key_and_value slot is past |