From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 30 Apr 2005 20:14:32 +0000 (+0000)
Subject: (backup-buffer-copy): Use copy-file instead
X-Git-Tag: ttn-vms-21-2-B4~649
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=689accb820a12726de605d3b12f32e48d39ba1a3;p=emacs.git

(backup-buffer-copy): Use copy-file instead
of write-region, and put back the 'excl.
---

diff --git a/lisp/files.el b/lisp/files.el
index 5d7eff99548..a2b74f8273e 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -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