emacs-27 9f5ae71: * test/lisp/simple-tests.el (with-shell-command-dont-erase-buffer):

[Michael Albinus]

branch: emacs-27
commit 9f5ae717fba13de3d670eea9572be0866a313a50
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    * test/lisp/simple-tests.el (with-shell-command-dont-erase-buffer):
    
    Use `shell-quote-argument' instead of quoting 'like this'.
---
 test/lisp/simple-tests.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el
index b23b080..03f7260 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,