tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-export-get-node-property: Use `org-element-property-inherited'

This commit is contained in:
Ihor Radchenko 2023-05-22 15:15:18 +02:00
parent a2730b47fa
commit a43cc8c9aa
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ox.el
View File

@ -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.