# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 939509665 0
# Node ID 1751b057e4b03d70e895d97729706a80b58ce6b0
# Parent  6f9d624b1ba7efe31d7623c03bcc8f44f091727d
(print): When removing objects from Vprint_number_table,
only scan the newly added objects.
(print_preprocess): If OBJ is a gensym, and print-continuous-numbering,
unconditionally force it to stay in the table.

diff -r 6f9d624b1ba7 -r 1751b057e4b0 src/print.c
--- a/src/print.c	Sat Oct 09 19:58:13 1999 +0000
+++ b/src/print.c	Sat Oct 09 22:54:25 1999 +0000
@@ -1069,12 +1069,13 @@
   /* Construct Vprint_number_table for print-gensym and print-circle.  */
   if (!NILP (Vprint_gensym) || !NILP (Vprint_circle))
     {
-      int i, index = 0;
+      int i, start, index;
       /* Construct Vprint_number_table.  */
+      start = index = print_number_index;
       print_preprocess (obj);
       /* Remove unnecessary objects, which appear only once in OBJ;
 	 that is, whose status is Qnil.  */
-      for (i = 0; i < print_number_index; i++)
+      for (i = start; i < print_number_index; i++)
 	if (!NILP (PRINT_NUMBER_STATUS (Vprint_number_table, i)))
 	  {
 	    PRINT_NUMBER_OBJECT (Vprint_number_table, index)
@@ -1138,6 +1139,12 @@
 	    }
 	}
       PRINT_NUMBER_OBJECT (Vprint_number_table, print_number_index) = obj;
+      /* If Vprint_continuous_numbering is non-nil and OBJ is a gensym,
+	 always print the gensym with a number.  This is a special for
+	 the lisp function byte-compile-output-docform.  */
+      if (! NILP (Vprint_continuous_numbering) && SYMBOLP (obj)
+	  && NILP (XSYMBOL (obj)->obarray))
+	PRINT_NUMBER_STATUS (Vprint_number_table, print_number_index) = Qt;
       print_number_index++;
 
       switch (XGCTYPE (obj))