diff options
| author | jao <jao@gnu.org> | 2022-02-15 23:20:08 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-02-15 23:20:08 +0000 |
| commit | cfd9116dcb246126950d7f2f662f09149684128b (patch) | |
| tree | dcce6f956bb212b93be19f27e92f83e43502537c /geiser-guile.el | |
| parent | ecd118171a111e04120d11c0d72345ce1d0f8066 (diff) | |
| download | geiser-guile-cfd9116dcb246126950d7f2f662f09149684128b.tar.gz geiser-guile-cfd9116dcb246126950d7f2f662f09149684128b.tar.bz2 | |
Ensure sane shell command switch during version checks
See discussion in issue #13
Diffstat (limited to 'geiser-guile.el')
| -rw-r--r-- | geiser-guile.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/geiser-guile.el b/geiser-guile.el index 9ebe4d6..3a235c5 100644 --- a/geiser-guile.el +++ b/geiser-guile.el @@ -457,10 +457,12 @@ This function uses `geiser-guile-init-file' if it exists." (defun geiser-guile--version (_binary) "Find Guile's version running the configured Guile binary." ;; maybe one day we'll have `process-lines' with tramp support - (shell-command-to-string - (format "%s -c %s" - (geiser-guile--binary) - (shell-quote-argument "(display (version))")))) + (let ((shell-command-switch "-c") + (shell-file-name "sh")) + (shell-command-to-string + (format "%s -c %s" + (geiser-guile--binary) + (shell-quote-argument "(display (version))"))))) (defun geiser-guile-update-warning-level () "Update the warning level used by the REPL. |