From 8dd6120594569a1d8186211963094f53caa7a6ed Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 12 Aug 2021 01:19:26 +0200 Subject: Fix bytecomp container test case * lisp/startup.el (normal-top-level): Make startup more robust -- we may not be allowed to create any directories when running under test mode (bug#48350). --- lisp/startup.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lisp/startup.el') diff --git a/lisp/startup.el b/lisp/startup.el index f337f7c6bcf..58030ca06af 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -549,7 +549,11 @@ It is the default value of the variable `top-level'." ;; 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") + (when (and (equal (getenv "HOME") "/nonexistent") + ;; We may be running in a chroot environment where we + ;; can't write anything. + (file-writable-p (expand-file-name + (or temporary-file-directory "")))) (let ((tmp-dir (make-temp-file "emacs-testsuite-" t))) (add-hook 'kill-emacs-hook (lambda () (delete-directory tmp-dir t))) (push tmp-dir native-comp-eln-load-path)))) -- cgit v1.2.3