(print): Reset print_depth before to call print_object.

diff --git a/src/ChangeLog b/src/ChangeLog
index 736358ee9513a426fbcb2e5ce6df7b875f563b12..386a346afa08b8e0efac8e504391e0ab833678d8 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2004-05-18  David Ponce  <david@dponce.com>
+
+       * print.c (print): Reset print_depth before to call print_object.
+
 2004-05-18  Jason Rumney  <jasonr@gnu.org>
 
        * w32console.c: Prefix RIF functions with w32con_ to avoid

diff --git a/src/print.c b/src/print.c
index 74f8fad8d1547413a5294d8f6ee139dfac1c6cac..0e07cd6fdd3c12f3c656bf89b0b45b11018cf1ac 100644 (file)
--- 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);
 }