diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-08-15 11:29:06 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-08-15 20:54:44 +0200 |
| commit | ade825bafc904afc5231c0b5a9e4fecfb881ddc7 (patch) | |
| tree | f7301738570d072e4ad8ee244621d0f8a43c9fbe /lisp | |
| parent | f319c09ba9800345f44866200334608ea71dba78 (diff) | |
| download | emacs-ade825bafc904afc5231c0b5a9e4fecfb881ddc7.tar.gz | |
* 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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 99bf30a4eee..802466550dc 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -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 |