diff options
| author | Andrea Corallo | 2020-08-15 11:29:06 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-08-17 18:04:22 +0200 |
| commit | 377ffdb528e75f7e02be5f0305cdf326da0dc451 (patch) | |
| tree | 1d723c6fab92ed734e01c4581d56464198aa1f84 | |
| parent | df774c4947c19478769587d587d07014aac79548 (diff) | |
| download | emacs-377ffdb528e75f7e02be5f0305cdf326da0dc451.tar.gz emacs-377ffdb528e75f7e02be5f0305cdf326da0dc451.zip | |
* 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.
| -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 %" | |||
| 2748 | comp-deferred-compilation-black-list))) | 2748 | comp-deferred-compilation-black-list))) |
| 2749 | (let* ((out-filename (comp-el-to-eln-filename file)) | 2749 | (let* ((out-filename (comp-el-to-eln-filename file)) |
| 2750 | (out-dir (file-name-directory out-filename))) | 2750 | (out-dir (file-name-directory out-filename))) |
| 2751 | (if (or (file-writable-p out-filename) | 2751 | (unless (file-exists-p out-dir) |
| 2752 | (and (not (file-exists-p out-dir)) | 2752 | (make-directory out-dir t)) |
| 2753 | (file-writable-p (substring out-dir 0 -1)))) | 2753 | (if (file-writable-p out-filename) |
| 2754 | (setf comp-files-queue | 2754 | (setf comp-files-queue |
| 2755 | (append comp-files-queue `((,file . ,load)))) | 2755 | (append comp-files-queue `((,file . ,load)))) |
| 2756 | (display-warning 'comp | 2756 | (display-warning 'comp |