mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

* files.el (backup-buffer-copy): Call `copy-file' with non-nil

Browse Source 
preserve-uid-gid.

* net/ange-ftp.el (ange-ftp-copy-file): Add PRESERVE-UID-GID for
compatibility.  It is not used, though.
This commit is contained in:
Michael Albinus 2007-10-21 10:48:28 +00:00
parent 74e248f328
commit 5b2e628f4c
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -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.

4
lisp/files.el
View File

@ -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

2
lisp/net/ange-ftp.el
View File

@ -3813,7 +3813,7 @@ Value is (0 0) if the modification time cannot be determined."
(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