* Fix failure when compiling a trampoline with no eln-cache dir (bug#43875)
* lisp/emacs-lisp/comp.el (comp-trampoline-compile): Try to create the eln-cache dir if this is not existing, if fails to do that move on to the next one.
This commit is contained in:
parent
85450f03be
commit
138990bbda
1 changed files with 7 additions and 3 deletions
|
@ -2603,11 +2603,15 @@ Return the its filename if found or nil otherwise."
|
|||
(native-compile
|
||||
trampoline-sym nil
|
||||
(cl-loop
|
||||
for dir in comp-eln-load-path
|
||||
for load-dir in comp-eln-load-path
|
||||
for dir = (concat load-dir comp-native-version-dir)
|
||||
for f = (expand-file-name
|
||||
(comp-trampoline-filename subr-name)
|
||||
(concat dir
|
||||
comp-native-version-dir))
|
||||
dir)
|
||||
unless (file-exists-p dir)
|
||||
do (ignore-errors
|
||||
(make-directory dir t)
|
||||
(cl-return f))
|
||||
when (file-writable-p f)
|
||||
do (cl-return f)
|
||||
finally (error "Cannot find suitable directory for output in \
|
||||
|
|
Loading…
Add table
Reference in a new issue