[Emacs-diffs] emacs/lisp/net tramp-smb.el

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       09/11/07 23:55:30

Modified files:
        lisp/net       : tramp-smb.el 

Log message:
        * net/tramp-smb.el (tramp-smb-handle-copy-directory)
        (tramp-smb-handle-delete-directory ): Use
        `tramp-compat-copy-directory' and `tramp-compat-delete-directory'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp-smb.el?cvsroot=emacs&r1=1.60&r2=1.61

Patches:
Index: tramp-smb.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp-smb.el,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -b -r1.60 -r1.61
--- tramp-smb.el        21 Oct 2009 11:27:26 -0000      1.60
+++ tramp-smb.el        7 Nov 2009 23:55:30 -0000       1.61
@@ -276,9 +276,9 @@
                 (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 @@
        (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