diff options
author | Eric Schulte <eric.schulte@gmx.com> | 2012-11-06 06:20:27 -0700 |
---|---|---|
committer | Eric Schulte <eric.schulte@gmx.com> | 2012-11-06 06:20:43 -0700 |
commit | c2ebeea6f68f2ef804d387c238e4acccf655dc64 (patch) | |
tree | 9358a844c63c61b4828bac2de7e944ca030ce462 | |
parent | 854ddf635c517aed0c742fbcb63c1489bb87b4b6 (diff) | |
download | 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.el | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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) |