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 | cec661b7d0e6d0eda31a97b5621d361ae5c71de3 (patch) | |
| tree | 7554f931913461b24c41abc969d4b391f8e31a31 /elisp/geiser-guile.el | |
| parent | f8ddc4e540ec9c193efde588e6bb8cb887212820 (diff) | |
| download | geiser-guile-cec661b7d0e6d0eda31a97b5621d361ae5c71de3.tar.gz geiser-guile-cec661b7d0e6d0eda31a97b5621d361ae5c71de3.tar.bz2 | |
Use (car (process-lines ...)) instead of (shell-command ...)
`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.
Diffstat (limited to 'elisp/geiser-guile.el')
| -rw-r--r-- | elisp/geiser-guile.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index de2e23f..dacca55 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -334,10 +334,7 @@ This function uses `geiser-guile-init-file' if it exists." (defconst geiser-guile-minimum-version "2.0") (defun geiser-guile--version (binary) - (shell-command-to-string - (format "%s -c %s" - (shell-quote-argument binary) - (shell-quote-argument "(display (version))")))) + (car (process-lines binary "-c" "(display (version))"))) (defun geiser-guile-update-warning-level () "Update the warning level used by the REPL. |