emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org 80122a1204 008/101: org-element-ast: New function `


From: ELPA Syncer
Subject: [elpa] externals/org 80122a1204 008/101: org-element-ast: New function `org-element-property-2'
Date: Sat, 1 Jul 2023 09:58:52 -0400 (EDT)

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

    org-element-ast: New function `org-element-property-2'
---
 lisp/org-element-ast.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/org-element-ast.el b/lisp/org-element-ast.el
index 7b4e4e231c..2816defeb9 100644
--- a/lisp/org-element-ast.el
+++ b/lisp/org-element-ast.el
@@ -516,6 +516,10 @@ except `:deferred', may not be resolved."
       (inline-quote (org-element-property-1 ,property ,node ,dflt))
     (inline-quote (org-element--property ,property ,node ,dflt 
,force-undefer))))
 
+(define-inline org-element-property-2 (node property &optional dflt 
force-undefer)
+  "Like `org-element-property', but reverse the order of NODE and PROPERTY."
+  (inline-quote (org-element-property ,property ,node ,dflt ,force-undefer)))
+
 (gv-define-setter org-element-property (value property node &optional _)
   `(org-element-put-property ,node ,property ,value))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]