mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-26 03:32:53 +00:00
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,15 +348,15 @@ 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."
|
||||||
(declare (pure t))
|
(declare (pure t))
|
||||||
(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 a new issue