Function: org-babel-expand-body:emacs-lisp

org-babel-expand-body:emacs-lisp is a byte-compiled function defined in ob-emacs-lisp.el.gz.

Signature

(org-babel-expand-body:emacs-lisp BODY PARAMS)

Documentation

Expand BODY according to PARAMS, return the expanded body.

Aliases

org-babel-expand-body:elisp

Source Code

;; Defined in /usr/src/emacs/lisp/org/ob-emacs-lisp.el.gz
(defun org-babel-expand-body:emacs-lisp (body params)
  "Expand BODY according to PARAMS, return the expanded body."
  (let ((vars (org-babel--get-vars params))
	(print-level 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%s%s\n)"
	      (mapconcat
	       (lambda (var)
		 (format "%S" `(,(car var) ',(cdr var))))
	       vars "\n      ")
              (if prologue (concat prologue "\n      ") "")
	      body
              (if epilogue (concat "\n      " epilogue "\n") "")))))