From 4fa9c162d9cb44bb57d865a280beb73e749e4433 Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Thu, 16 Jul 2009 16:23:49 -0400 Subject: [PATCH] More code streamlining: org-babel-execute:emacs-lisp. --- lisp/langs/org-babel-lisp.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/langs/org-babel-lisp.el b/lisp/langs/org-babel-lisp.el index 704b2eaaf..89a3c3123 100644 --- a/lisp/langs/org-babel-lisp.el +++ b/lisp/langs/org-babel-lisp.el @@ -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 -- 2.11.4.GIT