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
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
