* Clean-up temporary eln test-suite directory when exiting (bug#48060)

	* lisp/startup.el (normal-top-level): Remove eln test-suite temp
	dir when exiting.

diff --git a/lisp/startup.el b/lisp/startup.el
index a21372a046358421abadb419056b64d433eb4c70..3513ab7c4ecddec126729341cd645a337bad038c 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -550,7 +550,9 @@ It is the default value of the variable `top-level'."
       ;; 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)))
+        (let ((tmp-dir (make-temp-file "emacs-testsuite-" t)))
+          (add-hook 'kill-emacs-hook (lambda () (delete-directory tmp-dir t)))
+          (push tmp-dir 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