Index: bytecode.c =================================================================== RCS file: /cvsroot/emacs/emacs/src/bytecode.c,v retrieving revision 1.68 diff -u -r1.68 bytecode.c --- bytecode.c 20 Mar 2002 07:44:54 -0000 1.68 +++ bytecode.c 8 Apr 2002 02:54:42 -0000 @@ -896,7 +896,7 @@ case Btemp_output_buffer_setup: BEFORE_POTENTIAL_GC (); CHECK_STRING (TOP); - temp_output_buffer_setup (XSTRING (TOP)->data); + temp_output_buffer_setup (XSTRING (TOP)->data, 1); AFTER_POTENTIAL_GC (); TOP = Vstandard_output; break; Index: coding.c =================================================================== RCS file: /cvsroot/emacs/emacs/src/coding.c,v retrieving revision 1.240 diff -u -r1.240 coding.c --- coding.c 11 Mar 2002 19:21:09 -0000 1.240 +++ coding.c 8 Apr 2002 02:54:43 -0000 @@ -5801,7 +5801,7 @@ record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); record_unwind_protect (code_convert_region_unwind, Qnil); GCPRO1 (str); - temp_output_buffer_setup (" *code-converting-work*"); + temp_output_buffer_setup (" *code-converting-work*", 0); set_buffer_internal (XBUFFER (Vstandard_output)); /* We must insert the contents of STR as is without unibyte<->multibyte conversion. For that, we adjust the Index: lisp.h =================================================================== RCS file: /cvsroot/emacs/emacs/src/lisp.h,v retrieving revision 1.415 diff -u -r1.415 lisp.h --- lisp.h 21 Mar 2002 12:17:51 -0000 1.415 +++ lisp.h 8 Apr 2002 02:54:43 -0000 @@ -2424,7 +2424,7 @@ EXFUN (Ferror_message_string, 1); extern Lisp_Object Vstandard_output, Qstandard_output; extern Lisp_Object Qexternal_debugging_output; -extern void temp_output_buffer_setup P_ ((char *)); +extern void temp_output_buffer_setup P_ ((char *, int)); extern int print_level, print_escape_newlines; extern Lisp_Object Qprint_escape_newlines; extern void write_string P_ ((char *, int)); Index: print.c =================================================================== RCS file: /cvsroot/emacs/emacs/src/print.c,v retrieving revision 1.174 diff -u -r1.174 print.c --- print.c 16 Mar 2002 06:53:35 -0000 1.174 +++ print.c 8 Apr 2002 02:54:44 -0000 @@ -577,8 +577,9 @@ void -temp_output_buffer_setup (bufname) +temp_output_buffer_setup (bufname, hooks) char *bufname; + int hooks; { int count = specpdl_ptr - specpdl; register struct buffer *old = current_buffer; @@ -599,7 +600,8 @@ Ferase_buffer (); XSETBUFFER (buf, current_buffer); - Frun_hooks (1, &Qtemp_buffer_setup_hook); + if (hooks) + Frun_hooks (1, &Qtemp_buffer_setup_hook); unbind_to (count, Qnil); @@ -618,7 +620,7 @@ GCPRO1 (args); record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); - temp_output_buffer_setup (bufname); + temp_output_buffer_setup (bufname, 1); buf = Vstandard_output; UNGCPRO; @@ -663,7 +665,7 @@ GCPRO1(args); name = Feval (Fcar (args)); CHECK_STRING (name); - temp_output_buffer_setup (XSTRING (name)->data); + temp_output_buffer_setup (XSTRING (name)->data, 1); buf = Vstandard_output; UNGCPRO;