1284 |
int loop_count = 0; |
int loop_count = 0; |
1285 |
Lisp_Object halftail; |
Lisp_Object halftail; |
1286 |
|
|
1287 |
|
/* Give up if we go so deep that print_object will get an error. */ |
1288 |
|
/* See similar code in print_object. */ |
1289 |
|
if (print_depth >= PRINT_CIRCLE) |
1290 |
|
return; |
1291 |
|
|
1292 |
/* Avoid infinite recursion for circular nested structure |
/* Avoid infinite recursion for circular nested structure |
1293 |
in the case where Vprint_circle is nil. */ |
in the case where Vprint_circle is nil. */ |
1294 |
if (NILP (Vprint_circle)) |
if (NILP (Vprint_circle)) |
1299 |
being_printed[print_depth] = obj; |
being_printed[print_depth] = obj; |
1300 |
} |
} |
1301 |
|
|
|
/* Give up if we go so deep that print_object will get an error. */ |
|
|
/* See similar code in print_object. */ |
|
|
if (print_depth >= PRINT_CIRCLE) |
|
|
return; |
|
|
|
|
1302 |
print_depth++; |
print_depth++; |
1303 |
halftail = obj; |
halftail = obj; |
1304 |
|
|