[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/relint fe1cdcf 1/2: Lower progress message latency
From: |
ELPA Syncer |
Subject: |
[elpa] externals/relint fe1cdcf 1/2: Lower progress message latency |
Date: |
Mon, 26 Apr 2021 09:57:22 -0400 (EDT) |
branch: externals/relint
commit fe1cdcf3d90d9a7a5d612a6415bf162c95809240
Author: Mattias EngdegÄrd <mattiase@acm.org>
Commit: Mattias EngdegÄrd <mattiase@acm.org>
Lower progress message latency
Add `(sit-for 0)` calls after progress messages to make sure that
they are seen by the user right away. At least on macOS, the messages
tend to arrive in batches spaced by a few seconds otherwise.
---
relint.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/relint.el b/relint.el
index 3e3604c..0cec291 100644
--- a/relint.el
+++ b/relint.el
@@ -2378,7 +2378,8 @@ TARGET is the file or directory to use for a repeated
run."
(when (and (not noninteractive)
(zerop (% count 50)))
(message "Scanned %d/%d file%s..."
- count nfiles (if (= nfiles 1) "" "s")))
+ count nfiles (if (= nfiles 1) "" "s"))
+ (sit-for 0))
(setq count (1+ count))
(with-temp-buffer
(emacs-lisp-mode)
@@ -2444,6 +2445,7 @@ and SUPPRESSED is the number of suppressed diagnostics."
"Scan all *.el files in DIR for regexp-related errors."
(interactive "DRelint directory: ")
(message "Finding .el files in %s..." dir)
+ (sit-for 0)
(let ((files (relint--tree-files dir)))
(if files
(relint--scan-files files dir dir (relint--get-error-buffer))