Mercurial > emacs
changeset 85505:bc97f31b2cf1
* files.el (backup-buffer-copy): Call `copy-file' with non-nil
preserve-uid-gid.
* net/ange-ftp.el (ange-ftp-copy-file): Add PRESERVE-UID-GID for
compatibility. It is not used, though.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Sun, 21 Oct 2007 10:48:28 +0000 |
| parents | 57182abd3d86 |
| children | b31c7731df51 |
| files | lisp/ChangeLog lisp/files.el lisp/net/ange-ftp.el |
| diffstat | 3 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Oct 21 07:53:45 2007 +0000 +++ b/lisp/ChangeLog Sun Oct 21 10:48:28 2007 +0000 @@ -1,3 +1,11 @@ +2007-10-21 Michael Albinus <michael.albinus@gmx.de> + + * files.el (backup-buffer-copy): Call `copy-file' with non-nil + preserve-uid-gid. + + * net/ange-ftp.el (ange-ftp-copy-file): Add PRESERVE-UID-GID for + compatibility. It is not used, though. + 2007-10-21 Dan Nicolaescu <dann@ics.uci.edu> * progmodes/gud.el (gud-target-name): Move definition before use.
--- a/lisp/files.el Sun Oct 21 07:53:45 2007 +0000 +++ b/lisp/files.el Sun Oct 21 10:48:28 2007 +0000 @@ -3204,13 +3204,13 @@ (set-default-file-modes ?\700) (when (condition-case nil ;; Try to overwrite old backup first. - (copy-file from-name to-name t t) + (copy-file from-name to-name t t t) (error t)) (while (condition-case nil (progn (when (file-exists-p to-name) (delete-file to-name)) - (copy-file from-name to-name nil t) + (copy-file from-name to-name nil t t) nil) (file-already-exists t)) ;; The file was somehow created by someone else between
--- a/lisp/net/ange-ftp.el Sun Oct 21 07:53:45 2007 +0000 +++ b/lisp/net/ange-ftp.el Sun Oct 21 10:48:28 2007 +0000 @@ -3813,7 +3813,7 @@ (ange-ftp-call-cont cont result line))) (defun ange-ftp-copy-file (filename newname &optional ok-if-already-exists - keep-date) + keep-date preserve-uid-gid) (interactive "fCopy file: \nFCopy %s to file: \np") (ange-ftp-copy-file-internal filename newname