branch: master
commit 2fe75e6726791b4f37141807c8ee1f3f0201147e
Author: Paul Nelson <[email protected]>
Commit: Arash Esbati <[email protected]>
Make "locating previews..." message configurable
* preview.el (preview-locating-previews-message): New variable.
(preview-parse-messages): Use it. (bug#70378)
---
preview.el.in | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/preview.el.in b/preview.el.in
index c9d1184f..5ea185f1 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -3278,6 +3278,8 @@ beginning of the overlay. This is intended to be used in
conjunction
with `preview-preprocess-function' when the latter introduces
significant modifications.")
+(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
@@ -3285,7 +3287,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
