(Fset_buffer_multibyte): If the current buffer has a

process, update coding systems for the process.

(Fset_buffer_multibyte): If the current buffer has a
process, update coding systems for the process.
172f9454 · Kenichi Handa · b057ab61 · 172f9454
Commit 172f9454 authored Feb 10, 2003 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 0 deletions

src/buffer.c src/buffer.c +9 -0

No files found.
--- 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;
 }