Mercurial > emacs
comparison src/print.c @ 80744:b0f1f79e0a17
(print_object): Fix off-by-one in last change.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Wed, 20 Aug 2008 14:19:18 +0000 |
parents | 57acb523331b |
children |
comparison
equal
deleted
inserted
replaced
80743:92035fb329ef | 80744:b0f1f79e0a17 |
---|---|
1486 char buf[40]; | 1486 char buf[40]; |
1487 | 1487 |
1488 QUIT; | 1488 QUIT; |
1489 | 1489 |
1490 /* See similar code in print_preprocess. */ | 1490 /* See similar code in print_preprocess. */ |
1491 if (print_depth > PRINT_CIRCLE) | 1491 if (print_depth >= PRINT_CIRCLE) |
1492 error ("Apparently circular structure being printed"); | 1492 error ("Apparently circular structure being printed"); |
1493 | 1493 |
1494 /* Detect circularities and truncate them. */ | 1494 /* Detect circularities and truncate them. */ |
1495 if (STRINGP (obj) || CONSP (obj) || VECTORP (obj) | 1495 if (STRINGP (obj) || CONSP (obj) || VECTORP (obj) |
1496 || COMPILEDP (obj) || CHAR_TABLE_P (obj) | 1496 || COMPILEDP (obj) || CHAR_TABLE_P (obj) |