diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2007-10-21 10:48:28 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2007-10-21 10:48:28 +0000 |
| commit | 58bb04c97eeb8d59e69728a37775adb8be60f1c0 (patch) | |
| tree | a54a0712d9dae097a61029f2a3178e1f090e1a4e /lisp/files.el | |
| parent | 2a7f21a33e071203c94f825b6994e5e4d620bac1 (diff) | |
| download | emacs-58bb04c97eeb8d59e69728a37775adb8be60f1c0.tar.gz | |
* 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.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index 6d03ad24dbe..b2af5c20414 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3204,13 +3204,13 @@ BACKUPNAME is the backup file name, which is the old file renamed." (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 |