diff lisp/net/ange-ftp.el @ 83791:cf51047dc34c

* net/ange-ftp.el: Add ange-ftp property to 'set-file-modes and 'set-file-times.

--- a/lisp/net/ange-ftp.el	Thu Aug 30 19:27:43 2007 +0000
+++ b/lisp/net/ange-ftp.el	Thu Aug 30 19:58:28 2007 +0000
@@ -4372,12 +4372,18 @@
 ;; Treat each name as its own truename.
 (put 'file-truename 'ange-ftp 'identity)
 
+;; We must return non-nil in order to mask our inability to do the job.
+;; Otherwise there are errors when applied to the target file during
+;; copying from a (localhost) Tramp file.
+(put 'set-file-modes 'ange-ftp 'ignore)
+(put 'set-file-times 'ange-ftp 'ignore)
+
 ;; Turn off RCS/SCCS processing to save time.
 ;; This returns nil for any file name as argument.
 (put 'vc-registered 'ange-ftp 'null)
 
 ;; We can handle process-file in a restricted way (just for chown).
-;; Nothing possible for start-file-process.
+;; Nothing possible for `start-file-process'.
 (put 'process-file 'ange-ftp 'ange-ftp-process-file)
 (put 'start-file-process 'ange-ftp 'ignore)
 (put 'shell-command 'ange-ftp 'ange-ftp-shell-command)