* dired-async.el (dired-async-mode): Notify number of jobs running in lighter.

diff --git a/dired-async.el b/dired-async.el
index 239144b9c4a5d684fb8934aaaeb557a9c3155b9a..dec88ed27324fa075d9158a0f264f6578d4d8f36 100644 (file)
--- a/dired-async.el
+++ b/dired-async.el
@@ -91,7 +91,8 @@ This allow to turn off async features provided to this package."
     "Notify mode-line that an async process run."
   :group 'dired-async
   :global t
-  :lighter (:eval (propertize " [Async job running]"
+  :lighter (:eval (propertize (format " [%s Async job(s) running]"
+                                      (length (dired-async-processes)))
                               'face 'dired-async-mode-message))
   (unless dired-async-mode
     (let ((visible-bell t)) (ding))))