From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 15 Apr 1998 15:44:16 +0000 (+0000)
Subject: (Fcall_process): Call
X-Git-Tag: emacs-20.3~1503
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b440bb5918d54d503a7059fb3e2b1ee860ac4b7;p=emacs.git

(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 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);