summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <eric.schulte@gmx.com>2012-11-06 13:20:27 (GMT)
committer Eric Schulte <eric.schulte@gmx.com>2012-11-06 13:20:43 (GMT)
commitc2ebeea6f68f2ef804d387c238e4acccf655dc64 (patch)
tree9358a844c63c61b4828bac2de7e944ca030ce462
parent854ddf635c517aed0c742fbcb63c1489bb87b4b6 (diff)
downloadorg-mode-c2ebeea6f68f2ef804d387c238e4acccf655dc64.zip
org-mode-c2ebeea6f68f2ef804d387c238e4acccf655dc64.tar.gz
fix bug in drawer results (should not escape)
* lisp/ob.el (org-babel-insert-result): Don't escape results in drawers.
-rw-r--r--lisp/ob.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/ob.el b/lisp/ob.el
index 1cbbf37..69a5c58 100644
--- a/lisp/ob.el
+++ b/lisp/ob.el
@@ -1943,10 +1943,11 @@ code ---- the results are extracted in the syntax of the source
((member "prepend" result-params)))) ; already there
(setq results-switches
(if results-switches (concat " " results-switches) ""))
- (let ((wrap (lambda (start finish)
+ (let ((wrap (lambda (start finish &optional no-escape)
(goto-char end) (insert (concat finish "\n"))
(goto-char beg) (insert (concat start "\n"))
- (org-escape-code-in-region (point) end)
+ (unless no-escape
+ (org-escape-code-in-region (point) end))
(goto-char end) (goto-char (point-at-eol))
(setq end (point-marker))))
(proper-list-p (lambda (it) (and (listp it) (null (cdr (last it)))))))
@@ -2002,7 +2003,7 @@ code ---- the results are extracted in the syntax of the source
((or (member "drawer" result-params)
;; Stay backward compatible with <7.9.2
(member "wrap" result-params))
- (funcall wrap ":RESULTS:" ":END:"))
+ (funcall wrap ":RESULTS:" ":END:" 'no-escape))
((and (not (funcall proper-list-p result))
(not (member "file" result-params)))
(org-babel-examplize-region beg end results-switches)