|
Lines 3119-3127
Link Here
|
| 3119 |
(set-default-file-modes ?\700) |
3119 |
(set-default-file-modes ?\700) |
| 3120 |
(while (condition-case () |
3120 |
(while (condition-case () |
| 3121 |
(progn |
3121 |
(progn |
| 3122 |
(condition-case nil |
3122 |
(and (file-exists-p to-name) |
| 3123 |
(delete-file to-name) |
3123 |
(delete-file to-name)) |
| 3124 |
(file-error nil)) |
|
|
| 3125 |
(copy-file from-name to-name nil t) |
3124 |
(copy-file from-name to-name nil t) |
| 3126 |
nil) |
3125 |
nil) |
| 3127 |
(file-already-exists t)) |
3126 |
(file-already-exists t)) |
