[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 7e2d71dd5c 1/2: * lisp/dired-aux.el (dired-check-process): Use pr
From: |
Stefan Kangas |
Subject: |
master 7e2d71dd5c 1/2: * lisp/dired-aux.el (dired-check-process): Use progress reporter. |
Date: |
Fri, 4 Nov 2022 15:28:22 -0400 (EDT) |
branch: master
commit 7e2d71dd5cf49e2906e3e501bcb1280c92c6e6ea
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
* 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 29f973e506..5e1745069f 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.