branch: elpa/helm
commit b262ff8dc50fdaf6cd67b0f4ec041ef393d7bb5e
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Reorder, no code change
---
helm-core.el | 23 +++++++++++------------
1 file changed, 11 insertions(+), 12 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index f938f534ee..3e9d76213d 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -5615,6 +5615,17 @@ This will work only in Emacs-26+, i.e. Emacs versions
that have
'helm-after-update-hook)
(helm--reset-update-flag))))
+(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-defun helm-kill-async-process (process &optional (kill-fn 'delete-process))
+ "Stop output from `helm-output-filter' and kill associated PROCESS."
+ (set-process-filter process t)
+ (funcall kill-fn process))
+
(defun helm-process-deferred-sentinel-hook (process event file)
"Defer remote processes in sentinels.
Meant to be called at the beginning of a sentinel process
@@ -5643,18 +5654,6 @@ function."
(when helm-alive-p ; Don't run timer fn after quit.
(setq helm-suspend-update-flag nil)
(helm-check-minibuffer-input))))))
-
-(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-defun helm-kill-async-process (process &optional (kill-fn 'delete-process))
- "Stop output from `helm-output-filter' and kill associated PROCESS."
- (set-process-filter process t)
- (funcall kill-fn process))
-
;;; Actions
;;
