; Fix a test (Bug#39067)

* test/lisp/simple-tests.el (with-shell-command-dont-erase-buffer):
Use flag -Q to prevent from loading site-lisp files.
This commit is contained in:
Tino Calancha 2020-01-19 22:01:17 +01:00
parent 83f9fe44fa
commit 3543b9fad9

View file

@ -723,7 +723,7 @@ See Bug#21722."
`(let* ((,caller-buf (generate-new-buffer "caller-buf")) `(let* ((,caller-buf (generate-new-buffer "caller-buf"))
(,output-buf (if ,output-buffer-is-current ,caller-buf (,output-buf (if ,output-buffer-is-current ,caller-buf
(generate-new-buffer "output-buf"))) (generate-new-buffer "output-buf")))
(,command (format "%s --batch --eval '(princ \"%s\")'" invocation-name ,str)) (,command (format "%s -Q --batch --eval '(princ \"%s\")'" invocation-name ,str))
(inhibit-message t)) (inhibit-message t))
(unwind-protect (unwind-protect
;; Feature must work the same regardless how we specify the 2nd arg of `shell-command', ie, ;; Feature must work the same regardless how we specify the 2nd arg of `shell-command', ie,