diff options
author | Dan Davison <davison@stats.ox.ac.uk> | 2010-04-10 16:12:28 -0400 |
---|---|---|
committer | Dan Davison <davison@stats.ox.ac.uk> | 2010-04-10 16:12:28 -0400 |
commit | 8c827ba5ba23d73e59dc69482059018615196a0c (patch) | |
tree | 9c7c7f9c21e18f885eb367f608a58f65ca25e554 | |
parent | dc104f407b41293e129b357bba207d2bc455e5e4 (diff) | |
download | org-mode-8c827ba5ba23d73e59dc69482059018615196a0c.tar.gz |
babel: Allow output tables to start with 'hline
-rw-r--r-- | contrib/babel/lisp/org-babel.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/contrib/babel/lisp/org-babel.el b/contrib/babel/lisp/org-babel.el index 8530136..a556c7d 100644 --- a/contrib/babel/lisp/org-babel.el +++ b/contrib/babel/lisp/org-babel.el @@ -784,8 +784,9 @@ code ---- the results are extracted in the syntax of the source ;; assume the result is a table if it's not a string ((not (stringp result)) (insert (concat (orgtbl-to-orgtbl - (if (and (listp (car result)) - (listp (cdr (car result)))) + (if (or (eq 'hline (car result)) + (and (listp (car result)) + (listp (cdr (car result))))) result (list result)) '(:fmt (lambda (cell) (format "%s" cell)))) "\n")) (forward-line -1) (org-cycle)) |