mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-12 08:10:07 +00:00
Code Releases Activity

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

Browse source 
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.
This commit is contained in:
Eric Schulte 2009-07-17 22:10:43 -06:00
parent 6661bb70d5
commit fdae720848
1 changed files with 0 additions and 50 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
lisp/org-babel.el
View file

@ -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."