diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2015-12-26 23:47:31 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2015-12-26 23:47:31 +0100 |
| commit | a0b470fec83758abe2f597142fba969ee8626277 (patch) | |
| tree | 57388d81c5395efb7e80f4fcd5df2050c0c3507c | |
| parent | d9f6fa2e7458905aa601805352d7a7d9e1037570 (diff) | |
| download | geiser-guile-a0b470fec83758abe2f597142fba969ee8626277.tar.gz geiser-guile-a0b470fec83758abe2f597142fba969ee8626277.tar.bz2 | |
Quoting binary on version checks (issue #117)
We could probably be even more robust, but i am being a bit lazy
instead.
| -rw-r--r-- | elisp/geiser-chicken.el | 3 | ||||
| -rw-r--r-- | elisp/geiser-guile.el | 4 | ||||
| -rw-r--r-- | elisp/geiser-racket.el | 4 |
3 files changed, 8 insertions, 3 deletions
diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el index 0d9c8e7..054337a 100644 --- a/elisp/geiser-chicken.el +++ b/elisp/geiser-chicken.el @@ -274,7 +274,8 @@ This function uses `geiser-chicken-init-file' if it exists." (defun geiser-chicken--version (binary) (shell-command-to-string - (format "%s -e %s" binary + (format "%s -e %s" + (shell-quote-binary binary) (shell-quote-argument "(display (chicken-version))")))) (defun connect-to-chicken () diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index 697a045..c4f6293 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -336,7 +336,9 @@ This function uses `geiser-guile-init-file' if it exists." (defun geiser-guile--version (binary) (shell-command-to-string - (format "%s -c %s" binary (shell-quote-argument "(display (version))")))) + (format "%s -c %s" + (shell-quote-argument 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 fbd08c7..ac7626a 100644 --- a/elisp/geiser-racket.el +++ b/elisp/geiser-racket.el @@ -364,7 +364,9 @@ using start-geiser, a procedure in the geiser/server module." (defun geiser-racket--version (binary) (shell-command-to-string - (format "%s -e %s" binary (shell-quote-argument "(display (version))")))) + (format "%s -e %s" + (shell-quote-argument binary) + (shell-quote-argument "(display (version))")))) (defvar geiser-racket--image-cache-dir nil) |