# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1044862983 0
# Node ID 8bcbac2617a9a1a42aa43a27b3eeeb8980f93bd5
# Parent  a6a0f5a21e52d2bfef5aed830eb06a68df8c2ac0
(Fset_buffer_multibyte): If the current buffer has a
process, update coding systems for the process.

diff -r a6a0f5a21e52 -r 8bcbac2617a9 src/buffer.c
--- a/src/buffer.c	Mon Feb 10 04:01:56 2003 +0000
+++ b/src/buffer.c	Mon Feb 10 07:43:03 2003 +0000
@@ -2288,6 +2288,15 @@
   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;
 }