branch: externals/org
commit ecb5b605d7cb2702faa0ae6aa4f12344e1e23c8b
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Ihor Radchenko <yanta...@posteo.net>
lisp/org-element-ast.el: Fix compile-time inline expansion
* lisp/org-element-ast.el (org-element--property-idx): Define inline
expansion within `eval-and-compile' to make sure that the expanded is
available at compile time.
See Emacs bug#68851.
---
lisp/org-element-ast.el | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/lisp/org-element-ast.el b/lisp/org-element-ast.el
index b624fd1c87..6b98709d21 100644
--- a/lisp/org-element-ast.el
+++ b/lisp/org-element-ast.el
@@ -348,15 +348,15 @@ node types.")
(setq plist (plist-put plist property idx)))
org-element--standard-properties)
plist)
- "Property list holding standard indexes for
`org-element--standard-properties'."))
-
-(define-inline org-element--property-idx (property)
- "Return standard property index or nil."
- (declare (pure t))
- (inline-letevals (property)
- (plist-get
- org-element--standard-properties-idxs
- (inline-const-val property))))
+ "Property list holding standard indexes for
`org-element--standard-properties'.")
+
+ (define-inline org-element--property-idx (property)
+ "Return standard property index or nil."
+ (declare (pure t))
+ (inline-letevals (property)
+ (plist-get
+ org-element--standard-properties-idxs
+ (inline-const-val property)))))
(define-inline org-element--parray (node)
"Return standard property array for NODE."
