From: Kenichi Handa <handa@m17n.org>
Date: Mon, 10 Feb 2003 07:43:03 +0000 (+0000)
Subject: (Fset_buffer_multibyte): If the current buffer has a
X-Git-Tag: ttn-vms-21-2-B4~11294
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=172f945448fc46c7a3a97333ffd097a62dd70266;p=emacs.git

(Fset_buffer_multibyte): If the current buffer has a
process, update coding systems for the process.
---

diff --git a/src/buffer.c b/src/buffer.c
index 06663c9abd7..77aa61d45ba 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -2288,6 +2288,15 @@ but the contents viewed as characters do change.  */)
   if (!modified_p && !NILP (Fbuffer_modified_p (Qnil)))
     Fset_buffer_modified_p (Qnil);
 
+  /* Update coding systems of this buffer's process (if any).  */
+  {
+    Lisp_Object process;
+
+    process = Fget_buffer_process (Fcurrent_buffer ());
+    if (PROCESSP (process))
+      setup_process_coding_systems (process);
+  }
+
   return flag;
 }