daniel/ox-rst
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use new function names org-element-extract' and org-element-set'

Browse Source
This commit is contained in:
Masanao Igarashi
2025-02-19 18:09:01 +09:00
parent 291e938738
commit a5d1f2e58d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ox-rst.el
View File

@@ -1204,14 +1204,14 @@ containing export options. Modify DATA by side-effect and return it."
(last object)) (last object))
;; Wrap MATH-BLOCK around OBJECT in DATA. ;; Wrap MATH-BLOCK around OBJECT in DATA.
(org-element-insert-before math-block object) (org-element-insert-before math-block object)
(org-element-extract-element object) (org-element-extract object)
(org-element-adopt-elements math-block object) (org-element-adopt-elements math-block object)
(when (zerop (or (org-element-property :post-blank object) 0)) (when (zerop (or (org-element-property :post-blank object) 0))
;; MATH-BLOCK swallows consecutive math objects. ;; MATH-BLOCK swallows consecutive math objects.
(catch 'exit (catch 'exit
(dolist (next next-elements) (dolist (next next-elements)
(if (not (funcall valid-object-p next)) (throw 'exit nil) (if (not (funcall valid-object-p next)) (throw 'exit nil)
(org-element-extract-element next) (org-element-extract next)
(org-element-adopt-elements math-block next) (org-element-adopt-elements math-block next)
;; Eschew the case: \beta$x$ -> \(\betax\). ;; Eschew the case: \beta$x$ -> \(\betax\).
(unless (memq (org-element-type next) (unless (memq (org-element-type next)