# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779534146 0
# Node ID 72b312ebaa1039e7ac5bea7e6c47f31170a02990
# Parent  fe48762e68deac7b394ab7223d880e3e4e8be64a
(delete_temp_file): Use Fdelete_file.

diff -r fe48762e68de -r 72b312ebaa10 src/callproc.c
--- a/src/callproc.c	Wed Sep 14 09:05:48 1994 +0000
+++ b/src/callproc.c	Wed Sep 14 09:15:46 1994 +0000
@@ -467,7 +467,9 @@
 delete_temp_file (name)
      Lisp_Object name;
 {
-  unlink (XSTRING (name)->data);
+  /* Use Fdelete_file because that runs a file name handler.
+     We did that when writing the file, so we should do so when deleting.  */
+  Fdelete_file (name);
 }
 
 DEFUN ("call-process-region", Fcall_process_region, Scall_process_region,