[elpa] master 51c598b 149/187: Add autoload cookie and make dired-async--modeline-mode internal.

[Michael Albinus]

branch: master
commit 51c598b1a4184dbc3863e8081e2118b7e30b5e25
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>

    Add autoload cookie and make dired-async--modeline-mode internal.
    
    * dired-async.el (dired-async--modeline-mode): Renamed from 
dired-async-modeline-mode
    to notify the function is internal.
    (dired-async-mode): add autoload cookie.
---
 dired-async.el |   13 +++++++------
 1 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/dired-async.el b/dired-async.el
index 3f7d4d4..e1b9729 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -81,17 +81,17 @@ This allow to turn off async features provided to this 
package."
 
 (defface dired-async-mode-message
     '((t (:background "Firebrick1")))
-  "Face used for `dired-async-modeline-mode' lighter."
+  "Face used for `dired-async--modeline-mode' lighter."
   :group 'dired-async)
 
-(define-minor-mode dired-async-modeline-mode
+(define-minor-mode dired-async--modeline-mode
     "Notify mode-line that an async process run."
   :group 'dired-async
   :global t
   :lighter (:eval (propertize (format " [%s Async job(s) running]"
                                       (length (dired-async-processes)))
                               'face 'dired-async-mode-message))
-  (unless dired-async-modeline-mode
+  (unless dired-async--modeline-mode
     (let ((visible-bell t)) (ding))))
 
 (defun dired-async-mode-line-message (text &rest args)
@@ -119,14 +119,14 @@ This allow to turn off async features provided to this 
package."
          (proc (car (last processes))))
     (delete-process proc)
     (unless (> (length processes) 1)
-      (dired-async-modeline-mode -1))))
+      (dired-async--modeline-mode -1))))
 
 (defun dired-async-after-file-create (len-flist)
   "Callback function used for operation handled by `dired-create-file'."
   (unless (dired-async-processes)
     ;; Turn off mode-line notification
     ;; only when last process end.
-    (dired-async-modeline-mode -1))
+    (dired-async--modeline-mode -1))
   (when dired-async-operation
     (if (file-exists-p dired-async-log-file)
         (progn
@@ -261,10 +261,11 @@ ESC or `q' to not overwrite any of the remaining files,
                       ,(dired-async-maybe-kill-ftp))
                    callback)
       ;; Run mode-line notifications while process running.
-      (dired-async-modeline-mode 1)
+      (dired-async--modeline-mode 1)
       (setq dired-async-operation (list operation (length async-fn-list)))
       (message "%s proceeding asynchronously..." operation))))
 
+;;;###autoload
 (define-minor-mode dired-async-mode
     "Do dired actions asynchronously."
   :group 'helm