From cec661b7d0e6d0eda31a97b5621d361ae5c71de3 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-chibi.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'elisp/geiser-chibi.el') diff --git a/elisp/geiser-chibi.el b/elisp/geiser-chibi.el index cb2577e..acb8b61 100644 --- a/elisp/geiser-chibi.el +++ b/elisp/geiser-chibi.el @@ -97,10 +97,9 @@ This function uses `geiser-chibi-init-file' if it exists." (defconst geiser-chibi-minimum-version "0.7.3") (defun geiser-chibi--version (binary) - (second (split-string (shell-command-to-string - (format "%s -V" - (shell-quote-argument binary))) - " "))) + (second (split-string + (car (process-lines binary "-V")) + " "))) (defun geiser-chibi--startup (remote) (let ((geiser-log-verbose-p t)) -- cgit v1.2.3