From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 24 Jul 1994 04:18:02 +0000 (+0000)
Subject: (internal_with_output_to_temp_buffer): gcpro things.
X-Git-Tag: emacs-19.34~7538
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ab39c81aec378bfc18f9b6d9731f3fe018073c2;p=emacs.git

(internal_with_output_to_temp_buffer): gcpro things.
---

diff --git a/src/print.c b/src/print.c
index 4d1db9fe3e5..f6c7d9a3ef3 100644
--- a/src/print.c
+++ b/src/print.c
@@ -399,14 +399,19 @@ internal_with_output_to_temp_buffer (bufname, function, args)
 {
   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);
 }