# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1136276664 0
# Node ID d7475f0d0bda10faba6ab87ca7b42feee99f3c7f
# Parent  7882fc7df35915880b3ae1d50b7cdff32ce511a2
(delete_temp_file): Bind file-name-handler-alist to nil for the call
to internal_delete_file.

diff -r 7882fc7df359 -r d7475f0d0bda src/callproc.c
--- a/src/callproc.c	Tue Jan 03 06:13:43 2006 +0000
+++ b/src/callproc.c	Tue Jan 03 08:24:24 2006 +0000
@@ -1013,9 +1013,11 @@
 delete_temp_file (name)
      Lisp_Object name;
 {
-  /* 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.  */
+  /* Suppress jka-compr handling, etc.  */
+  int count = SPECPDL_INDEX ();
+  specbind (intern ("file-name-handler-alist"), Qnil);
   internal_delete_file (name);
+  unbind_to (count, Qnil);
   return Qnil;
 }