branch: elpa/helm
commit 7da8f04e152463ff92b0b96666cd6fa215eed30c
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Simplify helm-kill-async-processes
---
helm-core.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index 86e6e5f4b0..dba45bc3ef 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -5589,9 +5589,9 @@ This will work only in Emacs-26+, i.e. Emacs versions
that have
(defun helm-kill-async-processes ()
"Kill all asynchronous processes registered in `helm-async-processes'."
- (while helm-async-processes
- (helm-kill-async-process (caar helm-async-processes))
- (setq helm-async-processes (cdr helm-async-processes))))
+ (cl-loop for (proc . _src) in helm-async-processes
+ do (helm-kill-async-process proc)
+ finally (setq helm-async-processes nil)))
(defun helm-kill-async-process (process &optional kill-fn)
"Stop output from `helm-output-filter' and kill associated PROCESS."
