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

Use `shell-quote-argument' instead of quoting 'like this'.
This commit is contained in:
Michael Albinus 2020-04-27 10:36:33 +02:00
parent 1f76a16ed3
commit 9f5ae717fb

View file

@ -724,8 +724,9 @@ See Bug#21722."
(,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")))
(emacs (expand-file-name invocation-name invocation-directory)) (emacs (expand-file-name invocation-name invocation-directory))
(,command (format "%s -Q --batch --eval '(princ %S)'" (,command
emacs ,str)) (format "%s -Q --batch --eval %s"
emacs (shell-quote-argument (format "(princ %S)" ,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,