diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2020-04-27 10:36:33 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2020-04-27 10:36:33 +0200 |
| commit | 9f5ae717fba13de3d670eea9572be0866a313a50 (patch) | |
| tree | 6761e8b6c22fc8c9a2e829aefa5aa713c686f500 /test | |
| parent | 1f76a16ed349b9556ab711fc12ffb876c8488596 (diff) | |
| download | emacs-9f5ae717fba13de3d670eea9572be0866a313a50.tar.gz | |
* test/lisp/simple-tests.el (with-shell-command-dont-erase-buffer):
Use `shell-quote-argument' instead of quoting 'like this'.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/simple-tests.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el index b23b0804575..03f7260f551 100644 --- a/test/lisp/simple-tests.el +++ b/test/lisp/simple-tests.el @@ -724,8 +724,9 @@ See Bug#21722." (,output-buf (if ,output-buffer-is-current ,caller-buf (generate-new-buffer "output-buf"))) (emacs (expand-file-name invocation-name invocation-directory)) - (,command (format "%s -Q --batch --eval '(princ %S)'" - emacs ,str)) + (,command + (format "%s -Q --batch --eval %s" + emacs (shell-quote-argument (format "(princ %S)" ,str)))) (inhibit-message t)) (unwind-protect ;; Feature must work the same regardless how we specify the 2nd arg of `shell-command', ie, |