forked from mirrors/org-mode
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.
This commit is contained in:
parent
8e2ed45bb1
commit
ecb5b605d7
|
@ -348,7 +348,7 @@ node types.")
|
||||||
(setq plist (plist-put plist property idx)))
|
(setq plist (plist-put plist property idx)))
|
||||||
org-element--standard-properties)
|
org-element--standard-properties)
|
||||||
plist)
|
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)
|
(define-inline org-element--property-idx (property)
|
||||||
"Return standard property index or nil."
|
"Return standard property index or nil."
|
||||||
|
@ -356,7 +356,7 @@ node types.")
|
||||||
(inline-letevals (property)
|
(inline-letevals (property)
|
||||||
(plist-get
|
(plist-get
|
||||||
org-element--standard-properties-idxs
|
org-element--standard-properties-idxs
|
||||||
(inline-const-val property))))
|
(inline-const-val property)))))
|
||||||
|
|
||||||
(define-inline org-element--parray (node)
|
(define-inline org-element--parray (node)
|
||||||
"Return standard property array for NODE."
|
"Return standard property array for NODE."
|
||||||
|
|
Loading…
Reference in New Issue