From b734a239ff9b8fde292e956174fd3356583fc76f Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 7 Oct 2022 01:02:01 +0100 Subject: Fix for "and-go" command variants Should address issue #55 for all implementations. --- elisp/geiser-repl.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'elisp/geiser-repl.el') diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 6f69233..690b4ba 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -1078,8 +1078,8 @@ If no REPL is running, execute `geiser' to start a fresh one." (geiser-repl-switch nil nil (or buffer (current-buffer)))) (geiser-repl--send cmd))) -(defun geiser-repl--switch-to-repl (arg) - (if arg +(defun geiser-repl--switch-to-repl (&optional and-module) + (if and-module (geiser-repl-switch-to-module (geiser-eval--get-module) (current-buffer)) (geiser-repl-switch nil nil (current-buffer)))) -- cgit v1.2.3