Expand file-name before use

Without expanding the file name to an absolute file name the following
invocation would go wrong:

,----
| kaarvork some-template .
`----

Because `kaarvok' would not know what to do with the `.' and errors
would occur.
This commit is contained in:
Tom Willemse 2013-09-23 00:44:43 +02:00
parent 4c157a4d5d
commit 2ddc4a8061

View file

@ -133,7 +133,8 @@ Replace any occurrences of variables with user-povided values."
(interactive "MTemplate: \nGDestination: ") (interactive "MTemplate: \nGDestination: ")
(let ((kaarvok-value-alist)) (let ((kaarvok-value-alist))
(kaarvok-copy-directory (kaarvok-copy-directory
(concat kaarvok-templates-directory "/" template) destination))) (concat kaarvok-templates-directory "/" template)
(expand-file-name destination))))
(provide 'kaarvok) (provide 'kaarvok)
;;; kaarvok.el ends here ;;; kaarvok.el ends here