From 58bb04c97eeb8d59e69728a37775adb8be60f1c0 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 21 Oct 2007 10:48:28 +0000 Subject: * 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. --- lisp/files.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/files.el') 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 -- cgit v1.2.1