From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 13 Aug 2023 19:21:34 +0000 (-0400)
Subject: * lisp/emacs-lisp/ert.el (ert-run-tests-batch-and-exit): Inhibit interaction
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb9133f09dafb069cafe2bea72452bd34b3d6dd2;p=emacs.git

* lisp/emacs-lisp/ert.el (ert-run-tests-batch-and-exit): Inhibit interaction
---

diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index be9f013ebcf..cd4b9c5a2b3 100644
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -1540,7 +1540,9 @@ the tests)."
   (or noninteractive
       (user-error "This function is only for use in batch mode"))
   (let ((eln-dir (and (featurep 'native-compile)
-                      (make-temp-file "test-nativecomp-cache-" t))))
+                  (make-temp-file "test-nativecomp-cache-" t)))
+        ;; Don't ever wait for user input.
+        (inhibit-interaction t))
     (when eln-dir
       (startup-redirect-eln-cache eln-dir))
     ;; Better crash loudly than attempting to recover from undefined