[elpa] master cf12552 062/187: * helm-async.el: Fix mode-line updating for emacs-24.3.50.

[Michael Albinus]

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

    * helm-async.el: Fix mode-line updating for emacs-24.3.50.
    (helm-async-mode): Propertize lighter.
    (helm-async-after-file-create): Delay execution of mode-line notification.
    (helm-async-message): add group.
    (helm-async-mode-message): new face.
---
 helm-async.el |   17 +++++++++++++----
 1 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/helm-async.el b/helm-async.el
index bdc4e5d..ca50e41 100644
--- a/helm-async.el
+++ b/helm-async.el
@@ -74,13 +74,20 @@ This allow to turn off async features provided to this 
package."
 
 (defface helm-async-message
     '((t (:foreground "yellow")))
-  "Face used for mode-line message.")
+  "Face used for mode-line message."
+  :group 'helm-async)
+
+(defface helm-async-mode-message
+    '((t (:background "Firebrick1")))
+  "Face used for `helm-async-mode' lighter."
+  :group 'helm-async)
 
 (define-minor-mode helm-async-mode
     "Notify mode-line that an async process run."
   :group 'helm-async
   :global t
-  :lighter " [Async job running]"
+  :lighter (:eval (propertize " [Async job running]"
+                              'face 'helm-async-mode-message))
   (unless helm-async-mode
     (let ((visible-bell t)) (ding))))
 
@@ -125,8 +132,10 @@ This allow to turn off async features provided to this 
package."
           (insert "Error: ")
           (insert-file-contents helm-async-log-file)
           (delete-file helm-async-log-file))
-        (funcall helm-async-message-function "Asynchronous %s of %s file(s) 
done"
-                 (car helm-async-operation) (cadr helm-async-operation)))))
+        (run-with-timer
+         0.1 nil
+         helm-async-message-function "Asynchronous %s of %s file(s) done"
+         (car helm-async-operation) (cadr helm-async-operation)))))
 
 (defun helm-async-maybe-kill-ftp ()
   "Return a form to kill ftp process in child emacs."