diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-24 04:18:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-24 04:18:02 +0000 |
| commit | 6ab1107b5d7da76069bfc30167638c66d3848047 (patch) | |
| tree | f0c819d6acfbbd50cff6737ab116e1dd887087c2 /src/print.c | |
| parent | 0792382ed6661666040d43f7e2bf9b9bf83a7898 (diff) | |
| download | emacs-6ab1107b5d7da76069bfc30167638c66d3848047.tar.gz | |
(internal_with_output_to_temp_buffer): gcpro things.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 5 |
1 files changed, 5 insertions, 0 deletions
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); } |