Commit 15479e8b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(print_preprocess): Test for print_depth at limit

before entering in being_printed.
parent 0c1c1b93
......@@ -1284,6 +1284,11 @@ print_preprocess (obj)
int loop_count = 0;
Lisp_Object halftail;
/* 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;
/* Avoid infinite recursion for circular nested structure
in the case where Vprint_circle is nil. */
if (NILP (Vprint_circle))
......@@ -1294,11 +1299,6 @@ print_preprocess (obj)
being_printed[print_depth] = obj;
}
/* 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;
print_depth++;
halftail = obj;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment