[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 168b832 2/2: * lisp/net/tramp.el (tramp-interrupt-p
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master 168b832 2/2: * lisp/net/tramp.el (tramp-interrupt-process): Return proper value. |
Date: |
Sat, 18 May 2019 05:11:45 -0400 (EDT) |
branch: master
commit 168b8322c375a4b4044d57d37f3b81798271dd92
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
* 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 38f0797..8838934 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)