[Emacs-diffs] Changes to emacs/src/callproc.c

[Ken Raeburn]

Index: emacs/src/callproc.c
diff -u emacs/src/callproc.c:1.210 emacs/src/callproc.c:1.211
--- emacs/src/callproc.c:1.210  Sun Jan  1 11:41:00 2006
+++ emacs/src/callproc.c        Tue Jan  3 08:24:24 2006
@@ -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;
 }