diff options
author | Basil L. Contovounesios <contovob@tcd.ie> | 2018-07-09 18:46:33 -0700 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2019-01-13 12:43:04 -0500 |
commit | ede0d19feb9e3ec3a263b4a6c2c3c1dcf713dbc7 (patch) | |
tree | 01c82aca30e6a7fea6e1c2ca2e0b599b9845a6a3 | |
parent | f73cc4811bf38687fcd134e6a75f84e2bcc52803 (diff) | |
download | org-mode-ede0d19feb9e3ec3a263b4a6c2c3c1dcf713dbc7.tar.gz |
Backport commit 2fde6275b from Emacs
* lisp/ob-core.el (org-babel-insert-result): Use proper-list-p.
Add predicate proper-list-p
2fde6275b69fd113e78243790bf112bbdd2fe2bf
Basil L. Contovounesios
Mon Jul 9 19:00:43 2018 -0700
-rw-r--r-- | lisp/ob-core.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el index ca29fee..3992686 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -2320,10 +2320,9 @@ INFO may provide the values of these header arguments (in the (lambda (r) ;; Non-nil when result R can be turned into ;; a table. - (and (listp r) - (null (cdr (last r))) + (and (proper-list-p r) (cl-every - (lambda (e) (or (atom e) (null (cdr (last e))))) + (lambda (e) (or (atom e) (proper-list-p e))) result))))) ;; insert results based on type (cond |