From 0ab39c81aec378bfc18f9b6d9731f3fe018073c2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 24 Jul 1994 04:18:02 +0000 Subject: [PATCH] (internal_with_output_to_temp_buffer): gcpro things. --- src/print.c | 5 +++++ 1 file changed, 5 insertions(+) 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); } -- 2.39.5