forked from mirrors/org-mode
org-export-get-node-property: Use `org-element-property-inherited'
This commit is contained in:
parent
a2730b47fa
commit
a43cc8c9aa
|
@ -4266,12 +4266,7 @@ Return value is a string or nil."
|
||||||
(let ((headline (if (org-element-type-p datum 'headline) datum
|
(let ((headline (if (org-element-type-p datum 'headline) datum
|
||||||
(org-export-get-parent-headline datum))))
|
(org-export-get-parent-headline datum))))
|
||||||
(if (not inherited) (org-element-property property datum)
|
(if (not inherited) (org-element-property property datum)
|
||||||
(let ((parent headline))
|
(org-element-property-inherited property headline 'with-self nil nil t))))
|
||||||
(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))))))))
|
|
||||||
|
|
||||||
(defun org-export-get-category (blob info)
|
(defun org-export-get-category (blob info)
|
||||||
"Return category for element or object BLOB.
|
"Return category for element or object BLOB.
|
||||||
|
|
Loading…
Reference in a new issue