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

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

diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index 036b98e8df122afb9fc49e2d449ce272b25819ae..581e18b9999c0497cab843add3052bb876fb31c4 100644 (file)
--- 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