branch: externals/org
commit 72a48c306f4ad18852d42056cc7b628974b80cdd
Author: Jeremie Juste <djj@debian-BULLSEYE-live-builder-AMD64>
Commit: Bastien <b...@gnu.org>
ob-R.el: Patch async evaluation when :results output
* lisp/ob-R.el (ob-session-async-org-babel-R-evaluate-session):
Make sure that `ess-inject-source' is set to the default
'function-and-buffer before running `ess-eval-buffer'. Return
`ess-inject-source' to its user-specified state afterwards.
---
lisp/ob-R.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/lisp/ob-R.el b/lisp/ob-R.el
index 188b9ac..6389e12 100644
--- a/lisp/ob-R.el
+++ b/lisp/ob-R.el
@@ -528,9 +528,12 @@ by `org-babel-comint-async-filter'."
(insert (format ob-session-async-R-indicator
"end" uuid))
(setq tmp ess-eval-visibly)
+ (setq user-inject-src-param ess-inject-source)
(setq ess-eval-visibly nil)
+ (setq ess-inject-source 'function-and-buffer)
(ess-eval-buffer nil))
- (setq ess-eval-visibly tmp)
+ (setq ess-eval-visibly tmp)
+ (setq ess-inject-source user-inject-src-param)
uuid))))
(defun ob-session-async-R-value-callback (params tmp-file)
