changeset 8315:8921d0012bd5

(internal_with_output_to_temp_buffer): gcpro things.
author Richard M. Stallman <rms@gnu.org>
date Sun, 24 Jul 1994 04:18:02 +0000
parents e0f95bf90681
children abf26f5c67e4
files src/print.c
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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);
 }