From 2834cd900779ad8966bc997f1a5c65122bbe3a63 Mon Sep 17 00:00:00 2001 From: "Diogo F. S. Ramos" Date: Tue, 11 Apr 2017 12:42:23 -0300 Subject: Eval last expression even after a comment char Scan for beginning and end of a sexp, instead of using (point) as the end. Previously, if (point) was after a comment character, the REPL would freeze. --- elisp/geiser-mode.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'elisp/geiser-mode.el') 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)) -- cgit v1.2.3