1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00

* net/tramp-compat.el (tramp-compat-copy-directory)

(tramp-compat-delete-directory): New defuns.
This commit is contained in:
Michael Albinus 2009-11-07 23:53:29 +00:00
parent b000a6e24e
commit 3426871b16

View File

@ -319,7 +319,7 @@ pass to the OPERATION."
(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