* 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.

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 99bf30a4eeee8b61464493ada7dd9258a46c68de..802466550dc0f644eaa150958fbe99a7a17cbad0 100644 (file)
--- 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