mirror of
https://github.com/masscollaborationlabs/emacs.git
synced 2025-07-10 14:10:51 +00:00
* 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:
parent
1f76a16ed3
commit
9f5ae717fb
1 changed files with 3 additions and 2 deletions
|
@ -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,
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue