From a43cc8c9aa1e8c85db24836c849d35a26c3e9435 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Mon, 22 May 2023 15:15:18 +0200 Subject: [PATCH] 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 9faf3e515..67c912a4a 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.