(Finsert_file_contents): If enable-multibyte-characters

is nil, decode character code by emacs-mule.
(Fwrite_region): Use buffer-file-coding-system for encoding if
enable-multibyte-characters is nil.

diff --git a/src/fileio.c b/src/fileio.c
index c397cd0f4740c0c013996fc04d616b068fdf9dc1..1526015921a95bd7e9b59b9eecb3886086008d7b 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3063,10 +3063,13 @@ This does code conversion according to the value of\n\
 
   /* Decide the coding-system of the file.  */
   {
-    Lisp_Object val = Vcoding_system_for_read;
-    if (NILP (current_buffer->enable_multibyte_characters))
-      val = Qnil;
-    else if (NILP (val))
+    Lisp_Object val;
+
+    if (!NILP (Vcoding_system_for_read))
+      val = Vcoding_system_for_read;
+    else if (NILP (current_buffer->enable_multibyte_characters))
+      val = Qemacs_mule;
+    else
       {
        Lisp_Object args[6], coding_systems;
 
@@ -3806,12 +3809,13 @@ to the file, instead of any buffer contents, and END is ignored.")
   {
     Lisp_Object val;
 
-    if (auto_saving || NILP (current_buffer->enable_multibyte_characters))
+    if (auto_saving)
       val = Qnil;
     else if (!NILP (Vcoding_system_for_write))
       val = Vcoding_system_for_write;
-    else if (!NILP (Flocal_variable_if_set_p (Qbuffer_file_coding_system,
-                                             Qnil)))
+    else if (NILP (current_buffer->enable_multibyte_characters)
+            || !NILP (Flocal_variable_if_set_p (Qbuffer_file_coding_system,
+                                                Qnil)))
       val = Fsymbol_value (Qbuffer_file_coding_system);
     else
       {