(delete_temp_file): Use internal_delete_file.

diff --git a/src/callproc.c b/src/callproc.c
index 04c390a6067703d4825f457d7b1285895772077e..4ef634e41800c82dffc0420700f6c6e07d1a5cd6 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -492,9 +492,9 @@ static Lisp_Object
 delete_temp_file (name)
      Lisp_Object name;
 {
-  /* Use Fdelete_file because that runs a file name handler.
+  /* Use Fdelete_file (indirectly) because that runs a file name handler.
      We did that when writing the file, so we should do so when deleting.  */
-  Fdelete_file (name);
+  internal_delete_file (name);
 }
 
 DEFUN ("call-process-region", Fcall_process_region, Scall_process_region,