From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 28 Mar 2016 21:31:02 +0000 (-0700)
Subject: save buffer excursion after eval
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=571246bb4628feb83035ea974761c99fdda629a2;p=bin.git

save buffer excursion after eval
---

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;