; 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:
parent
83f9fe44fa
commit
3543b9fad9
1 changed files with 1 additions and 1 deletions
|
@ -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,
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue