C-c z as a to and fro jump, plus documentation.

1 files changed, 4 insertions, 3 deletions

diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index 72d3536..ff50a10 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -55,7 +55,7 @@
 ;;; Evaluation commands:
 
 (defun geiser--go-to-repl ()
-  (switch-to-geiser)
+  (switch-to-geiser nil nil (current-buffer))
   (push-mark)
   (goto-char (point-max)))
 
@@ -155,8 +155,9 @@ With prefix, recursively macro-expand the resulting expression."
   "Switches to Geiser REPL.
 With prefix, try to enter the current's buffer module."
   (interactive "P")
-  (if arg (switch-to-geiser-module (geiser-eval--get-module))
-    (switch-to-geiser)))
+  (if arg
+      (switch-to-geiser-module (geiser-eval--get-module) (current-buffer))
+    (switch-to-geiser nil nil (current-buffer))))
 
 (defun geiser-mode-switch-to-repl-and-enter ()
   "Switches to Geiser REPL and enters current's buffer module."