X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=eval_r;h=c3c72a3eba9e14ccfda2b9cdf42a13a2d538549d;hb=dcce90e77c92202b5fadca48de6fd1cefc41ff79;hp=ef0ad7376150f9ba457ce09de75ca02584775229;hpb=26a89e95442abdba79454458728802ad728b54fc;p=bin.git

diff --git a/eval_r b/eval_r
index ef0ad73..c3c72a3 100755
--- a/eval_r
+++ b/eval_r
@@ -1,4 +1,4 @@
-#!/bin/sh
+#!/bin/bash
 
 TMP="$(mktemp -d)"
 
@@ -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;