diff options
author | jao <jao@gnu.org> | 2024-09-19 00:20:36 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2024-09-19 00:20:36 +0100 |
commit | ab6e0b3103eb2f9986520eeef39625ac3ecb1968 (patch) | |
tree | e7c0d979d676266e8060cfb1b111bbe0140dd9d4 | |
parent | 5a856c2982030ff77e2d151ead4fcd991512f362 (diff) | |
download | geiser-guile-ab6e0b3103eb2f9986520eeef39625ac3ecb1968.tar.gz geiser-guile-ab6e0b3103eb2f9986520eeef39625ac3ecb1968.tar.bz2 |
Overriding shell command name and switch only on unix systems
Should address issue #48
-rw-r--r-- | geiser-guile.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/geiser-guile.el b/geiser-guile.el index 1ab658f..75142c3 100644 --- a/geiser-guile.el +++ b/geiser-guile.el @@ -603,8 +603,9 @@ 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 - (let ((shell-command-switch "-c") - (shell-file-name "sh")) + (let* ((unixy (not (member system-type '(windows-nt ms-dos cygwin)))) + (shell-command-switch (if unixy "-c" shell-command-switch)) + (shell-file-name (if unixy "sh" shell-file-name))) (shell-command-to-string (format "%s -c %s 2>/dev/null" (geiser-guile--binary) |