[elpa] externals/async c3b297f 27/60: Merge pull request #83 from darkfeline/lighter

[Stefan Monnier]

branch: externals/async
commit c3b297fa15f2ccdcccb2f3f08e4a5fec202a544a
Merge: d395e92 953a614
Author: Thierry Volpiatto <address@hidden>
Commit: GitHub <address@hidden>

    Merge pull request #83 from darkfeline/lighter
    
    Add mode line lighter for dired-async-mode
---
 dired-async.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/dired-async.el b/dired-async.el
index a97a9a3..b592cac 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -66,6 +66,14 @@ Should take same args as `message'."
   :group 'dired-async
   :type 'string)
 
+(defcustom dired-async-mode-lighter '(:eval
+                                      (when (eq major-mode 'dired-mode)
+                                        " Async"))
+  "Mode line lighter used for `dired-async-mode'."
+  :group 'dired-async
+  :risky t
+  :type 'sexp)
+
 (defface dired-async-message
     '((t (:foreground "yellow")))
   "Face used for mode-line message."
@@ -337,8 +345,9 @@ ESC or `q' to not overwrite any of the remaining files,
 
 ;;;###autoload
 (define-minor-mode dired-async-mode
-    "Do dired actions asynchronously."
+  "Do dired actions asynchronously."
   :group 'dired-async
+  :lighter dired-async-mode-lighter
   :global t
   (if dired-async-mode
       (if (fboundp 'advice-add)