forked from mirrors/org-mode
lisp/org-element-ast.el (org-element--property-idx): Simplify implementation
Reported-by: Stefan Monnier <monnier@iro.umontreal.ca> Link: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=68818#11
This commit is contained in:
parent
03b383df8b
commit
fe663b6c80
|
@ -353,13 +353,10 @@ node types.")
|
||||||
(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))
|
||||||
(if (inline-const-p 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))))
|
||||||
(inline-quote (plist-get
|
|
||||||
org-element--standard-properties-idxs
|
|
||||||
,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