[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Geiser-users] [PATCH 2/2] Preserve the position of (point) after evalin
From: |
Diogo F. S. Ramos |
Subject: |
[Geiser-users] [PATCH 2/2] Preserve the position of (point) after evaling |
Date: |
Tue, 11 Apr 2017 12:42:24 -0300 |
After evaling the last expression, if not inserting its value into
buffer, leave (point) at its original position.
---
elisp/geiser-mode.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index b5c2029..0d00662 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -149,11 +149,12 @@ With a prefix, revert the effect of
`geiser-mode-eval-last-sexp-to-buffer' "
(setq bosexp (point))
(forward-sexp)
(point)))
- (ret (geiser-eval-region bosexp ;beginning of sexp
- eosexp ;end of sexp
- nil
- t
- print-to-buffer-p))
+ (ret (save-excursion
+ (geiser-eval-region bosexp ;beginning of sexp
+ eosexp ;end of sexp
+ nil
+ t
+ print-to-buffer-p)))
(err (geiser-eval--retort-error ret))
(will-eval-to-buffer (if print-to-buffer-p
(not geiser-mode-eval-last-sexp-to-buffer)
--
2.1.4