[elpa] externals-release/org 1344911 2/9: lisp/ob-R.el: Fix compiler warnings

[ELPA Syncer]

branch: externals-release/org
commit 1344911585384f6b73c98a80bc85a4f5d81b9d52
Author: Bastien <bzg@gnu.org>
Commit: Bastien <bzg@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))))