branch: externals/org
commit 673cfb8255fb8a8bc5ea6cfd40aa17eba1ad9387
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
org-element-create: Use `cdddr' instead of more costly `seq-drop'
* lisp/org-element-ast.el (org-element-create):
---
lisp/org-element-ast.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org-element-ast.el b/lisp/org-element-ast.el
index 7259cf9cce..dd9f5f582d 100644
--- a/lisp/org-element-ast.el
+++ b/lisp/org-element-ast.el
@@ -765,7 +765,7 @@ string. Alternatively, TYPE can be a string. When TYPE is
nil or
(setq props (nbutlast props 2)
ptail nil)
(setcar ptail (nth 2 ptail))
- (setcdr ptail (seq-drop ptail 3))))))))
+ (setcdr ptail (cdddr ptail))))))))
(pcase type
((or `nil `anonymous)
(cl-assert (null props))
