Mercurial > emacs
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); }