|
@@ -2320,10 +2320,9 @@ INFO may provide the values of these header arguments (in the
|
|
(lambda (r)
|
|
(lambda (r)
|
|
;; Non-nil when result R can be turned into
|
|
;; Non-nil when result R can be turned into
|
|
;; a table.
|
|
;; a table.
|
|
- (and (listp r)
|
|
|
|
- (null (cdr (last r)))
|
|
|
|
|
|
+ (and (proper-list-p r)
|
|
(cl-every
|
|
(cl-every
|
|
- (lambda (e) (or (atom e) (null (cdr (last e)))))
|
|
|
|
|
|
+ (lambda (e) (or (atom e) (proper-list-p e)))
|
|
result)))))
|
|
result)))))
|
|
;; insert results based on type
|
|
;; insert results based on type
|
|
(cond
|
|
(cond
|