* net/tramp-smb.el (tramp-smb-handle-copy-directory)

(tramp-smb-handle-delete-directory ): Use
`tramp-compat-copy-directory' and `tramp-compat-delete-directory'.

1 files 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