>From b0750e490f36fb041c5daaf2fc64d22e235a522e Mon Sep 17 00:00:00 2001
From: Michael Albinus <address@hidden>
Date: Sun, 29 May 2011 17:42:42 +0200
Subject: [PATCH 3/9] Add `tramp-adb-handle-copy-file'.

---
 tramp-adb.el |   47 ++++++++++++++++++++++++++++++++++++++++++++++-
 1 files changed, 46 insertions(+), 1 deletions(-)

diff --git a/tramp-adb.el b/tramp-adb.el
index e96d880..b1e4f99 100644
--- a/tramp-adb.el
+++ b/tramp-adb.el
@@ -98,6 +98,8 @@
     (vc-registered . ignore)	;no  vc control files on Android devices
     (write-region . tramp-adb-handle-write-region)
     (set-file-modes . tramp-adb-handle-set-file-modes)
+    (set-file-times . ignore)
+    (copy-file . tramp-adb-handle-copy-file)
     (rename-file . tramp-sh-handle-rename-file))
   "Alist of handler functions for Tramp ADB method.")
 
@@ -429,7 +431,8 @@ pass to the OPERATION."
 	(when (tramp-adb-execute-adb-command v "pull" localname tmpfile)
 	  (delete-file tmpfile)
 	  (tramp-error
-	   v 'file-error "Cannot make local copy of file `%s'" filename)))
+	   v 'file-error "Cannot make local copy of file `%s'" filename))
+	(set-file-modes tmpfile (file-modes filename)))
       tmpfile)))
 
 (defun tramp-adb-handle-file-writable-p (filename)
@@ -482,6 +485,48 @@ pass to the OPERATION."
      v (format "chmod %s %s" (tramp-compat-decimal-to-octal mode) localname)
      "Error while changing file's mode %s" filename)))
 
+(defun tramp-adb-handle-copy-file
+  (filename newname &optional ok-if-already-exists keep-date
+	    preserve-uid-gid preserve-selinux-context)
+  "Like `copy-file' for Tramp files.
+PRESERVE-UID-GID and PRESERVE-SELINUX-CONTEXT are completely ignored."
+  (setq filename (expand-file-name filename)
+	newname (expand-file-name newname))
+  (with-progress-reporter
+      (tramp-dissect-file-name (if (file-remote-p filename) filename newname))
+      0 (format "Copying %s to %s" filename newname)
+
+    (let ((tmpfile (file-local-copy filename)))
+
+      (if tmpfile
+	  ;; Remote filename.
+	  (condition-case err
+	      (rename-file tmpfile newname ok-if-already-exists)
+	    ((error quit)
+	     (delete-file tmpfile)
+	     (signal (car err) (cdr err))))
+
+	;; Remote newname.
+	(when (file-directory-p newname)
+	  (setq newname
+		(expand-file-name (file-name-nondirectory filename) newname)))
+
+	(with-parsed-tramp-file-name newname nil
+	  (when (and (not ok-if-already-exists)
+		     (file-exists-p newname))
+	    (tramp-error v 'file-already-exists newname))
+
+	  ;; We must also flush the cache of the directory, because
+	  ;; `file-attributes' reads the values from there.
+	  (tramp-flush-file-property v (file-name-directory localname))
+	  (tramp-flush-file-property v localname)
+	  (when (tramp-adb-execute-adb-command v "push" filename localname)
+	    (tramp-error
+	     v 'file-error "Cannot copy `%s' `%s'" filename newname))))))
+
+  ;; KEEP-DATE handling.
+  (when keep-date (set-file-times newname (nth 5 (file-attributes filename)))))
+
 ;;; Android doesn't provide test command
 
 (defun tramp-adb-handle-file-exists-p (filename)
-- 
1.7.4.1