mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 06:50:46 -08:00
Code Issues Projects Releases Wiki Activity

(print_object): Check print_depth before searching for circularities.

Browse source
This commit is contained in:
Chong Yidong 2008-07-21 05:03:39 +00:00
parent b42f411561
commit 76afdf7e92
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/print.c
View file

@ -1560,6 +1560,10 @@ print_object (obj, printcharfun, escapeflag)
QUIT;
/* See similar code in print_preprocess. */
if (print_depth > PRINT_CIRCLE)
error ("Apparently circular structure being printed");
/* Detect circularities and truncate them. */
if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
|| COMPILEDP (obj) || CHAR_TABLE_P (obj) || SUB_CHAR_TABLE_P (obj)
@ -1610,9 +1614,6 @@ print_object (obj, printcharfun, escapeflag)
print_depth++;
/* See similar code in print_preprocess. */
if (print_depth > PRINT_CIRCLE)
error ("Apparently circular structure being printed");
#ifdef MAX_PRINT_CHARS
if (max_print && print_chars > max_print)
{