diff options
Diffstat (limited to 'elisp/geiser-mit.el')
| -rw-r--r-- | elisp/geiser-mit.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/elisp/geiser-mit.el b/elisp/geiser-mit.el index 5e61cf1..fffcfb6 100644 --- a/elisp/geiser-mit.el +++ b/elisp/geiser-mit.el @@ -120,10 +120,12 @@ This function uses `geiser-mit-init-file' if it exists." (defconst geiser-mit-minimum-version "9.1.1") (defun geiser-mit--version (binary) - (shell-command-to-string - (format "%s --quiet --no-init-file --eval %s" - (shell-quote-argument binary) - "'(begin (display (get-subsystem-version-string \"Release\")) (%exit 0))'"))) + (car (process-lines binary + "--quiet" + "--no-init-file" + "--eval" + "(begin (display (get-subsystem-version-string \"Release\")) + (%exit 0))"))) (defconst geiser-mit--path-rx "^In \\([^:\n ]+\\):\n") (defun geiser-mit--startup (remote) |