add reset usb bus command

[bin.git] / eval_r

diff --git a/eval_r b/eval_r
index 5714c5212d40aba60f734ef53f7aa1300af2d33b..c3c72a3eba9e14ccfda2b9cdf42a13a2d538549d 100755 (executable)
--- 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;