[Emacs-diffs] Changes to emacs/lisp/files.el

[Richard M . Stallman]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.761 emacs/lisp/files.el:1.762
*** emacs/lisp/files.el:1.761   Sun Apr 24 21:29:15 2005
--- emacs/lisp/files.el Sat Apr 30 20:14:32 2005
***************
*** 2761,2774 ****
                       (condition-case nil
                           (delete-file to-name)
                         (file-error nil))
!                      (write-region "" nil to-name nil 'silent nil '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))
        ;; Reset the umask.
        (set-default-file-modes umask)))
    (and modes
--- 2761,2772 ----
                       (condition-case nil
                           (delete-file to-name)
                         (file-error nil))
!                      (copy-file from-name to-name t t 'excl)
                       nil)
                   (file-already-exists 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