mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

* When advising search in `comp-eln-load-path' the first writable dir

Browse source 
* lisp/emacs-lisp/comp.el (comp-tampoline-compile): Do not crash
	if we can't write in the first entry in `comp-eln-load-path' but
	search for another one.
This commit is contained in:
Andrea Corallo 2020-10-02 14:42:43 +02:00
parent 8dacc9e8c5
commit 36e0c3fb07
1 changed files with 19 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/emacs-lisp/comp.el
View file

@ -2600,10 +2600,18 @@ Return the its filename if found or nil otherwise."
for arg in lambda-list
unless (memq arg '(&optional &rest))
collect arg)))))
(native-compile trampoline-sym nil
(expand-file-name (comp-trampoline-filename subr-name)
(concat (car comp-eln-load-path)
comp-native-version-dir)))))
(native-compile
trampoline-sym nil
(cl-loop
for dir in comp-eln-load-path
for f = (expand-file-name
(comp-trampoline-filename subr-name)
(concat dir
comp-native-version-dir))
when (file-writable-p f)
do (cl-return f)
finally (error "Can't find a writable directory in \
`comp-eln-load-path'")))))
;;;###autoload
(defun comp-subr-safe-advice (subr-name)