Commit 0ab39c81 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(internal_with_output_to_temp_buffer): gcpro things.

parent 486cc7fb
......@@ -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);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment