diff options
| -rw-r--r-- | elisp/geiser-mode.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el index aebdbce..b5c2029 100644 --- a/elisp/geiser-mode.el +++ b/elisp/geiser-mode.el @@ -144,8 +144,13 @@ With prefix, goes to the REPL buffer afterwards (as With a prefix, revert the effect of `geiser-mode-eval-last-sexp-to-buffer' " (interactive "P") - (let* ((ret (geiser-eval-region (save-excursion (backward-sexp) (point)) - (point) + (let* (bosexp + (eosexp (save-excursion (backward-sexp) + (setq bosexp (point)) + (forward-sexp) + (point))) + (ret (geiser-eval-region bosexp ;beginning of sexp + eosexp ;end of sexp nil t print-to-buffer-p)) |