From d8383876c0583d2ace526af3012710c95f3e6f3c Mon Sep 17 00:00:00 2001 From: lxsameer Date: Tue, 28 Dec 2010 19:44:54 +0330 Subject: [PATCH] copy file bug fixed --- src/lib/project.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/lib/project.el b/src/lib/project.el index 8398fe1..1ccd938 100644 --- a/src/lib/project.el +++ b/src/lib/project.el @@ -84,10 +84,14 @@ (defun project/copying-license-copy () "Copy COPYING file into source tree of project." (if project-license - (let (copying) + (let (copying dest) (setq copying (concat TEMPLATESPATH (concat "licenses/" (format "/%s/COPYING" project-license)))) - (copy-file copying (expand-file-name project-path "COPYING")) - (log "'COPYING' file copied.") + (setq dest (expand-file-name project-path "COPYING")) + (if (not (file-exists-p dest)) + (progn + (copy-file copying ) + (log "'COPYING' file copied.") + ) ) ) )