diff options
| author | AndreaCorallo <akrl@sdf.org> | 2020-03-03 23:06:46 +0000 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-03-03 23:06:46 +0000 |
| commit | 1f3ba658fccdb0b35bdbbdfeb8591dba72ee983f (patch) | |
| tree | f0ade79d10b71d5f4876843e042dc7c3ab53c5ff /lisp/emacs-lisp/comp.el | |
| parent | 43b6f05dfb46637a414520b27430fbe3b0f005fa (diff) | |
| download | emacs-1f3ba658fccdb0b35bdbbdfeb8591dba72ee983f.tar.gz emacs-1f3ba658fccdb0b35bdbbdfeb8591dba72ee983f.tar.bz2 emacs-1f3ba658fccdb0b35bdbbdfeb8591dba72ee983f.zip | |
* Do not crash if the output directory is created in the meanwhile
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 342faa2879e..f16aa59dc5e 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -2013,7 +2013,9 @@ Prepare every function for final compilation and drive the C back-end." (let ((dir (file-name-directory name))) (comp-finalize-relocs) (unless (file-exists-p dir) - (make-directory dir)) + ;; In case it's created in the meanwhile. + (ignore-error 'file-already-exists + (make-directory dir))) (unless comp-dry-run (comp--compile-ctxt-to-file name)))) |