# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 892655056 0
# Node ID 395ad34c576a7d29bf3574e374b924b004ea0847
# Parent  add6627452a524c01d1068eb46607c7f78ec0d7a
(Fcall_process): Call
after-insert-file-set-buffer-file-coding-system if
inherit-process-coding-system is non-nil.

diff -r add6627452a5 -r 395ad34c576a src/callproc.c
--- a/src/callproc.c	Wed Apr 15 15:37:58 1998 +0000
+++ b/src/callproc.c	Wed Apr 15 15:44:16 1998 +0000
@@ -717,10 +717,16 @@
 	QUIT;
       }
   give_up: ;
-  }
 
   Vlast_coding_system_used = process_coding.symbol;
 
+  /* If the caller required, let the buffer inherit the
+     coding-system used to decode the process output.  */
+  if (inherit_process_coding_system)
+    call1 (intern ("after-insert-file-set-buffer-file-coding-system"),
+	   make_number (total_read));
+  }
+
   /* Wait for it to terminate, unless it already has.  */
   wait_for_termination (pid);