* Do not fail if more then one level of directories has to be created

* lisp/emacs-lisp/comp.el (native-compile-async): Call
	make-directory if necessary.
This commit is contained in:
Andrea Corallo 2020-08-15 11:29:06 +02:00
parent df774c4947
commit 377ffdb528

View file

@ -2748,9 +2748,9 @@ queued with LOAD %"
comp-deferred-compilation-black-list)))
(let* ((out-filename (comp-el-to-eln-filename file))
(out-dir (file-name-directory out-filename)))
(if (or (file-writable-p out-filename)
(and (not (file-exists-p out-dir))
(file-writable-p (substring out-dir 0 -1))))
(unless (file-exists-p out-dir)
(make-directory out-dir t))
(if (file-writable-p out-filename)
(setf comp-files-queue
(append comp-files-queue `((,file . ,load))))
(display-warning 'comp