* lisp/net/tramp.el (tramp-interrupt-process): Return proper value.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 38f07970a7022133f39e4a173aa66171eede5b11..88389346c3343dfc79e63ef9cce2f6669c96ddad 100644 (file)
--- 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)