diff --git a/lisp/ob-org.el b/lisp/ob-org.el index 7e8421be4..83f3cf1d3 100644 --- a/lisp/ob-org.el +++ b/lisp/ob-org.el @@ -40,11 +40,19 @@ "#+TITLE: default empty header\n" "Default header inserted during export of org blocks.") +(defun org-babel-expand-body:org (body params) + (dolist (var (mapcar #'cdr (org-babel-get-header params :var))) + (setq body (replace-regexp-in-string + (regexp-quote (format "$%s" (car var))) (cdr var) body + nil 'literal))) + body) + (defun org-babel-execute:org (body params) "Execute a block of Org code with. This function is called by `org-babel-execute-src-block'." (let ((result-params (split-string (or (cdr (assoc :results params)) ""))) - (body (replace-regexp-in-string "^," "" body))) + (body (org-babel-expand-body:org + (replace-regexp-in-string "^," "" body) params))) (cond ((member "latex" result-params) (org-export-string (concat "#+Title: \n" body) "latex"))