copy file bug fixed

This commit is contained in:
lxsameer 2010-12-28 19:44:54 +03:30
parent 1961a782dd
commit d8383876c0
1 changed files with 7 additions and 3 deletions

View File

@ -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.")
)
)
)
)