diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2019-05-18 11:11:36 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2019-05-18 11:11:36 +0200 |
| commit | 168b8322c375a4b4044d57d37f3b81798271dd92 (patch) | |
| tree | 809b84b05fcff6dbc3579a7f01e68f5fd471e3a7 /lisp | |
| parent | b9303ac2931a7945a47e97cf15aa45707c925892 (diff) | |
| download | emacs-168b8322c375a4b4044d57d37f3b81798271dd92.tar.gz | |
* lisp/net/tramp.el (tramp-interrupt-process): Return proper value.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/tramp.el | 5 |
1 files 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) |