tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ob.el (org-babel-insert-result): Comma-escape results inserted with ":results org" 

* ob.el (org-babel-insert-result): Comma-escape results
inserted with ":results org".
This commit is contained in:
Bastien Guerry 2012-09-27 23:49:08 +02:00
parent 468a73ea11
commit b0c5030c85
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ob.el
View File

@ -1936,9 +1936,10 @@ 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 escape)
(goto-char end) (insert (concat finish "\n"))
(goto-char beg) (insert (concat start "\n"))
(if escape (org-babel-do-key-sequence-in-edit-buffer (kbd "TAB")))
(goto-char end) (goto-char (point-at-eol))
(setq end (point-marker))))
(proper-list-p (lambda (it) (and (listp it) (null (cdr (last it)))))))
@ -1985,7 +1986,7 @@ code ---- the results are extracted in the syntax of the source
((member "latex" result-params)
(funcall wrap "#+BEGIN_LaTeX" "#+END_LaTeX"))
((member "org" result-params)
(funcall wrap "#+BEGIN_SRC org" "#+END_SRC"))
(funcall wrap "#+BEGIN_SRC org" "#+END_SRC" t))
((member "code" result-params)
(funcall wrap (format "#+BEGIN_SRC %s%s" (or lang "none") results-switches)
"#+END_SRC"))