浏览代码

removed large block of lang-specific comments from org-babel.el

I assume that since all tests are passing we no longer need this old
code.  Either way we can always retrieve it from version control.
Eric Schulte 16 年之前
父节点
当前提交
fdae720848
共有 1 个文件被更改,包括 0 次插入50 次删除
  1. 0 50
      lisp/org-babel.el

+ 0 - 50
lisp/org-babel.el

@@ -189,56 +189,6 @@ concerned with creating elisp versions of results. "
   (if (and (member "vector" result-params) (not (listp result)))
       (list (list result))
          result))
-;; ;; ruby
-;;     (if (member "scalar" result-params)
-;;         results
-;;       (case result-type ;; process results based on the result-type
-;;         ('output (let ((tmp-file (make-temp-file "org-babel-ruby")))
-;;                    (with-temp-file tmp-file (insert results))
-;;                    (org-babel-import-elisp-from-file tmp-file)))
-;;         ('value (org-babel-ruby-table-or-results results))))))
-
-;; python
-;;    (if (member "scalar" result-params)
-;;        results
-;;   (setq result (case result-type ;; process results based on the result-type
-;; 		 ('output (let ((tmp-file (make-temp-file "org-babel-python")))
-;;                                  (with-temp-file tmp-file (insert results))
-;;                                  (org-babel-import-elisp-from-file tmp-file)))
-;; 		 ('value (org-babel-python-table-or-results results))))
-;;       (if (and (member "vector" results) (not (listp results)))
-;;           (list (list results))
-;;         results))))
-
-
-;; ;; sh
-;;     (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))))
-
-;; ;; R
-;;       (setq results (if (member "scalar" result-params)
-;;                         results
-;;                       (let ((tmp-file (make-temp-file "org-babel-R")))
-;;                         (with-temp-file tmp-file (insert results))
-;;                         (org-babel-import-elisp-from-file tmp-file))))
-;;       (if (and (member "vector" result-params) (not (listp results)))
-;;           (list (list results))
-;;         results))))
-
-
-;; ;; rest of org-babel-execute-src-block
-
-;;     ;; possibly force result into a vector
-;;     (if (and (not (listp result)) (cdr (assoc :results params))
-;;              (member "vector" (split-string (cdr (assoc :results params)))))
-;;         (setq result (list result)))
-;;     result))
 
 (defun org-babel-execute-buffer (&optional arg)
   "Replace EVAL snippets in the entire buffer."