From: Stefan Kangas <stefankangas@gmail.com>
Date: Fri, 4 Nov 2022 19:23:55 +0000 (+0100)
Subject: * lisp/dired-aux.el (dired-check-process): Use progress reporter.
X-Git-Tag: emacs-29.0.90~1616^2~302
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e2d71dd5cf49e2906e3e501bcb1280c92c6e6ea;p=emacs.git

* lisp/dired-aux.el (dired-check-process): Use progress reporter.
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 29f973e506a..5e1745069fd 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1025,8 +1025,9 @@ If PROGRAM exits successfully, display \"MSG...done\" and return nil.
 If PROGRAM exits abnormally, save in `dired-log-buffer' the command
 that invoked PROGRAM and the messages it emitted, and return either
 the offending ARGUMENTS or PROGRAM if no ARGUMENTS were provided."
-  (let (err-buffer err (dir default-directory))
-    (message "%s..." msg)
+  (let ((dir default-directory)
+        (reporter (make-progress-reporter msg))
+        err-buffer err)
     (save-excursion
       ;; Get a clean buffer for error output:
       (setq err-buffer (get-buffer-create " *dired-check-process output*"))
@@ -1041,8 +1042,8 @@ the offending ARGUMENTS or PROGRAM if no ARGUMENTS were provided."
 	    (dired-log err-buffer)
 	    (or arguments program t))
 	(kill-buffer err-buffer)
-	(message "%s...done" msg)
-	nil))))
+        (progress-reporter-done reporter)
+        nil))))
 
 (defun dired-shell-command (cmd)
   "Run CMD, and check for output.