# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1257638009 0
# Node ID ae9f17f9fa465ffb8e58186d6b21a5064b4f6cbf
# Parent  535ef0fe168969bcda7fd625e74edc81fd43bba5
* net/tramp-compat.el (tramp-compat-copy-directory)
(tramp-compat-delete-directory): New defuns.

diff -r 535ef0fe1689 -r ae9f17f9fa46 lisp/net/tramp-fish.el
--- a/lisp/net/tramp-fish.el	Sat Nov 07 23:52:48 2009 +0000
+++ b/lisp/net/tramp-fish.el	Sat Nov 07 23:53:29 2009 +0000
@@ -319,7 +319,7 @@
 	(mapc
 	 (lambda (file)
 	   (if (file-directory-p file)
-	       (delete-directory file recursive)
+	       (tramp-compat-delete-directory file recursive)
 	     (delete-file file)))
 	 ;; We do not want to delete "." and "..".
 	 (directory-files