diff options
| author | Jordan Brown <mrhmouse@gmail.com> | 2016-09-21 10:07:21 -0400 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2016-09-30 06:06:25 +0200 |
| commit | 2fb484bac916304c255580fcb9feb3b9cc771ac3 (patch) | |
| tree | 8187a075fc10d5abc7e8d5841e3225a0ac0d7378 | |
| parent | e4c15a770a53576c852e88fe37aea885890c5e9b (diff) | |
| download | geiser-chez-2fb484bac916304c255580fcb9feb3b9cc771ac3.tar.gz geiser-chez-2fb484bac916304c255580fcb9feb3b9cc771ac3.tar.bz2 | |
Use (car (process-lines ...)) instead of (shell-command ...)0.9
`shell-command` assumes Bourne-shell-compatible quoting, which
doesn't work when the user isn't using a Bourne-compatible shell.
Instead of futzing about with quoting, we can just use `process-lines`
to execute a process and pass it arguments directly.
| -rw-r--r-- | elisp/geiser-chez.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el index 1793cfd..17b6c8d 100644 --- a/elisp/geiser-chez.el +++ b/elisp/geiser-chez.el @@ -96,9 +96,7 @@ This function uses `geiser-chez-init-file' if it exists." (defconst geiser-chez-minimum-version "9.4") (defun geiser-chez--version (binary) - (shell-command-to-string - (format "%s --version" - (shell-quote-argument binary)))) + (car (process-lines binary "--version"))) (defun geiser-chez--startup (remote) (let ((geiser-log-verbose-p t)) |