Commit ede9503b authored by Michael Albinus's avatar Michael Albinus
Browse files

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

(tramp-smb-handle-delete-directory ): Use
`tramp-compat-copy-directory' and `tramp-compat-delete-directory'.
parent 55a57586
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment