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

More code streamlining: org-babel-execute:emacs-lisp.

Browse source
This commit is contained in:
Dan Davison 2009-07-16 16:23:49 -04:00
parent d128662fa3
commit 4fa9c162d9
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -40,11 +40,9 @@
function is called by `org-babel-execute-src-block' via multiple-value-bind."
(message "executing emacs-lisp code block...")
(save-window-excursion
(let ((print-level nil) (print-length nil) results)
(setq results
(eval `(let ,(mapcar (lambda (var) `(,(car var) ',(cdr var))) vars)
,(read (concat "(progn " body ")")))))
results)))
(let ((print-level nil) (print-length nil))
(eval `(let ,(mapcar (lambda (var) `(,(car var) ',(cdr var))) vars)
,(read (concat "(progn " body ")")))))))
(provide 'org-babel-lisp)
;;; org-babel-lisp.el ends here