summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2023-08-13 15:21:34 -0400
committerStefan Monnier <monnier@iro.umontreal.ca>2023-08-13 15:21:52 -0400
commitbb9133f09dafb069cafe2bea72452bd34b3d6dd2 (patch)
tree457c827ef5b17022b820da3afa4cd10e16d3527d /lisp/emacs-lisp
parent14cd2a058e56d63bab08190826559521083a7d05 (diff)
downloademacs-bb9133f09dafb069cafe2bea72452bd34b3d6dd2.tar.gz
emacs-bb9133f09dafb069cafe2bea72452bd34b3d6dd2.tar.bz2
emacs-bb9133f09dafb069cafe2bea72452bd34b3d6dd2.zip
* lisp/emacs-lisp/ert.el (ert-run-tests-batch-and-exit): Inhibit interaction
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/ert.el4
1 files changed, 3 insertions, 1 deletions
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