5805 |
int encodep; |
int encodep; |
5806 |
{ |
{ |
5807 |
int count = specpdl_ptr - specpdl; |
int count = specpdl_ptr - specpdl; |
5808 |
struct gcpro gcpro1; |
struct gcpro gcpro1, gcpro2; |
5809 |
int multibyte = STRING_MULTIBYTE (str); |
int multibyte = STRING_MULTIBYTE (str); |
5810 |
|
Lisp_Object old_deactivate_mark; |
5811 |
|
|
5812 |
record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); |
record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); |
5813 |
record_unwind_protect (code_convert_region_unwind, Qnil); |
record_unwind_protect (code_convert_region_unwind, Qnil); |
5814 |
GCPRO1 (str); |
/* It is not crucial to specbind this. */ |
5815 |
|
old_deactivate_mark = Vdeactivate_mark; |
5816 |
|
GCPRO2 (str, old_deactivate_mark); |
5817 |
|
|
5818 |
temp_output_buffer_setup (" *code-converting-work*"); |
temp_output_buffer_setup (" *code-converting-work*"); |
5819 |
set_buffer_internal (XBUFFER (Vstandard_output)); |
set_buffer_internal (XBUFFER (Vstandard_output)); |
5820 |
/* We must insert the contents of STR as is without |
/* We must insert the contents of STR as is without |
5834 |
call1 (coding->post_read_conversion, make_number (Z - BEG)); |
call1 (coding->post_read_conversion, make_number (Z - BEG)); |
5835 |
} |
} |
5836 |
inhibit_pre_post_conversion = 0; |
inhibit_pre_post_conversion = 0; |
5837 |
|
Vdeactivate_mark = old_deactivate_mark; |
5838 |
str = make_buffer_string (BEG, Z, 1); |
str = make_buffer_string (BEG, Z, 1); |
5839 |
return unbind_to (count, str); |
return unbind_to (count, str); |
5840 |
} |
} |