From 7e2d71dd5cf49e2906e3e501bcb1280c92c6e6ea Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 4 Nov 2022 20:23:55 +0100 Subject: [PATCH] * lisp/dired-aux.el (dired-check-process): Use progress reporter. --- lisp/dired-aux.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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. -- 2.39.2