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(-)

(limited to 'ennu.el')

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