diff options
| author | Arun Isaac | 2019-09-02 01:18:29 +0530 |
|---|---|---|
| committer | Arun Isaac | 2019-09-02 01:18:29 +0530 |
| commit | cea121635e2409959ea2687b8ef8b5372646a393 (patch) | |
| tree | a624ce780b3c0d3cfaff45c9572f367c8a1eb2d1 /ennu.el | |
| parent | 69c1ba35896875ccfee4fbb9c5b2d60748f7a346 (diff) | |
| download | ennum-cea121635e2409959ea2687b8ef8b5372646a393.tar.gz ennum-cea121635e2409959ea2687b8ef8b5372646a393.tar.lz ennum-cea121635e2409959ea2687b8ef8b5372646a393.zip | |
While copying, overwrite if destination already exists.
* ennu.el (ennu-copy): Overwrite destination if it already exists.
Diffstat (limited to 'ennu.el')
| -rw-r--r-- | ennu.el | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -309,11 +309,12 @@ last form in BODY." (make-directory directory t)) (defun ennu-copy (source destination) - "Copy file or directory from SOURCE to DESTINATION." + "Copy file or directory from SOURCE to DESTINATION. Overwrite +if DESTINATION already exists." (if (file-directory-p source) (copy-directory source destination) (make-directory (file-name-directory destination) t) - (copy-file source destination))) + (copy-file source destination t))) (defun ennu--do-operation (temporary-directory operation) (let* ((expand (lambda (directory file) |