summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-06-17 14:16:39 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-06-17 14:16:39 +0200
commit0279d84cd7f857535342b4ec3c2e70ac76c1ee27 (patch)
tree5a1f732c638603c04ad41ccd3ca85c5561c463da
parent75238d25ed67a44dbcf79a0961efd5fe7e9c25b0 (diff)
downloadorg-mode-0279d84cd7f857535342b4ec3c2e70ac76c1ee27.tar.gz
ob-exp: Remove spurious comma un-escaping
* lisp/ob-exp.el (org-babel-exp-code): Remove spurious comma un-escaping.
-rw-r--r--lisp/ob-exp.el7
1 files changed, 1 insertions, 6 deletions
diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el
index 21d9056..6774bd1 100644
--- a/lisp/ob-exp.el
+++ b/lisp/ob-exp.el
@@ -34,13 +34,9 @@
(declare-function org-babel-lob-get-info "ob-lob" ())
(declare-function org-babel-eval-wipe-error-buffer "ob-eval" ())
-(declare-function org-between-regexps-p "org"
- (start-re end-re &optional lim-up lim-down))
(declare-function org-get-indentation "org" (&optional line))
(declare-function org-heading-components "org" ())
(declare-function org-in-commented-heading-p "org" (&optional no-inheritance))
-(declare-function org-in-block-p "org" (names))
-(declare-function org-in-verbatim-emphasis "org" ())
(declare-function org-link-search "org" (s &optional avoid-pos stealth))
(declare-function org-fill-template "org" (template alist))
(declare-function org-split-string "org" (string &optional separators))
@@ -49,7 +45,6 @@
(declare-function org-element-property "org-element" (property element))
(declare-function org-element-type "org-element" (element))
(declare-function org-id-get "org-id" (&optional pom create prefix))
-(declare-function org-escape-code-in-string "org-src" (s))
(defcustom org-export-babel-evaluate t
"Switch controlling code evaluation during export.
@@ -387,7 +382,7 @@ replaced with its value."
org-babel-exp-inline-code-template
org-babel-exp-code-template)
`(("lang" . ,(nth 0 info))
- ("body" . ,(org-escape-code-in-string (nth 1 info)))
+ ("body" . ,(nth 1 info))
("switches" . ,(let ((f (nth 3 info)))
(and (org-string-nw-p f) (concat " " f))))
("flags" . ,(let ((f (assq :flags (nth 2 info))))