From 586c518374d87c237eca22b4fc742ce0e6015ef1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 28 Nov 1994 19:27:53 +0000 Subject: (internal_delete_file, internal_delete_file_1): New functions. --- src/fileio.c | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) (limited to 'src/fileio.c') diff --git a/src/fileio.c b/src/fileio.c index b89cfe4ed52..a1b202581f1 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -1925,7 +1925,7 @@ A prefix arg makes KEEP-TIME non-nil.") 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 @@ If file has multiple names, it continues to exist with the other names.") 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\ -- cgit v1.2.1