branch: elpa/geiser
commit 20f87b41afe31b982d773ce943759388cc92fd4a
Author: modula t. worm <defaul...@gmail.com>
Commit: modula t. worm <defaul...@gmail.com>
allow setting the scheme implementation non-interactively
---
elisp/geiser-mode.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index c8a9e0d8223..13393c99e8a 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -244,12 +244,12 @@ With prefix, recursively macro-expand the resulting
expression."
all
t))
-(defun geiser-set-scheme ()
+(defun geiser-set-scheme (&optional impl)
"Associates current buffer with a given Scheme implementation."
(interactive)
(save-excursion
(geiser-syntax--remove-kws)
- (let ((impl (geiser-impl--read-impl)))
+ (let ((impl (or impl (geiser-impl--read-impl))))
(geiser-impl--set-buffer-implementation impl)
(geiser-repl--set-up-repl impl)
(geiser-syntax--add-kws)
