(Fcall_process): Call

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

1 files changed, 7 insertions, 1 deletions

diff --git a/src/callproc.c b/src/callproc.c
index 0b1a04d5de7..0c9ce9a3a1c 100644
--- 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);