(Fcall_process): Call

after-insert-file-set-buffer-file-coding-system if
inherit-process-coding-system is non-nil.

diff --git a/src/callproc.c b/src/callproc.c
index 0b1a04d5de7c2728ea3060936affb0942fd56162..0c9ce9a3a1cb1ea14ee90e71be027659d651e7d2 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -717,10 +717,16 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
        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);