From 3543b9fad9c48556e298085c49bcad38e67d4d83 Mon Sep 17 00:00:00 2001 From: Tino Calancha Date: Sun, 19 Jan 2020 22:01:17 +0100 Subject: ; 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. --- test/lisp/simple-tests.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'test') diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el index 0b12cee5855..8ef3c885b96 100644 --- a/test/lisp/simple-tests.el +++ b/test/lisp/simple-tests.el @@ -723,7 +723,7 @@ See Bug#21722." `(let* ((,caller-buf (generate-new-buffer "caller-buf")) (,output-buf (if ,output-buffer-is-current ,caller-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)) (unwind-protect ;; Feature must work the same regardless how we specify the 2nd arg of `shell-command', ie, -- cgit v1.2.1