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

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

[elpa] externals/org a43cc8c9aa 033/101: org-export-get-node-property: U


From: ELPA Syncer
Subject: [elpa] externals/org a43cc8c9aa 033/101: org-export-get-node-property: Use `org-element-property-inherited'
Date: Sat, 1 Jul 2023 09:59:03 -0400 (EDT)

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

    org-export-get-node-property: Use `org-element-property-inherited'
---
 lisp/ox.el | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/lisp/ox.el b/lisp/ox.el
index 9faf3e515d..67c912a4a8 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -4266,12 +4266,7 @@ Return value is a string or nil."
   (let ((headline (if (org-element-type-p datum 'headline) datum
                    (org-export-get-parent-headline datum))))
     (if (not inherited) (org-element-property property datum)
-      (let ((parent headline))
-       (catch 'found
-         (while parent
-           (when (plist-member (nth 1 parent) property)
-             (throw 'found (org-element-property property parent)))
-           (setq parent (org-element-property :parent parent))))))))
+      (org-element-property-inherited property headline 'with-self nil nil 
t))))
 
 (defun org-export-get-category (blob info)
   "Return category for element or object BLOB.



reply via email to

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