Mercurial > emacs
diff src/fileio.c @ 10084:e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 28 Nov 1994 19:27:53 +0000 |
parents | 72bee09fc541 |
children | ce5ab980a14f |
line wrap: on
line diff
--- 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\