From ecb5b605d7cb2702faa0ae6aa4f12344e1e23c8b Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 9 Feb 2024 16:29:25 +0100
Subject: [PATCH] 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 | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/lisp/org-element-ast.el b/lisp/org-element-ast.el
index b624fd1c8..6b98709d2 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'."))
+    "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--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."