From 168b8322c375a4b4044d57d37f3b81798271dd92 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sat, 18 May 2019 11:11:36 +0200 Subject: [PATCH] * lisp/net/tramp.el (tramp-interrupt-process): Return proper value. --- lisp/net/tramp.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 38f07970a70..88389346c33 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -4864,9 +4864,8 @@ Only works for Bourne-like shells." (format "kill -2 -%d" pid)) ;; Wait, until the process has disappeared. If it doesn't, ;; fall back to the default implementation. - (and (tramp-accept-process-output proc 1) - ;; Report success. - proc))))) + (while (tramp-accept-process-output proc 0)) + (not (process-live-p proc)))))) ;; `interrupt-process-functions' exists since Emacs 26.1. (when (boundp 'interrupt-process-functions) -- 2.39.2