[elpa] externals/org ae49451364 009/101: org-element-ast: New function `org-element-put-property-2'

[ELPA Syncer]

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

    org-element-ast: New function `org-element-put-property-2'
    
    * lisp/org-element-ast.el (org-element-put-property-2): New function
    allowing to pass NODE as the last argument.
---
 lisp/org-element-ast.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lisp/org-element-ast.el b/lisp/org-element-ast.el
index 2816defeb9..13635679a4 100644
--- a/lisp/org-element-ast.el
+++ b/lisp/org-element-ast.el
@@ -466,6 +466,11 @@ Return modified NODE."
                 (setcar (cdr ,node) (plist-put (nth 1 ,node) ,property 
,value)))))
            ,node))))))
 
+(define-inline org-element-put-property-2 (property value node)
+  "Like `org-element-put-property', but NODE is the last argument.
+See `org-element-put-property' for the meaning of PROPERTY and VALUE."
+  (inline-quote (org-element-put-property ,node ,property ,value)))
+
 (defun org-element--property (property node &optional dflt force-undefer)
   "Extract the value from the PROPERTY of a NODE.
 Return DFLT when PROPERTY is not present.