branch: elpa/helm commit 01b2efc256ef0917ae12a83ff169baa5e35da885 Author: Thierry Volpiatto <thie...@posteo.net> Commit: Thierry Volpiatto <thie...@posteo.net>
Replace cl-defun by regular defun --- helm-core.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/helm-core.el b/helm-core.el index 3e9d76213d..9aa6390f2e 100644 --- a/helm-core.el +++ b/helm-core.el @@ -5621,10 +5621,10 @@ This will work only in Emacs-26+, i.e. Emacs versions that have (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)) +(defun helm-kill-async-process (process &optional kill-fn) "Stop output from `helm-output-filter' and kill associated PROCESS." (set-process-filter process t) - (funcall kill-fn process)) + (funcall (or kill-fn #'delete-process) process)) (defun helm-process-deferred-sentinel-hook (process event file) "Defer remote processes in sentinels.