Fix `org-compile-file'

* lisp/org.el (org-compile-file): Ensure `out-dir' is always a string.
This commit is contained in:
Nicolas Goaziou 2016-12-22 13:12:19 +01:00
parent 13751c3249
commit 820d1eb617
1 changed files with 1 additions and 1 deletions

View File

@ -22773,7 +22773,7 @@ be set to a buffer or a buffer name. `shell-command' then uses
it for output."
(let* ((base-name (file-name-base source))
(full-name (file-truename source))
(out-dir (file-name-directory source))
(out-dir (or (file-name-directory source) "./"))
(output (expand-file-name (concat base-name "." ext) out-dir))
(time (current-time))
(err-msg (if (stringp err-msg) (concat ". " err-msg) "")))