[elpa] externals/org 936290fe18 07/17: * lisp/ob-emacs-lisp.el: Add support for :prologue/:epilogue parameters

[ELPA Syncer]

branch: externals/org
commit 936290fe1824a8453d6632a48a7980b3ee296690
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    * lisp/ob-emacs-lisp.el: Add support for :prologue/:epilogue parameters
    
    (org-babel-expand-body:emacs-lisp):
---
 lisp/ob-emacs-lisp.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/lisp/ob-emacs-lisp.el b/lisp/ob-emacs-lisp.el
index 0883009605..6fbd65ad9f 100644
--- a/lisp/ob-emacs-lisp.el
+++ b/lisp/ob-emacs-lisp.el
@@ -53,14 +53,18 @@ by `org-edit-src-code'.")
   "Expand BODY according to PARAMS, return the expanded body."
   (let ((vars (org-babel--get-vars params))
        (print-level nil)
-       (print-length nil))
+       (print-length nil)
+        (prologue (cdr (assq :prologue params)))
+        (epilogue (cdr (assq :epilogue params))))
     (if (null vars) (concat body "\n")
-      (format "(let (%s)\n%s\n)"
+      (format "(let (%s)\n%s%s%s\n)"
              (mapconcat
               (lambda (var)
                 (format "%S" `(,(car var) ',(cdr var))))
               vars "\n      ")
-             body))))
+              (if prologue (concat prologue "\n      ") "")
+             body
+              (if epilogue (concat "\n      " epilogue "\n") "")))))
 
 (defun org-babel-execute:emacs-lisp (body params)
   "Execute emacs-lisp code BODY according to PARAMS."