Re: abort_on_gc in Fgarbage_collect

[Gerd Moellmann]

justus schwartz <address@hidden> writes:

> #9  0x081c3056 in Fprin1_to_string (object=951656380, noescape=406271212)
>     at print.c:786

I bet a small amount the patch below fixes this.  Could you please try
it out?

Index: print.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/print.c,v
retrieving revision 1.191
diff -u -u -r1.191 print.c
--- print.c     8 Aug 2003 22:45:18 -0000       1.191
+++ print.c     29 Aug 2003 10:09:59 -0000
@@ -758,7 +758,6 @@
      (object, noescape)
      Lisp_Object object, noescape;
 {
-  PRINTDECLARE;
   Lisp_Object printcharfun;
   /* struct gcpro gcpro1, gcpro2; */
   Lisp_Object save_deactivate_mark;
@@ -773,11 +772,14 @@
   /* GCPRO2 (object, save_deactivate_mark); */
   abort_on_gc++;
 
-  printcharfun = Vprin1_to_string_buffer;
-  PRINTPREPARE;
-  print (object, printcharfun, NILP (noescape));
-  /* Make Vprin1_to_string_buffer be the default buffer after PRINTFINSH */
-  PRINTFINISH;
+  {
+    PRINTDECLARE;
+    printcharfun = Vprin1_to_string_buffer;
+    PRINTPREPARE;
+    print (object, printcharfun, NILP (noescape));
+    /* Make Vprin1_to_string_buffer be the default buffer after PRINTFINSH */
+    PRINTFINISH;
+  }
   set_buffer_internal (XBUFFER (Vprin1_to_string_buffer));
   object = Fbuffer_string ();
   if (SBYTES (object) == SCHARS (object))