From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 7 Nov 2009 23:53:29 +0000 (+0000)
Subject: * net/tramp-compat.el (tramp-compat-copy-directory)
X-Git-Tag: emacs-pretest-23.1.90~536
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3426871b168057ccf7d655a50220e21052b06b9a;p=emacs.git

* net/tramp-compat.el (tramp-compat-copy-directory)
(tramp-compat-delete-directory): New defuns.
---

diff --git a/lisp/net/tramp-fish.el b/lisp/net/tramp-fish.el
index 215ada5d234..8db5dc82fd9 100644
--- a/lisp/net/tramp-fish.el
+++ b/lisp/net/tramp-fish.el
@@ -319,7 +319,7 @@ pass to the OPERATION."
 	(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