* net/tramp.el (tramp-file-name-for-operation): Add

`files-equal-p' and `file-subdir-of-p'.

* net/tramp-sh.el (tramp-sh-handle-copy-directory):
* net/tramp-smb.el (tramp-smb-handle-copy-directory): Add
COPY-CONTENTS argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d3ff6c42256f6bd97cd0334492cde216ff83e39..764efc4d640ee4f073f039dd83264c8be98dc9fa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2012-02-25  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp.el (tramp-file-name-for-operation): Add
+       `files-equal-p' and `file-subdir-of-p'.
+
+       * net/tramp-sh.el (tramp-sh-handle-copy-directory):
+       * net/tramp-smb.el (tramp-smb-handle-copy-directory): Add
+       COPY-CONTENTS argument.
+
 2012-02-25  Chong Yidong  <cyd@gnu.org>
 
        Add custom groups for VC backends, for consistency with vc-bzr.

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 38e19730a6d124d75729a8d017b26fc1fb5f6318..801ec5f5fc9f3c5fe5f1bfc9eeb38cc3d5cd1a20 100644 (file)
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -1909,7 +1909,7 @@ tramp-sh-handle-file-name-all-completions: internal error accessing `%s': `%s'"
      'copy-file (list filename newname ok-if-already-exists keep-date)))))
 
 (defun tramp-sh-handle-copy-directory
-  (dirname newname &optional keep-date parents)
+  (dirname newname &optional keep-date parents copy-contents)
   "Like `copy-directory' for Tramp files."
   (let ((t1 (tramp-tramp-file-p dirname))
        (t2 (tramp-tramp-file-p newname)))

diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index afce61cba83eed8b97b7cf097f28ebf5e4f233e2..d3f0d8afb12999d1bca7bf65d5680576e86db3d4 100644 (file)
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -288,7 +288,7 @@ pass to the OPERATION."
         (buffer-name))))))
 
 (defun tramp-smb-handle-copy-directory
-  (dirname newname &optional keep-date parents)
+  (dirname newname &optional keep-date parents copy-contents)
   "Like `copy-directory' for Tramp files.  KEEP-DATE is not handled."
   (setq dirname (expand-file-name dirname)
        newname (expand-file-name newname))

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 851b11629f4ac13a5aceca2c2d2db3d145d245a7..cc1977dfe2200982a60e7510061e3bf1987868bc 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1809,6 +1809,8 @@ ARGS are the arguments OPERATION has been called with."
                  'file-newer-than-file-p 'make-symbolic-link 'rename-file
                  ;; Emacs 23+ only.
                  'copy-directory
+                 ;; Emacs 24+ only.
+                 'files-equal-p 'file-subdir-of-p
                  ;; XEmacs only.
                  'dired-make-relative-symlink
                  'vm-imap-move-mail 'vm-pop-move-mail 'vm-spool-move-mail))