# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1254463258 0
# Node ID 28c45fa22117409752d8fd42a82482aa81597149
# Parent  7a4bd0ca624b0552bf249bc8308bb872f5964675
* w32fns.c (Fsystem_move_file_to_trash): Use delete-directory.

diff -r 7a4bd0ca624b -r 28c45fa22117 src/w32fns.c
--- a/src/w32fns.c	Fri Oct 02 05:57:49 2009 +0000
+++ b/src/w32fns.c	Fri Oct 02 06:00:58 2009 +0000
@@ -6218,7 +6218,7 @@
   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);