From ede9503b68e7e0a67e6374612bc23327c4778f45 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sat, 7 Nov 2009 23:55:30 +0000 Subject: [PATCH] * net/tramp-smb.el (tramp-smb-handle-copy-directory) (tramp-smb-handle-delete-directory ): Use `tramp-compat-copy-directory' and `tramp-compat-delete-directory'. --- lisp/net/tramp-smb.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el index 036b98e8df1..581e18b9999 100644 --- a/lisp/net/tramp-smb.el +++ b/lisp/net/tramp-smb.el @@ -276,9 +276,9 @@ pass to the OPERATION." (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 @@ PRESERVE-UID-GID is completely ignored." (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 -- 2.39.2