From: Kenichi Handa <handa@m17n.org>
Date: Mon, 7 Jul 1997 00:59:44 +0000 (+0000)
Subject: (Finsert_file_contents): If enable-multibyte-characters
X-Git-Tag: emacs-20.1~1299
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cbc64b2ac640f716f81b2aaf1a64b808ab060414;p=emacs.git

(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 c397cd0f474..1526015921a 100644
--- 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
       {