mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(print_preprocess): Test for print_depth at limit

Browse source 
before entering in being_printed.
This commit is contained in:
Richard M. Stallman 2004-07-17 14:54:56 +00:00
parent 0c1c1b936d
commit 15479e8b2f
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/print.c
View file

@ -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;