# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 786050873 0
# Node ID e930bf84753c9ff262119ed4fbf046d1e3057aac
# Parent  2d7a561cc92cf8b1b310834f6e2794f6875e082c
(internal_delete_file, internal_delete_file_1): New functions.

diff -r 2d7a561cc92c -r e930bf84753c src/fileio.c
--- a/src/fileio.c	Mon Nov 28 19:27:41 1994 +0000
+++ b/src/fileio.c	Mon Nov 28 19:27:53 1994 +0000
@@ -1925,7 +1925,7 @@
   UNGCPRO;
   return Qnil;
 }
-
+
 DEFUN ("make-directory-internal", Fmake_directory_internal,
        Smake_directory_internal, 1, 1, 0,
   "Create a directory.  One argument, a file name string.")
@@ -1995,6 +1995,23 @@
   return Qnil;
 }
 
+static Lisp_Object
+internal_delete_file_1 (ignore)
+     Lisp_Object ignore;
+{
+  return Qt;
+}
+
+/* Delete file FILENAME, returning 1 if successful and 0 if failed.  */
+
+int
+internal_delete_file (filename)
+     Lisp_Object filename;
+{
+  return NILP (internal_condition_case_1 (Fdelete_file, filename,
+					  Qt, internal_delete_file_1));
+}
+
 DEFUN ("rename-file", Frename_file, Srename_file, 2, 3,
   "fRename file: \nFRename %s to file: \np",
   "Rename FILE as NEWNAME.  Both args strings.\n\