mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-26 03:02: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)))
|
||||
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)
|
||||
(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))))
|
||||
(inline-const-val property)))))
|
||||
|
||||
(define-inline org-element--parray (node)
|
||||
"Return standard property array for NODE."
|
||||
|
|
Loading…
Reference in a new issue