]> code.delx.au - gnu-emacs/blobdiff - lisp/org/ob-emacs-lisp.el
Sync Org 7.9.2 from the commit tagged "release_7.9.2" in Org's Git repo.
[gnu-emacs] / lisp / org / ob-emacs-lisp.el
index e709600ee8b131c4f29923b894dfb98f3bfb1372..d83ca246a843d641521df6aa126faff1d936a38a 100644 (file)
@@ -1,11 +1,10 @@
 ;;; ob-emacs-lisp.el --- org-babel functions for emacs-lisp code evaluation
 
-;; Copyright (C) 2009, 2010  Free Software Foundation, Inc
+;; Copyright (C) 2009-2012  Free Software Foundation, Inc.
 
 ;; Author: Eric Schulte
 ;; Keywords: literate programming, reproducible research
 ;; Homepage: http://orgmode.org
-;; Version: 7.7
 
 ;; This file is part of GNU Emacs.
 
          (print-level nil) (print-length nil)
          (body (if (> (length vars) 0)
                   (concat "(let ("
-                        (mapconcat
-                         (lambda (var)
-                           (format "%S" (print `(,(car var) ',(cdr var)))))
-                         vars "\n      ")
-                        ")\n" body ")")
-                body)))
+                          (mapconcat
+                           (lambda (var)
+                             (format "%S" (print `(,(car var) ',(cdr var)))))
+                           vars "\n      ")
+                          ")\n" body "\n)")
+                (concat body "\n"))))
     (if (or (member "code" result-params)
            (member "pp" result-params))
        (concat "(pp " body ")") body)))