From b2adb517f4fdda954f0ddcf00a26def6f8de4014 Mon Sep 17 00:00:00 2001 From: Karthik Chikmagalur Date: Fri, 5 Jan 2024 18:58:10 -0800 Subject: [PATCH] org-latex-preview: Fix preview help-echo property * lisp/org-latex-preview.el (org-latex-preview--update-overlay): Add LaTeX compilation errors to the help-echo property when the cursor is inside the fragment that is being previewed. This primarily affects the use of `org-latex-preview-auto-mode`. --- lisp/org-latex-preview.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/org-latex-preview.el b/lisp/org-latex-preview.el index 332b08cac..24582f490 100644 --- a/lisp/org-latex-preview.el +++ b/lisp/org-latex-preview.el @@ -496,16 +496,16 @@ overlay face is set to `org-latex-preview-processing-face'." `(left-fringe exclamation-mark error))))) (when org-latex-preview-processing-indicator (org-latex-preview--indicate-processing ov)) + ;; This is a temporary measure until a more sophisticated + ;; interface for errors is available in Org. + (when errors + (overlay-put + ov 'help-echo + (if (bound-and-true-p tooltip-mode) + errors + (concat (propertize "! " 'face '(bold error)) + (substring (replace-regexp-in-string "[\n\r\t ]+" " " errors) 2))))) (unless (overlay-get ov 'view-text) ;Live previewing this element, update in background - ;; This is a temporary measure until a more sophisticated - ;; interface for errors is available in Org. - (when errors - (overlay-put - ov 'help-echo - (if (bound-and-true-p tooltip-mode) - errors - (concat (propertize "! " 'face '(bold error)) - (substring (replace-regexp-in-string "[\n\r\t ]+" " " errors) 2))))) (when image-display (overlay-put ov 'display image-display)) (overlay-put ov 'face (overlay-get ov 'hidden-face))) (run-hook-with-args 'org-latex-preview-update-overlay-functions ov)))