diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-24 00:55:03 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-24 00:55:03 +0200 |
| commit | 8860c92f62dac87267416708e81bc8aec026fcc7 (patch) | |
| tree | 321663355f6a09d4b95a617cfcc79d64efa89ec1 | |
| parent | 3bfbd26acd40e658f1b87d2b3b87676454cabb34 (diff) | |
| download | org-mode-8860c92f62dac87267416708e81bc8aec026fcc7.tar.gz | |
ob-exp: Small fix
* lisp/ob-exp.el (org-babel-exp-src-block): Use `symbol-name' instead of
`eval' since the argument is a dynamically scoped variable anyhow.
| -rw-r--r-- | lisp/ob-exp.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el index fbddf10..dab47b6 100644 --- a/lisp/ob-exp.el +++ b/lisp/ob-exp.el @@ -95,13 +95,14 @@ Assume point is at block opening line." (let ((lang-headers (intern (concat "org-babel-default-header-args:" lang)))) (org-babel-exp--at-source - (setf (nth 2 info) - (org-babel-process-params - (apply #'org-babel-merge-params - org-babel-default-header-args - (and (boundp lang-headers) (eval lang-headers t)) - (append (org-babel-params-from-properties lang) - (list raw-params))))))) + (setf (nth 2 info) + (org-babel-process-params + (apply #'org-babel-merge-params + org-babel-default-header-args + (and (boundp lang-headers) + (symbol-value lang-headers)) + (append (org-babel-params-from-properties lang) + (list raw-params))))))) (setf hash (org-babel-sha1-hash info))) (org-babel-exp-do-export info 'block hash))))) |