|
|
(set-default-file-modes ?\700) | (set-default-file-modes ?\700) |
(while (condition-case () | (while (condition-case () |
(progn | (progn |
(condition-case nil |
(and (file-exists-p to-name) |
(delete-file to-name) |
(delete-file to-name)) |
(file-error nil)) |
|
(copy-file from-name to-name nil t) | (copy-file from-name to-name nil t) |
nil) | nil) |
(file-already-exists t)) | (file-already-exists t)) |