diff --git a/lisp/org/org-element-ast.el b/lisp/org/org-element-ast.el index 2322bc69fc4..60ecf34108c 100644 --- a/lisp/org/org-element-ast.el +++ b/lisp/org/org-element-ast.el @@ -731,10 +731,10 @@ a newly created one. When TYPE is `plain-text', CHILDREN must contain a single node - string. Alternatively, TYPE can be a string. When TYPE is nil or `anonymous', PROPS must be nil." - (cl-assert - ;; FIXME: Just use `plistp' from Emacs 29 when available. - (let ((len (proper-list-p props))) - (and len (cl-evenp len)))) + (cl-assert (if (fboundp 'plistp) ; Emacs 29.1 + (plistp props) + (let ((len (proper-list-p props))) + (and len (cl-evenp len))))) ;; Assign parray. (when (and props (not (stringp type)) (not (eq type 'plain-text))) (let ((node (list 'dummy props)))