summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2011-03-02 07:32:02 -0700
committerEric Schulte <schulte.eric@gmail.com>2011-03-02 07:32:02 -0700
commit3755c79485cd09cb62f10e16a1545187badb06dd (patch)
tree9248be130ffa89a3b4a14899e844194783015029
parent03a6844054e73d8f8f5e1f02f780d9129ff019fd (diff)
downloadorg-mode-3755c79485cd09cb62f10e16a1545187badb06dd.tar.gz
ob-exp: ensure params are properly processed on export
* lisp/ob-exp.el (org-babel-exp-results): Ensure that processed params are send to org-babel-execute-src-block.
-rw-r--r--lisp/ob-exp.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el
index ea4cb76..06e310e 100644
--- a/lisp/ob-exp.el
+++ b/lisp/ob-exp.el
@@ -252,16 +252,16 @@ inhibit insertion of results into the buffer."
(org-babel-result-hash)))))
(let ((lang (nth 0 info))
(body (nth 1 info)))
- (setf (nth 2 info) (org-babel-exp-in-export-file lang
- (org-babel-process-params (nth 2 info))))
;; skip code blocks which we can't evaluate
(when (fboundp (intern (concat "org-babel-execute:" lang)))
(org-babel-eval-wipe-error-buffer)
(prog1 nil
(setf (nth 2 info)
- (org-babel-merge-params
- (nth 2 info)
- `((:results . ,(if silent "silent" "replace")))))
+ (org-babel-exp-in-export-file lang
+ (org-babel-process-params
+ (org-babel-merge-params
+ (nth 2 info)
+ `((:results . ,(if silent "silent" "replace")))))))
(cond
((or (equal type 'block) (equal type 'inline))
(org-babel-execute-src-block nil info))