forked from mirrors/org-mode
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.
This commit is contained in:
parent
c42c54f3f7
commit
30c0ceb8ec
|
@ -43,8 +43,9 @@
|
||||||
(defun org-babel-expand-body:org (body params)
|
(defun org-babel-expand-body:org (body params)
|
||||||
(dolist (var (mapcar #'cdr (org-babel-get-header params :var)))
|
(dolist (var (mapcar #'cdr (org-babel-get-header params :var)))
|
||||||
(setq body (replace-regexp-in-string
|
(setq body (replace-regexp-in-string
|
||||||
(regexp-quote (format "$%s" (car var))) (cdr var) body
|
(regexp-quote (format "$%s" (car var)))
|
||||||
nil 'literal)))
|
(format "%s" (cdr var))
|
||||||
|
body nil 'literal)))
|
||||||
body)
|
body)
|
||||||
|
|
||||||
(defun org-babel-execute:org (body params)
|
(defun org-babel-execute:org (body params)
|
||||||
|
|
Loading…
Reference in New Issue