From 87e3d54cf95bd58c8bbdda8e8fdfa933e138ae5b Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 11 Mar 2005 11:59:42 +0000 Subject: [PATCH] (Finsert_file_contents): Call Fcheck_coding_system before calling setup_coding_system so that autoloading of a coding system work. --- src/fileio.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/fileio.c b/src/fileio.c index 7f73a55bce9..2287025362a 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -4503,12 +4503,12 @@ actually used. */) this way, we can run Lisp program safely before decoding the inserted text. */ Lisp_Object unwind_data; - int count = SPECPDL_INDEX (); + int count = SPECPDL_INDEX (); unwind_data = Fcons (current_buffer->enable_multibyte_characters, Fcons (current_buffer->undo_list, Fcurrent_buffer ())); - current_buffer->enable_multibyte_characters = Qnil; + current_buffer->enable_multibyte_characters = Qnil; current_buffer->undo_list = Qt; record_unwind_protect (decide_coding_unwind, unwind_data); @@ -4530,7 +4530,6 @@ actually used. */) if (CONSP (coding_systems)) val = XCAR (coding_systems); } - unbind_to (count, Qnil); inserted = Z_BYTE - BEG_BYTE; } @@ -4541,7 +4540,7 @@ actually used. */) on some system. */ { struct coding_system temp_coding; - setup_coding_system (val, &temp_coding); + setup_coding_system (Fcheck_coding_system (val), &temp_coding); bcopy (&temp_coding, &coding, sizeof coding); } /* Ensure we set Vlast_coding_system_used. */ -- 2.39.2