procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a tmp dir to `comp-eln-load-path' when running the testsuite.

Browse source 
* lisp/startup.el (normal-top-level): Tweak `comp-eln-load-path'
	adding a temp directory when running the testsuite.
This commit is contained in:
Andrea Corallo 2021-03-21 16:55:19 +01:00
parent d0280ce1b1
commit af739863b0
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/startup.el
View file

@ -537,13 +537,19 @@ It is the default value of the variable `top-level'."
(startup--xdg-or-homedot startup--xdg-config-home-emacs nil))
(when (featurep 'nativecomp)
;; Form `comp-eln-load-path'.
(defvar comp-eln-load-path)
(let ((path-env (getenv "EMACSNATIVELOADPATH")))
(when path-env
(dolist (path (split-string path-env path-separator))
(unless (string= "" path)
(push path comp-eln-load-path)))))
(push (concat user-emacs-directory "eln-cache/") comp-eln-load-path))
(push (concat user-emacs-directory "eln-cache/") comp-eln-load-path)
;; When $HOME is set to '/nonexistent' means we are running the
;; testsuite, add a temporary folder in front to produce there
;; new compilations.
(when (equal (getenv "HOME") "/nonexistent")
(push (make-temp-file "emacs-testsuite-" t) comp-eln-load-path)))
;; Look in each dir in load-path for a subdirs.el file. If we
;; find one, load it, which will add the appropriate subdirs of
;; that dir into load-path. This needs to be done before setting