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)