瀏覽代碼

Removing results processing from org-babel-sh.el

Dan Davison 16 年之前
父節點
當前提交
afdf02b910
共有 1 個文件被更改,包括 2 次插入10 次删除
  1. 2 10
      lisp/langs/org-babel-sh.el

+ 2 - 10
lisp/langs/org-babel-sh.el

@@ -52,16 +52,8 @@ function is called by `org-babel-execute-src-block'."
                                 (car pair)
                                 (org-babel-sh-var-to-sh (cdr pair))))
                       vars "\n") "\n" body "\n\n")) ;; then the source block body
-         (session (org-babel-sh-initiate-session (cdr (assoc :session params))))
-         (results (org-babel-sh-evaluate session full-body result-type)))
-    (if (member "scalar" result-params)
-        results
-      (setq results (let ((tmp-file (make-temp-file "org-babel-shell")))
-                      (with-temp-file tmp-file (insert results))
-                      (org-babel-import-elisp-from-file tmp-file)))
-      (if (and (member "vector" results) (not (listp results)))
-          (list (list results))
-        results))))
+         (session (org-babel-sh-initiate-session (cdr (assoc :session params)))))
+    (org-babel-sh-evaluate session full-body result-type)))
 
 (defun org-babel-prep-session:sh (session params)
   "Prepare SESSION according to the header arguments specified in PARAMS."