Mercurial > emacs

changeset 105897:d8ba90718d44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/tramp-smb.el (tramp-smb-handle-copy-directory) (tramp-smb-handle-delete-directory ): Use `tramp-compat-copy-directory' and `tramp-compat-delete-directory'.
author Michael Albinus <michael.albinus@gmx.de>
date Sat, 07 Nov 2009 23:55:30 +0000
parents 471721be8fba
children 5eb4659b2752
files lisp/net/tramp-smb.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/tramp-smb.el	Sat Nov 07 23:54:29 2009 +0000
+++ b/lisp/net/tramp-smb.el	Sat Nov 07 23:55:30 2009 +0000
@@ -276,9 +276,9 @@
 		 (tramp-compat-temporary-file-directory)))))
 	  (unwind-protect
 	      (progn
-		(copy-directory dirname tmpdir keep-date parents)
-		(copy-directory tmpdir newname keep-date parents))
-	    (delete-directory tmpdir 'recursive))))
+		(tramp-compat-copy-directory dirname tmpdir keep-date parents)
+		(tramp-compat-copy-directory tmpdir newname keep-date parents))
+	    (tramp-compat-delete-directory tmpdir 'recursive))))
 
        ;; We can copy recursively.
        ((or t1 t2)
@@ -371,7 +371,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