diff options
| author | chasberry <ccberry@ucsd.edu> | 2014-09-16 19:57:59 -0700 |
|---|---|---|
| committer | Aaron Ecay <aaronecay@gmail.com> | 2014-09-17 21:10:40 -0400 |
| commit | 0fd29a5ee7d14c3695b22998196373b9a3637413 (patch) | |
| tree | 68dcb22adcdb208d49391fdae4a1218526ed48c7 | |
| parent | 3432681fbe2894f2ef6e65872ff5deae4175d99a (diff) | |
| download | org-mode-0fd29a5ee7d14c3695b22998196373b9a3637413.tar.gz | |
lisp/ob-R.el: use `ess-wait-for-process' to assure clean session startup
* lisp/ob-R.el (org-babel-R-initiate-session): Make sure that (R) has
finished before `rename-buffer' is run.
TINYCHANGE
| -rw-r--r-- | lisp/ob-R.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/ob-R.el b/lisp/ob-R.el index 41b943c..98123af 100644 --- a/lisp/ob-R.el +++ b/lisp/ob-R.el @@ -35,6 +35,8 @@ (declare-function inferior-ess-send-input "ext:ess-inf" ()) (declare-function ess-make-buffer-current "ext:ess-inf" ()) (declare-function ess-eval-buffer "ext:ess-inf" (vis)) +(declare-function ess-wait-for-process "ext:ess-inf" + (&optional proc sec-prompt wait force-redisplay)) (declare-function org-number-sequence "org-compat" (from &optional to inc)) (declare-function org-remove-if-not "org" (predicate seq)) (declare-function org-every "org" (pred seq)) @@ -262,6 +264,7 @@ This function is called by `org-babel-execute-src-block'." ;; Session buffer exists, but with dead process (set-buffer session)) (require 'ess) (R) + (ess-wait-for-process) (rename-buffer (if (bufferp session) (buffer-name session) |