diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2013-05-03 09:53:48 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2013-05-06 16:31:53 -0400 |
commit | 30c0ceb8ececa1b4bc60d745b5f43cb7a34e0b81 (patch) | |
tree | 12c837c76f21ae11ecf98245e8cad78d1791a566 | |
parent | c42c54f3f7253b9f1cb97c5de1fb74321f099177 (diff) | |
download | org-mode-30c0ceb8ececa1b4bc60d745b5f43cb7a34e0b81.tar.gz |
allow insertion of non-strings into Org code blocks
* lisp/ob-org.el (org-babel-expand-body:org): Allow insertion of
non-strings into Org code blocks.
-rw-r--r-- | lisp/ob-org.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ob-org.el b/lisp/ob-org.el index 18cce3b..892c56c 100644 --- a/lisp/ob-org.el +++ b/lisp/ob-org.el @@ -43,8 +43,9 @@ (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))) + (regexp-quote (format "$%s" (car var))) + (format "%s" (cdr var)) + body nil 'literal))) body) (defun org-babel-execute:org (body params) |