Mercurial > emacs
changeset 83791:cf51047dc34c
* net/ange-ftp.el: Add ange-ftp property to 'set-file-modes and
'set-file-times.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Thu, 30 Aug 2007 19:58:28 +0000 |
| parents | 2aeb19284040 |
| children | 97a6d10c46db |
| files | lisp/ChangeLog lisp/net/ange-ftp.el |
| diffstat | 2 files changed, 14 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Aug 30 19:27:43 2007 +0000 +++ b/lisp/ChangeLog Thu Aug 30 19:58:28 2007 +0000 @@ -1,3 +1,8 @@ +2007-08-30 Michael Albinus <michael.albinus@gmx.de> + + * net/ange-ftp.el: Add ange-ftp property to 'set-file-modes and + 'set-file-times. + 2007-08-30 Carsten Dominik <dominik@science.uva.nl> * textmodes/org.el (org-export-visible): Fix drawers before export. @@ -39,7 +44,7 @@ (org-todo-keyword-faces): New option. (org-set-regexps-and-options): Use `org-remove-keyword-keys'. (org-remove-keyword-keys): New function. - + 2007-08-30 Jari Aalto <jari.aalto@cante.net> (tiny change) * progmodes/grep.el (grep-find-ignored-directories): Add @@ -2902,7 +2907,7 @@ * net/tramp-util.el: * net/tramp-vc.el: Removed. - * net/ange-ftp.el: Add ange-ftp property to 'start-file-process + * net/ange-ftp.el: Add ange-ftp property to 'start-file-process. (ange-ftp-file-remote-p): Handle optional parameter CONNECTED. * net/rcompile.el (remote-compile): Handle Tramp 2.1 arguments.
--- 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)