summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2013-03-29 17:57:06 -0600
committerEric Schulte <schulte.eric@gmail.com>2013-03-29 17:57:06 -0600
commit221da3ad27ab20989636c33021f6f89f6799f174 (patch)
treee4853b46afde0a8d1e2fdcbc1589259c39b23109
parentd136eb20c7993ca5584f9f72d02eb3a8a3c3b1cc (diff)
downloadorg-mode-221da3ad27ab20989636c33021f6f89f6799f174.tar.gz
cycle tables for :results org and :results wrap
* lisp/ob-core.el (org-babel-insert-result): Cycle tables for :results org and :results wrap.
-rw-r--r--lisp/ob-core.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 4ef2100..723aa9d 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -2068,6 +2068,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)
+ (goto-char beg) (if (org-at-table-p) (org-cycle))
(funcall wrap "#+BEGIN_SRC org" "#+END_SRC"))
((member "code" result-params)
(funcall wrap (format "#+BEGIN_SRC %s%s" (or lang "none") results-switches)
@@ -2077,6 +2078,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))
+ (goto-char beg) (if (org-at-table-p) (org-cycle))
(funcall wrap ":RESULTS:" ":END:" 'no-escape))
((and (not (funcall proper-list-p result))
(not (member "file" result-params)))