X-Git-Url: https://git.donarmstrong.com/?p=bin.git;a=blobdiff_plain;f=eval_r;h=c3c72a3eba9e14ccfda2b9cdf42a13a2d538549d;hp=5714c5212d40aba60f734ef53f7aa1300af2d33b;hb=HEAD;hpb=e6e2922b119d881cd9b7c97e524c01e39e3bca77

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;