Mercurial > emacs
diff src/fileio.c @ 27789:eb273bf5c3a8
(Finsert_file_contents): Unbind the binding of
standard-output done by temp_output_buffer_setup.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Sun, 20 Feb 2000 21:53:35 +0000 |
parents | 3afff8dbcdac |
children | a36c3e02f43b |
line wrap: on
line diff
--- a/src/fileio.c Sun Feb 20 19:03:33 2000 +0000 +++ b/src/fileio.c Sun Feb 20 21:53:35 2000 +0000 @@ -3543,9 +3543,15 @@ else if (nread > 0) { struct buffer *prev = current_buffer; + int count1; record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); + + /* The call to temp_output_buffer_setup binds + standard-output. */ + count1 = specpdl_ptr - specpdl; temp_output_buffer_setup (" *code-converting-work*"); + set_buffer_internal (XBUFFER (Vstandard_output)); current_buffer->enable_multibyte_characters = Qnil; insert_1_both (read_buf, nread, nread, 0, 0, 0); @@ -3553,6 +3559,10 @@ val = call2 (Vset_auto_coding_function, filename, make_number (nread)); set_buffer_internal (prev); + + /* Remove the binding for standard-output. */ + unbind_to (count1, Qnil); + /* Discard the unwind protect for recovering the current buffer. */ specpdl_ptr--;