branch: elpa/geiser
commit c8b862f00e208f2c09bf2a2b2436af0a466a2531
Author: jao <j...@gnu.org>
Commit: jao <j...@gnu.org>
More idiomatic geiser-set-scheme (thanks, Stefan)
---
elisp/geiser-mode.el | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index 13393c99e8a..75162d44e6a 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -1,6 +1,6 @@
;;; geiser-mode.el --- Minor mode for scheme buffers -*- lexical-binding: t;
-*-
-;; Copyright (C) 2009-2017, 2020, 2022, 2024 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009-2017, 2020, 2022, 2024, 2025 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -244,16 +244,15 @@ With prefix, recursively macro-expand the resulting
expression."
all
t))
-(defun geiser-set-scheme (&optional impl)
+(defun geiser-set-scheme (impl)
"Associates current buffer with a given Scheme implementation."
- (interactive)
+ (interactive (list (geiser-impl--read-impl)))
(save-excursion
(geiser-syntax--remove-kws)
- (let ((impl (or impl (geiser-impl--read-impl))))
- (geiser-impl--set-buffer-implementation impl)
- (geiser-repl--set-up-repl impl)
- (geiser-syntax--add-kws)
- (geiser-syntax--fontify))))
+ (geiser-impl--set-buffer-implementation impl)
+ (geiser-repl--set-up-repl impl)
+ (geiser-syntax--add-kws)
+ (geiser-syntax--fontify)))
(defun geiser-mode-switch-to-repl (arg)
"Switches to Geiser REPL.
