mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(backup-buffer-copy): Use copy-file instead

Browse source 
of write-region, and put back the 'excl.
This commit is contained in:
Richard M. Stallman 2005-04-30 20:14:32 +00:00
parent 53ec26eded
commit 689accb820
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/files.el
View file

@ -2761,14 +2761,12 @@ BACKUPNAME is the backup file name, which is the old file renamed."
(condition-case nil
(delete-file to-name)
(file-error nil))
(write-region "" nil to-name nil 'silent nil 'excl)
(copy-file from-name to-name t t 'excl)
nil)
(file-already-exists t))
;; the file was somehow created by someone else between
;; `make-temp-name' and `write-region', let's try again.
nil)
; (copy-file from-name to-name t t 'excl))
(copy-file from-name to-name t t))
;; The file was somehow created by someone else between
;; `delete-file' and `copy-file', so let's try again.
nil))
;; Reset the umask.
(set-default-file-modes umask)))
(and modes