* 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:
parent
df774c4947
commit
377ffdb528
1 changed files with 3 additions and 3 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue