Hi,
On Wed, 13 Jul 2016 18:47:58 -0700
"Charles C. Berry" <[email protected]> wrote:
> On Wed, 13 Jul 2016, Robert Klein wrote:
>
> > Hi,
> >
> > When exporting a source block, e.g.
> >
> > --- snip (example org file) ---
> > #+begin_src conf
> > Test
> >
> > ,* asterisk in src block
> > #+end_src
> > --- snip ---
> >
> >
> > the escaping of the asterisk does not work. Instead a headline
> > “asterisk in src block” is created.
>
> I don't have `ob-conf', but this:
>
> --8<---------------cut here---------------start------------->8---
>
> #+begin_src emacs-lisp :exports both
> "Test
>
> ,* asterisk in src block"
> #+end_src
>
> --8<---------------cut here---------------end--------------->8---
>
> shows the issue. Also, the #+[BEGIN|END]_SRC parts of the src block
> are showing up in the export.
>
> Putting `org-escape-code-in-string' back in `org-babel-exp-code' here
>
> : ("body" . ,(org-escape-code-in-string (nth 1 info)))
>
> seems to fix this as long as there is a newline after the last
> #+END_SRC in the buffer.
Thanks for the confirmation. I also have issues exporting
http://orgmode.org/worg/dev/org-element-api.org -- while the error
message is "Unable to resolve code reference: end" bisecting leads to
the same commit; reverting the commit solves the issue. I reckon the
line(s) beginning with #+ in the src block above confuse the exporter
in the same way.
I attached a tentative patch.
Best regards
Robert
>From ceecd352546453eb0215628c093faf13bca16b97 Mon Sep 17 00:00:00 2001
From: Robert Klein <[email protected]>
Date: Sat, 16 Jul 2016 20:50:01 +0200
Subject: [PATCH] Revert "ob-exp: Remove spurious comma un-escaping"
This reverts commit 0279d84cd7f857535342b4ec3c2e70ac76c1ee27.
The original commit breaks exports containing lines beginning
with "* " or "#+" in src blocks.
---
lisp/ob-exp.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el
index e824992..a1a945f 100644
--- a/lisp/ob-exp.el
+++ b/lisp/ob-exp.el
@@ -48,6 +48,7 @@
(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.
@@ -385,7 +386,7 @@ replaced with its value."
org-babel-exp-inline-code-template
org-babel-exp-code-template)
`(("lang" . ,(nth 0 info))
- ("body" . ,(nth 1 info))
+ ("body" . ,(org-escape-code-in-string (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))))
--
2.9.0
