From 3319d2785711aa7e717f5d68a09523307bf126f1 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 21 Oct 2015 02:29:46 +0200 Subject: Use OS-specific quotes when asking for versions Fixes #95. This is @kovrik's patch, with 80-columns max formatting. --- elisp/geiser-chicken.el | 5 +++-- elisp/geiser-guile.el | 3 ++- elisp/geiser-racket.el | 3 ++- 3 files changed, 7 insertions(+), 4 deletions(-) (limited to 'elisp') diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el index 7af8676..a68ab7b 100644 --- a/elisp/geiser-chicken.el +++ b/elisp/geiser-chicken.el @@ -270,8 +270,9 @@ This function uses `geiser-chicken-init-file' if it exists." (defconst geiser-chicken-minimum-version "4.8.0.0") (defun geiser-chicken--version (binary) - (shell-command-to-string (format "%s -e \"(display (chicken-version))\"" - binary))) + (shell-command-to-string + (format "%s -e %s" binary + (shell-quote-argument "(display (chicken-version))")))) (defun connect-to-chicken () "Start a Chicken REPL connected to a remote process." diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index e70ca30..697a045 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -335,7 +335,8 @@ 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 '(display (version))'" binary))) + (shell-command-to-string + (format "%s -c %s" binary (shell-quote-argument "(display (version))")))) (defun geiser-guile-update-warning-level () "Update the warning level used by the REPL. diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el index ccebcf8..fbd08c7 100644 --- a/elisp/geiser-racket.el +++ b/elisp/geiser-racket.el @@ -363,7 +363,8 @@ using start-geiser, a procedure in the geiser/server module." (defvar geiser-racket-minimum-version "5.3") (defun geiser-racket--version (binary) - (shell-command-to-string (format "%s -e '(display (version))'" binary))) + (shell-command-to-string + (format "%s -e %s" binary (shell-quote-argument "(display (version))")))) (defvar geiser-racket--image-cache-dir nil) -- cgit v1.2.3