From 59f4ba2111d0f162853ccd102ec6b04730bf879d Mon Sep 17 00:00:00 2001 From: Karthik Chikmagalur Date: Mon, 8 Jan 2024 20:38:08 -0800 Subject: [PATCH] org-latex-preview: Handle html export preview fail * lisp/org-latex-preview.el (org-latex-preview--check-all-fragments-produced): This function assumes that previews are being generated for placement in the buffer. Handle the case of preview generation for HTML exports. --- lisp/org-latex-preview.el | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/lisp/org-latex-preview.el b/lisp/org-latex-preview.el index 3f52e1f1e..83cb8e062 100644 --- a/lisp/org-latex-preview.el +++ b/lisp/org-latex-preview.el @@ -2331,19 +2331,25 @@ fragments are regenerated." "Preview generation catastrophically failed after this fragment.")) (org-latex-preview--remove-cached (plist-get bad-fragment :key)) - (org-latex-preview--update-overlay - (plist-get bad-fragment :overlay) - (org-latex-preview--cache-image - (plist-get bad-fragment :key) - (plist-get bad-fragment :path) - (org-latex-preview--display-info - extended-info bad-fragment)))) + (if (plist-get extended-info :place-preview-p) + (org-latex-preview--update-overlay + (plist-get bad-fragment :overlay) + (org-latex-preview--cache-image + (plist-get bad-fragment :key) + (plist-get bad-fragment :path) + (org-latex-preview--display-info + extended-info bad-fragment))) + (org-latex-preview--cache-image + (plist-get bad-fragment :key) + (plist-get bad-fragment :path) + (org-latex-preview--display-info + extended-info bad-fragment)))) ;; Re-generate the remaining fragments. (org-latex-preview--create-image-async (plist-get extended-info :processor) (cdr fragments) :latex-preamble (plist-get extended-info :latex-header) - :place-preview-p t) + :place-preview-p (plist-get extended-info :place-preview-p)) (setq fragments nil))))) (defun org-latex-preview--display-info (extended-info fragment-info)