[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 6941276 046/187: * helm-async.el (helm-async-processes): u
From: |
Michael Albinus |
Subject: |
[elpa] master 6941276 046/187: * helm-async.el (helm-async-processes): use process-name. |
Date: |
Wed, 30 Dec 2015 11:49:36 +0000 |
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)
- [elpa] master ec1f0e8 034/187: * helm-async.el: let-bind dired-recursive-copies to 'always to avoid hanging on child., (continued)
- [elpa] master ec1f0e8 034/187: * helm-async.el: let-bind dired-recursive-copies to 'always to avoid hanging on child., Michael Albinus, 2015/12/30
- [elpa] master acb0885 031/187: Several minor fixes, Michael Albinus, 2015/12/30
- [elpa] master 49f8b81 038/187: * helm-async.el: Update copyright, Michael Albinus, 2015/12/30
- [elpa] master 416c73a 037/187: * helm-async.el (helm-async-be-async): New, allow turning off async., Michael Albinus, 2015/12/30
- [elpa] master 2db438b 029/187: dired-async now shows progress using overlays, Michael Albinus, 2015/12/30
- [elpa] master c472c4a 036/187: * helm-async.el Return file errors in child Emacs., Michael Albinus, 2015/12/30
- [elpa] master eb26295 033/187: * helm-async.el: New, redefine dired-create-file to work with helm and dired., Michael Albinus, 2015/12/30
- [elpa] master c35324c 043/187: Async queue handling has to happen in dired-async, Michael Albinus, 2015/12/30
- [elpa] master ac1b896 040/187: Minor touches, Michael Albinus, 2015/12/30
- [elpa] master ad07ff3 039/187: Merge pull request #1 from thierryvolpiatto/master, Michael Albinus, 2015/12/30
- [elpa] master 6941276 046/187: * helm-async.el (helm-async-processes): use process-name.,
Michael Albinus <=
- [elpa] master 1647b97 047/187: * async.el (async-start): Use the possible true name of emacs executable., Michael Albinus, 2015/12/30
- [elpa] master 9779abc 044/187: Fix github issue 2, Michael Albinus, 2015/12/30
- [elpa] master 96cbe3a 048/187: Fix missing optional arguments when calling `async-copy-file' in `async-dired.el'., Michael Albinus, 2015/12/30
- [elpa] master 819b936 045/187: * helm-async.el: Turn off mode-line notification only when last process end., Michael Albinus, 2015/12/30
- [elpa] master 9361417 041/187: Started work on a generalized async-file service, Michael Albinus, 2015/12/30
- [elpa] master 3cc71f3 051/187: * helm-async.el (helm-async-mode): ding when finish., Michael Albinus, 2015/12/30
- [elpa] master d9d68f7 049/187: Merge pull request #5 from mstrlu/fix-async-copy-call, Michael Albinus, 2015/12/30
- [elpa] master bd43f86 053/187: * helm-async.el (dired-create-files): Honor dired-overwrite-confirmed., Michael Albinus, 2015/12/30
- [elpa] master fba2cb9 052/187: Merge branch 'master' of github.com:jwiegley/emacs-async, Michael Albinus, 2015/12/30
- [elpa] master 42fba8d 050/187: * dired-async.el: Add a defvar for `dired-async-use-native-commands', Michael Albinus, 2015/12/30