summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2013-05-03 15:53:48 (GMT)
committer Eric Schulte <schulte.eric@gmail.com>2013-05-06 20:31:53 (GMT)
commit30c0ceb8ececa1b4bc60d745b5f43cb7a34e0b81 (patch)
tree12c837c76f21ae11ecf98245e8cad78d1791a566
parentc42c54f3f7253b9f1cb97c5de1fb74321f099177 (diff)
downloadorg-mode-30c0ceb8ececa1b4bc60d745b5f43cb7a34e0b81.zip
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.el5
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)