ob-core: Make recent change compatible with older Emacs versions

* lisp/ob-core.el (org-babel-disassemble-tables): Avoid length> for
compatibility with Emacs versions before 28.

length> and friends were added to Emacs in 0f790464d5 (Add new
predicates for sequence lengths, 2020-12-27), which hasn't yet made it
into a release.
This commit is contained in:
Kyle Meyer 2021-09-26 23:24:23 -04:00
parent d9d5594c24
commit 41f76092c6
1 changed files with 3 additions and 1 deletions

View File

@ -1713,7 +1713,9 @@ of the vars, cnames and rnames."
(lambda (var)
(when (proper-list-p (cdr var))
(when (and (not (equal colnames "no"))
(or colnames (and (length> (cdr var) 1)
;; Compatibility note: avoid `length>', which
;; isn't available until Emacs 28.
(or colnames (and (> (length (cdr var)) 1)
(eq (nth 1 (cdr var)) 'hline)
(not (member 'hline (cddr (cdr var)))))))
(let ((both (org-babel-get-colnames (cdr var))))