emacs-elpa-diffs
[Top][All Lists]
Advanced

[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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]