# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775023482 0
# Node ID 8921d0012bd59d18ab3c45e801a95400f1effb49
# Parent  e0f95bf90681435f9865ece5f2de0d387e82a3e6
(internal_with_output_to_temp_buffer): gcpro things.

diff -r e0f95bf90681 -r 8921d0012bd5 src/print.c
--- a/src/print.c	Sun Jul 24 04:04:36 1994 +0000
+++ b/src/print.c	Sun Jul 24 04:18:02 1994 +0000
@@ -399,14 +399,19 @@
 {
   int count = specpdl_ptr - specpdl;
   Lisp_Object buf, val;
+  struct gcpro gcpro1;
 
+  GCPRO1 (args);
   record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
   temp_output_buffer_setup (bufname);
   buf = Vstandard_output;
+  UNGCPRO;
 
   val = (*function) (args);
 
+  GCPRO1 (val);
   temp_output_buffer_show (buf);
+  UNGCPRO;
 
   return unbind_to (count, val);
 }