From 90de5ee463d9f378504b347bf9ba399bd152a302 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 19 Dec 2012 21:16:57 +0100 Subject: [PATCH] ob-core: Fix the #+END_ directive from the :wrap param * lisp/ob.el: Only use the :wrap argument up to the first space when creating the #+END_ directive. Using an option like ":wrap SRC fundamental" was generating and end marker of "#+END_SRC fundamental", which caused the new exporter to fail to handle to block properly. Patch from Michael Gauland. --- lisp/ob-core.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 03ac6e190..f9accda03 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -2000,7 +2000,8 @@ code ---- the results are extracted in the syntax of the source (cond ((assoc :wrap (nth 2 info)) (let ((name (or (cdr (assoc :wrap (nth 2 info))) "RESULTS"))) - (funcall wrap (concat "#+BEGIN_" name) (concat "#+END_" name)))) + (funcall wrap (concat "#+BEGIN_" name) + (concat "#+END_" (car (org-split-string name)))))) ((member "html" result-params) (funcall wrap "#+BEGIN_HTML" "#+END_HTML")) ((member "latex" result-params)