From 571246bb4628feb83035ea974761c99fdda629a2 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 28 Mar 2016 14:31:02 -0700
Subject: [PATCH] save buffer excursion after eval

---
 eval_r | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/eval_r b/eval_r
index 5714c52..c3c72a3 100755
--- a/eval_r
+++ b/eval_r
@@ -6,12 +6,14 @@ trap "rm -f '$TMP'/file; rmdir '$TMP'" EXIT
 
 cat - > "$TMP"/file;
 
-( emacsclient -s R --eval "(with-temp-buffer (insert-file-contents \"$TMP/file\")
+( emacsclient -s R -n --eval "(save-window-excursion 
+(save-excursion 
+(save-current-buffer 
+(with-temp-buffer (insert-file-contents \"$TMP/file\")
 (setq ess-eval-visibly t)
-(setq ess-eval-visibly-p t)
 (setq ess-language \"R\")
 (setq ess-dialect \"R\")
-(ess-eval-region (point-min) (point-max) nil))" >/dev/null 2>&1 & );
+(ess-eval-region (point-min) (point-max) nil )))))" >/dev/null 2>&1 & );
 
 trap - EXIT;
 ( sleep 2s;
-- 
2.39.5