mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-12 08:39:56 +00:00
More code streamlining: org-babel-execute:emacs-lisp.
This commit is contained in:
parent
d128662fa3
commit
4fa9c162d9
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue