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 | 0ab39c81aec378bfc18f9b6d9731f3fe018073c2 (patch) | |
| tree | 212a573e1116b049287e3c1ee25c93c345edf228 | |
| parent | 486cc7fb6a16ef059bde9167606742950e5af5c8 (diff) | |
| download | emacs-0ab39c81aec378bfc18f9b6d9731f3fe018073c2.tar.gz | |
(internal_with_output_to_temp_buffer): gcpro things.
| -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); } |