浏览代码

Merge branch 'master' of orgmode.org:org-mode

Nicolas Goaziou 10 年之前
父节点
当前提交
dd70cf773c
共有 1 个文件被更改,包括 4 次插入2 次删除
  1. 4 2
      lisp/ob-R.el

+ 4 - 2
lisp/ob-R.el

@@ -36,7 +36,7 @@
 (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))
+		  (proc &optional 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))
@@ -264,7 +264,9 @@ 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)
+	  (ess-wait-for-process
+	   (get-process (or ess-local-process-name
+			    ess-current-process-name)))
 	  (rename-buffer
 	   (if (bufferp session)
 	       (buffer-name session)