diff options
Diffstat (limited to 'elisp/geiser-mode.el')
| -rw-r--r-- | elisp/geiser-mode.el | 7 |
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." |