From 2164d9864c506cd36d76f082ce7eaf451b7352f1 Mon Sep 17 00:00:00 2001 From: Paul Nelson Date: Fri, 12 Apr 2024 22:46:28 +0200 Subject: [PATCH] Make "locating previews..." message configurable * preview.el (preview-locating-previews-message): New variable. (preview-parse-messages): Use it. --- preview.el.in | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/preview.el.in b/preview.el.in index f8e5ade8..f6608824 100644 --- a/preview.el.in +++ b/preview.el.in @@ -3288,6 +3288,8 @@ temporarily opened, as if the user had entered it via movement commands." :group 'preview-latex :type 'boolean) +(defvar preview-locating-previews-message "locating previews...") + (defun preview-parse-messages (open-closure) "Turn all preview snippets into overlays. This parses the pseudo error messages from the preview @@ -3295,7 +3297,7 @@ document style for LaTeX. OPEN-CLOSURE is called once it is certain that we have a valid output file, and it has to return in its CAR the PROCESS parameter for the CLOSE call, and in its CDR the final stuff for the placement hook." - (with-temp-message "locating previews..." + (with-temp-message preview-locating-previews-message (let (TeX-error-file TeX-error-offset snippet box counters file line (lsnippet 0) lstart (lfile "") lline lbuffer lpoint -- 2.39.3 (Apple Git-145)