diff --git a/lisp/ob-core.el b/lisp/ob-core.el index e8943c665..7e77dca66 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -2100,9 +2100,9 @@ code ---- the results are extracted in the syntax of the source ((funcall proper-list-p result) (goto-char beg) (insert (concat (orgtbl-to-orgtbl - (if (or (eq 'hline (car result)) - (and (listp (car result)) - (listp (cdr (car result))))) + (if (org-every + (lambda (el) (or (listp el) (eq el 'hline))) + result) result (list result)) '(:fmt (lambda (cell) (format "%s" cell)))) "\n")) (goto-char beg) (when (org-at-table-p) (org-table-align)))