geiser-users
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]