mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 23:50:36 -08:00
Code Issues Projects Releases Wiki Activity

(internal_delete_file, internal_delete_file_1): New functions.

Browse source
This commit is contained in:
Richard M. Stallman 1994-11-28 19:27:53 +00:00
parent 2e3dc201ba
commit 385b6cc702
1 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/fileio.c
View file

@ -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\