# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780785108 0
# Node ID 1d95c81487a315cfc8ee09f589422b9909651cfa
# Parent  edc1c9086c5ca998bb989bd540512c7a3fada29a
(Fdelete_file): Undo Sep 16 change.

diff -r edc1c9086c5c -r 1d95c81487a3 src/fileio.c
--- a/src/fileio.c	Wed Sep 28 04:46:02 1994 +0000
+++ b/src/fileio.c	Wed Sep 28 20:45:08 1994 +0000
@@ -150,8 +150,6 @@
 static Lisp_Object Vinhibit_file_name_handlers;
 static Lisp_Object Vinhibit_file_name_operation;
 
-extern Lisp_Object Qcompletion_ignored_extensions;
-
 Lisp_Object Qfile_error, Qfile_already_exists;
 
 Lisp_Object Qfile_name_history;
@@ -1905,19 +1903,17 @@
   (filename)
      Lisp_Object filename;
 {
-  int count = specpdl_ptr - specpdl;
   Lisp_Object handler;
   CHECK_STRING (filename, 0);
   filename = Fexpand_file_name (filename, Qnil);
 
-  specbind (Qcompletion_ignored_extensions, Qnil);
   handler = Ffind_file_name_handler (filename, Qdelete_file);
   if (!NILP (handler))
-    return unbind_to (count, call2 (handler, Qdelete_file, filename));
+    return call2 (handler, Qdelete_file, filename);
 
   if (0 > unlink (XSTRING (filename)->data))
     report_file_error ("Removing old name", Flist (1, &filename));
-  return unbind_to (count, Qnil);
+  return Qnil;
 }
 
 DEFUN ("rename-file", Frename_file, Srename_file, 2, 3,