summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJordan Brown <mrhmouse@gmail.com>2016-09-21 10:07:21 -0400
committerJose Antonio Ortega Ruiz <jao@gnu.org>2016-09-30 06:06:25 +0200
commitdc8a7929f4cfcffe59cbb3a83d61cf9273207112 (patch)
tree04dbd28597ed6f05d1a19f346e864d06dcb246e1 /elisp
parentb3341745723a21210b3d337ea7b20dc0e743b663 (diff)
downloadgeiser-guile-dc8a7929f4cfcffe59cbb3a83d61cf9273207112.tar.gz
geiser-guile-dc8a7929f4cfcffe59cbb3a83d61cf9273207112.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')
-rw-r--r--elisp/geiser-guile.el5
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.