; * src/fileio.c (internal_delete_file): Call internal_condition_case_1.

diff --git a/src/fileio.c b/src/fileio.c
index 290481c2b5dc3761d83e57bb7eb6c19dc9867e29..b5c3add836ea7eaf25050c309a84d64d13c8234e 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2598,7 +2598,7 @@ internal_delete_file (Lisp_Object filename)
 {
   Lisp_Object tem;
 
-  tem = internal_condition_case_2 (Fdelete_file_internal, filename,
+  tem = internal_condition_case_1 (Fdelete_file_internal, filename,
                                   Qt, internal_delete_file_1);
   return NILP (tem);
 }