mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 21:37:50 +00:00
Code Releases Activity

Revert "Altering org-babel-execute:emacs-lisp in accordance with preceding changes."

Browse source 
This reverts commit d8001facab.

Going back to original plan of simply passing (cmd body params) to the org-babel-execute:LANG functions.

The benefit of this is that languages will have access to the full params list. A downside is that code parsing the
params list and referencing variables is currently duplicated across the languages, so perhaps we can aim to reduce
that code duplication at some point.
This commit is contained in:
Dan Davison 2009-07-08 00:06:14 -04:00
parent 5cbc2d3803
commit 9772adef3e
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/langs/org-babel-lisp.el
View file

@ -35,12 +35,13 @@
(add-to-list 'org-babel-tangle-langs '("emacs-lisp" "el"))
(defun org-babel-execute:emacs-lisp (session body vars result-type)
(defun org-babel-execute:emacs-lisp (body params)
"Execute a block of emacs-lisp code with org-babel. This
function is called by `org-babel-execute-src-block'."
(message "executing emacs-lisp code block...")
(save-window-excursion
(let ((print-level nil) (print-length nil) results)
(let ((vars (org-babel-ref-variables params))
(print-level nil) (print-length nil) results)
(setq results
(eval `(let ,(mapcar (lambda (var) `(,(car var) ',(cdr var))) vars)
,(read (concat "(progn " body ")")))))