copy file bug fixed
This commit is contained in:
parent
1961a782dd
commit
d8383876c0
|
@ -84,10 +84,14 @@
|
||||||
(defun project/copying-license-copy ()
|
(defun project/copying-license-copy ()
|
||||||
"Copy COPYING file into source tree of project."
|
"Copy COPYING file into source tree of project."
|
||||||
(if project-license
|
(if project-license
|
||||||
(let (copying)
|
(let (copying dest)
|
||||||
(setq copying (concat TEMPLATESPATH (concat "licenses/" (format "/%s/COPYING" project-license))))
|
(setq copying (concat TEMPLATESPATH (concat "licenses/" (format "/%s/COPYING" project-license))))
|
||||||
(copy-file copying (expand-file-name project-path "COPYING"))
|
(setq dest (expand-file-name project-path "COPYING"))
|
||||||
(log "'COPYING' file copied.")
|
(if (not (file-exists-p dest))
|
||||||
|
(progn
|
||||||
|
(copy-file copying )
|
||||||
|
(log "'COPYING' file copied.")
|
||||||
|
)
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
|
Loading…
Reference in New Issue