branch: externals-release/org
commit 1344911585384f6b73c98a80bc85a4f5d81b9d52
Author: Bastien <b...@gnu.org>
Commit: Bastien <b...@gnu.org>
lisp/ob-R.el: Fix compiler warnings
---
lisp/ob-R.el | 15 +++++++++++----
1 file changed, 11 insertions(+), 4 deletions(-)
diff --git a/lisp/ob-R.el b/lisp/ob-R.el
index db52773..169e1d6 100644
--- a/lisp/ob-R.el
+++ b/lisp/ob-R.el
@@ -40,6 +40,13 @@
(declare-function ess-wait-for-process "ext:ess-inf"
(&optional proc sec-prompt wait force-redisplay))
+;; FIXME: Temporary declaration to silence the byte-compiler
+(defvar user-inject-src-param)
+(defvar ess-eval-visibly-tmp)
+(defvar ess-eval-visibly)
+(defvar ess-inject-source)
+(defvar user-inject-src-param)
+
(defconst org-babel-header-args:R
'((width . :any)
(height . :any)
@@ -479,7 +486,7 @@ Insert hline if column names in output have been requested."
(defconst ob-session-async-R-indicator "'ob_comint_async_R_%s_%s'")
(defun ob-session-async-org-babel-R-evaluate-session
- (session body result-type result-params column-names-p row-names-p)
+ (session body result-type _ column-names-p row-names-p)
"Asynchronously evaluate BODY in SESSION.
Returns a placeholder string for insertion, to later be replaced
by `org-babel-comint-async-filter'."
@@ -527,12 +534,12 @@ by `org-babel-comint-async-filter'."
(insert "\n")
(insert (format ob-session-async-R-indicator
"end" uuid))
- (setq tmp ess-eval-visibly)
+ (setq ess-eval-visibly-tmp ess-eval-visibly)
(setq user-inject-src-param ess-inject-source)
(setq ess-eval-visibly nil)
- (setq ess-inject-source 'function-and-buffer)
+ (setq ess-inject-source 'function-and-buffer)
(ess-eval-buffer nil))
- (setq ess-eval-visibly tmp)
+ (setq ess-eval-visibly ess-eval-visibly-tmp)
(setq ess-inject-source user-inject-src-param)
uuid))))
