From dc8a7929f4cfcffe59cbb3a83d61cf9273207112 Mon Sep 17 00:00:00 2001 From: Jordan Brown Date: Wed, 21 Sep 2016 10:07:21 -0400 Subject: 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. --- elisp/geiser-guile.el | 5 +---- 1 file changed, 1 insertion(+), 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. -- cgit v1.2.3