|
@@ -3461,15 +3461,16 @@ Move point after the link."
|
|
(goto-char (org-element-property :end link))
|
|
(goto-char (org-element-property :end link))
|
|
(let ((new-path (file-relative-name (expand-file-name path file-dir)
|
|
(let ((new-path (file-relative-name (expand-file-name path file-dir)
|
|
includer-dir))
|
|
includer-dir))
|
|
- (new-link (org-element-copy link))
|
|
|
|
- (contents (and (org-element-property :contents-begin link)
|
|
|
|
- (buffer-substring
|
|
|
|
- (org-element-property :contents-begin link)
|
|
|
|
- (org-element-property :contents-end link)))))
|
|
|
|
|
|
+ (new-link (org-element-copy link)))
|
|
(org-element-put-property new-link :path new-path)
|
|
(org-element-put-property new-link :path new-path)
|
|
|
|
+ (when (org-element-property :contents-begin link)
|
|
|
|
+ (org-element-adopt-elements new-link
|
|
|
|
+ (buffer-substring
|
|
|
|
+ (org-element-property :contents-begin link)
|
|
|
|
+ (org-element-property :contents-end link))))
|
|
(delete-region (org-element-property :begin link)
|
|
(delete-region (org-element-property :begin link)
|
|
(org-element-property :end link))
|
|
(org-element-property :end link))
|
|
- (insert (org-element-link-interpreter new-link contents))))))
|
|
|
|
|
|
+ (insert (org-element-interpret-data new-link))))))
|
|
|
|
|
|
(defun org-export--prepare-file-contents
|
|
(defun org-export--prepare-file-contents
|
|
(file &optional lines ind minlevel id footnotes includer)
|
|
(file &optional lines ind minlevel id footnotes includer)
|