comparison lisp/files.el @ 83296:effe22690419

Merged from [e-mail]--gnu-2005 (patch 281-285) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-281 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-282 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-283 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-284 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-285 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-336

83295:2d137ca54960

	  (while (condition-case ()
		     (progn
		       (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
       (set-file-modes to-name (logand modes #o1777))))

83296:effe22690419

	  (while (condition-case ()
		     (progn
		       (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
       (set-file-modes to-name (logand modes #o1777))))