From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 2 Oct 2009 06:01:32 +0000 (+0000)
Subject: * w32fns.c (Fsystem_move_file_to_trash): Use delete-directory.
X-Git-Tag: emacs-pretest-23.1.90~994
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9a0aef83c8176a32bc29ef342c68b91b73c64f5;p=emacs.git

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

diff --git a/src/ChangeLog b/src/ChangeLog
index cde4eb9dc9c..4226e20fd1b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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):
diff --git a/src/w32fns.c b/src/w32fns.c
index 2b6b12e671c..8003d791719 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -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);