浏览代码

removing message debugging statements

Eric Schulte 16 年之前
父节点
当前提交
0cd60d5c5a
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      lisp/langs/org-babel-R.el

+ 2 - 2
lisp/langs/org-babel-R.el

@@ -120,12 +120,12 @@ last statement in BODY."
         (case result-type
           (output
            (with-temp-file in-tmp-file (insert body))
-           (message "R --slave --no-save < '%s' > '%s'" in-tmp-file out-tmp-file)
+           ;; (message "R --slave --no-save < '%s' > '%s'" in-tmp-file out-tmp-file)
            (shell-command-to-string (format "R --slave --no-save < '%s' > '%s'" in-tmp-file out-tmp-file)))
           (value
            (with-temp-file in-tmp-file
              (insert (format org-babel-R-wrapper-method body out-tmp-file)))
-           (message "R --no-save < '%s'" in-tmp-file)
+           ;; (message "R --no-save < '%s'" in-tmp-file)
            (shell-command (format "R --no-save < '%s'" in-tmp-file))))
         (with-temp-buffer (insert-file-contents out-tmp-file) (buffer-string)))
     ;; comint session evaluation