From b311374bfc5e359c0ca31b804b1c1c1fe579dcc3 Mon Sep 17 00:00:00 2001
From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
Date: Mon, 20 Jan 2014 13:57:07 +0100
Subject: [PATCH] * dired-async.el (dired-async-mode): Notify number of jobs
 running in lighter.

---
 dired-async.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/dired-async.el b/dired-async.el
index 239144b9c..dec88ed27 100644
--- 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))))
-- 
2.39.2