(Fset_buffer_multibyte): If the current buffer has a

process, update coding systems for the process.

1 files changed, 9 insertions, 0 deletions

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;
 }