[elpa] master 6941276 046/187: * helm-async.el (helm-async-processes): use process-name.

[Michael Albinus]

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

    * helm-async.el (helm-async-processes): use process-name.
    (helm-async-kill-process): Kill last async process.
---
 helm-async.el |   14 +++++++++++---
 1 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/helm-async.el b/helm-async.el
index 7001b72..6966316 100644
--- a/helm-async.el
+++ b/helm-async.el
@@ -96,11 +96,19 @@ This allow to turn off async features provided to this 
package."
     (force-mode-line-update)))
 
 (defun helm-async-processes ()
-  "Get all emacs-async processes running."
-  (loop for p in (mapcar 'process-name (process-list))
-        when (string-match "emacs" p)
+  (loop for p in (process-list)
+        when (loop for c in (process-command p) thereis
+                   (string= "async-batch-invoke" c))
         collect p))
 
+(defun helm-async-kill-process ()
+  (interactive)
+  (let* ((processes (helm-async-processes))
+         (proc (car (last processes))))
+    (delete-process proc)
+    (unless (> (length processes) 1)
+      (helm-async-mode -1))))
+
 (defun helm-async-after-file-create ()
   "Callback function used for operation handled by `dired-create-file'."
   (unless (helm-async-processes)