From 9a6a4c407912354dec8722ff58fc0dc0e6633af7 Mon Sep 17 00:00:00 2001 From: David Ponce Date: Wed, 19 May 2004 07:38:57 +0000 Subject: [PATCH] (print): Reset print_depth before to call print_object. --- src/ChangeLog | 4 ++++ src/print.c | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 736358ee951..386a346afa0 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2004-05-18 David Ponce + + * print.c (print): Reset print_depth before to call print_object. + 2004-05-18 Jason Rumney * w32console.c: Prefix RIF functions with w32con_ to avoid diff --git a/src/print.c b/src/print.c index 74f8fad8d15..0e07cd6fdd3 100644 --- a/src/print.c +++ b/src/print.c @@ -1220,7 +1220,6 @@ print (obj, printcharfun, escapeflag) register Lisp_Object printcharfun; int escapeflag; { - print_depth = 0; old_backquote_output = 0; /* Reset print_number_index and Vprint_number_table only when @@ -1240,6 +1239,7 @@ print (obj, printcharfun, escapeflag) start = index = print_number_index; /* Construct Vprint_number_table. This increments print_number_index for the objects added. */ + print_depth = 0; print_preprocess (obj); /* Remove unnecessary objects, which appear only once in OBJ; @@ -1264,6 +1264,7 @@ print (obj, printcharfun, escapeflag) print_number_index = index; } + print_depth = 0; print_object (obj, printcharfun, escapeflag); } -- 2.39.5