From: Kenichi Handa <handa@m17n.org>
Date: Thu, 27 Feb 1997 08:01:34 +0000 (+0000)
Subject: (Finsert_file_contents, Fwrite_region): Do not perform
X-Git-Tag: emacs-20.1~2831
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=719c80be4339bc3ed564640b95e49c161c6b7dfb;p=emacs.git

(Finsert_file_contents, Fwrite_region): Do not perform
character code conversion if enable-multibyte-characters is nil.
---

diff --git a/src/fileio.c b/src/fileio.c
index c7c0111dbad..b925c18c41b 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3059,7 +3059,9 @@ 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 (val))
+    if (NILP (current_buffer->enable_multibyte_characters))
+      val = Qnil;
+    else if (NILP (val))
       {
 	Lisp_Object args[6], coding_systems;
 
@@ -3622,7 +3624,7 @@ This does code conversion according to the value of\n\
   {
     Lisp_Object val;
 
-    if (auto_saving)
+    if (auto_saving || NILP (current_buffer->enable_multibyte_characters))
       val = Qnil;
     else if (!NILP (Vcoding_system_for_write))
       val = Vcoding_system_for_write;