mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(tramp-smb-handle-delete-directory ): Use
`tramp-compat-copy-directory' and `tramp-compat-delete-directory'.
This commit is contained in:
Michael Albinus 2009-11-07 23:55:30 +00:00
parent 55a57586c6
commit ede9503b68
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/net/tramp-smb.el
View file

@ -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