* w32fns.c (Fsystem_move_file_to_trash): Use delete-directory.

This commit is contained in:
Michael Albinus 2009-10-02 06:01:32 +00:00
parent c5c21b70c1
commit e9a0aef83c
2 changed files with 8 additions and 1 deletions

View file

@ -1,3 +1,10 @@
2009-10-02 Michael Albinus <michael.albinus@gmx.de>
* lisp.h (Qdelete_directory_internal): Removed, because it is not
used anymore outside fileio.c.
* w32fns.c (Fsystem_move_file_to_trash): Use delete-directory.
2009-10-01 Juanma Barranquero <lekktu@gmail.com>
* lisp.h (Qdelete_directory_internal):

View file

@ -6218,7 +6218,7 @@ DEFUN ("system-move-file-to-trash", Fsystem_move_file_to_trash,
if (!NILP (Ffile_directory_p (filename))
&& NILP (Ffile_symlink_p (filename)))
{
operation = Qdelete_directory_internal;
operation = intern ("delete-directory");
filename = Fdirectory_file_name (filename);
}
filename = Fexpand_file_name (filename, Qnil);