From cea121635e2409959ea2687b8ef8b5372646a393 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Mon, 2 Sep 2019 01:18:29 +0530 Subject: While copying, overwrite if destination already exists. * ennu.el (ennu-copy): Overwrite destination if it already exists. --- ennu.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ennu.el b/ennu.el index 0d6abec..b2cc472 100644 --- a/ennu.el +++ b/ennu.el @@ -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) -- cgit v1.2.3