Rename org-export-get-parent' to org-element-parent'

This commit is contained in:
Masanao Igarashi
2025-02-19 18:29:49 +09:00
parent 623c5783f0
commit 6e2015fdd4

View File

@@ -808,7 +808,7 @@ contextual information."
CONTENTS is the item contents. INFO is a plist used as CONTENTS is the item contents. INFO is a plist used as
a communication channel." a communication channel."
(let* ((checkbox (org-rst--checkbox item info)) (let* ((checkbox (org-rst--checkbox item info))
(list-type (org-element-property :type (org-export-get-parent item))) (list-type (org-element-property :type (org-element-parent item)))
(tag (let (tag (let
((tag (org-element-property :tag item))) ((tag (org-element-property :tag item)))
(and tag (concat (org-export-data tag info) checkbox)))) (and tag (concat (org-export-data tag info) checkbox))))
@@ -979,7 +979,7 @@ INFO is a plist holding contextual information."
;; for inline images). This is needed as long as ;; for inline images). This is needed as long as
;; attributes cannot be set on a per link basis. ;; attributes cannot be set on a per link basis.
(let* ((parent (org-export-get-parent-element link)) (let* ((parent (org-export-get-parent-element link))
(link (let ((container (org-export-get-parent link))) (link (let ((container (org-element-parent link)))
(if (and (org-element-type-p container 'link) (if (and (org-element-type-p container 'link)
(org-rst-inline-image-p link info)) (org-rst-inline-image-p link info))
container container
@@ -1451,8 +1451,8 @@ INFO is a plist used as a communication channel.
Width of a cell is determined either by a width cookie in the Width of a cell is determined either by a width cookie in the
same column as the cell, or by the maximum cell's length in that same column as the cell, or by the maximum cell's length in that
column." column."
(let* ((row (org-export-get-parent table-cell)) (let* ((row (org-element-parent table-cell))
(table (org-export-get-parent row)) (table (org-element-parent row))
(col (let ((cells (org-element-contents row))) (col (let ((cells (org-element-contents row)))
(- (length cells) (length (memq table-cell cells))))) (- (length cells) (length (memq table-cell cells)))))
(cache (cache