[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/jinx 236e81d391 2/3: jinx--force-overlays: Use with-del
From: |
ELPA Syncer |
Subject: |
[elpa] externals/jinx 236e81d391 2/3: jinx--force-overlays: Use with-delayed-message |
Date: |
Sun, 26 Mar 2023 16:59:04 -0400 (EDT) |
branch: externals/jinx
commit 236e81d391b791c52f3cd9e532f202340938e3e3
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
jinx--force-overlays: Use with-delayed-message
---
jinx.el | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/jinx.el b/jinx.el
index 81126d1172..93d49ff384 100644
--- a/jinx.el
+++ b/jinx.el
@@ -462,14 +462,12 @@ Returns a pair of updated (START END) bounds."
(defun jinx--force-overlays (start end)
"Enforce spell-check of region between START and END.
Return list of overlays, see `jinx--get-overlays'."
- (let (message-log-max)
- (message "Fontifying...")
- (jit-lock-fontify-now)
- (message "Checking...")
+ (with-delayed-message (1 "Fontifying...")
+ (jit-lock-fontify-now))
+ (with-delayed-message (1 "Checking...")
(setq start (jinx--check-region start end)
- end (cdr start) start (car start))
- (message "Done")
- (jinx--get-overlays start end)))
+ end (cdr start) start (car start)))
+ (jinx--get-overlays start end))
(defun jinx--annotate-suggestion (word)
"Annotate WORD during completion."