[elpa] externals/org fe663b6c80 1/4: lisp/org-element-ast.el (org-element--property-idx): Simplify implementation

[ELPA Syncer]

branch: externals/org
commit fe663b6c808127e618b8b5261c9b4efb46ca267e
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    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
---
 lisp/org-element-ast.el | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/lisp/org-element-ast.el b/lisp/org-element-ast.el
index 92a2935ad6..b624fd1c87 100644
--- a/lisp/org-element-ast.el
+++ b/lisp/org-element-ast.el
@@ -353,13 +353,10 @@ node types.")
 (define-inline org-element--property-idx (property)
   "Return standard property index or nil."
   (declare (pure t))
-  (if (inline-const-p property)
-      (plist-get
-       org-element--standard-properties-idxs
-       (inline-const-val property))
-    (inline-quote (plist-get
-                   org-element--standard-properties-idxs
-                   ,property))))
+  (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."