forked from mirrors/org-mode
org-latex-preview: Avoid duplicate latex fragments
* lisp/org-latex-preview.el (org-latex-preview-collect-fragments): This function was collecting duplicate org-elements when handling nested latex environments (For instance, a matrix env inside an equation env). Fix by comparing the current element with the previously collected one.
This commit is contained in:
parent
a1f2f6806d
commit
f02c40835b
|
@ -669,8 +669,12 @@ fragments in the buffer."
|
||||||
(goto-char (or beg (point-min)))
|
(goto-char (or beg (point-min)))
|
||||||
(while (re-search-forward org-latex-preview--tentative-math-re end t)
|
(while (re-search-forward org-latex-preview--tentative-math-re end t)
|
||||||
(let ((obj (org-element-context)))
|
(let ((obj (org-element-context)))
|
||||||
(when (memq (org-element-type obj)
|
(when (and (memq (org-element-type obj)
|
||||||
'(latex-fragment latex-environment))
|
'(latex-fragment latex-environment))
|
||||||
|
;; Avoid duplicating nested latex environments
|
||||||
|
(not (and fragments
|
||||||
|
(= (org-element-property :begin obj)
|
||||||
|
(org-element-property :begin (car fragments))))))
|
||||||
(push obj fragments)))))
|
(push obj fragments)))))
|
||||||
(nreverse fragments)))
|
(nreverse fragments)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue