diff options
| author | modula t. worm <defaultxr@gmail.com> | 2025-08-09 21:11:44 -0500 |
|---|---|---|
| committer | modula t. worm <defaultxr@gmail.com> | 2025-08-09 21:11:44 -0500 |
| commit | 20f87b41afe31b982d773ce943759388cc92fd4a (patch) | |
| tree | e31f6bb148bd7ba599e4829efbc80345099ccd66 /elisp | |
| parent | c1c27072a46a959fa28f963c5e381e219916f85a (diff) | |
| download | geiser-20f87b41afe31b982d773ce943759388cc92fd4a.tar.gz geiser-20f87b41afe31b982d773ce943759388cc92fd4a.tar.bz2 | |
allow setting the scheme implementation non-interactively
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el index c8a9e0d..13393c9 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) |