diff options
| author | Michael Albinus | 2019-05-18 11:11:36 +0200 |
|---|---|---|
| committer | Michael Albinus | 2019-05-18 11:11:36 +0200 |
| commit | 168b8322c375a4b4044d57d37f3b81798271dd92 (patch) | |
| tree | 809b84b05fcff6dbc3579a7f01e68f5fd471e3a7 | |
| parent | b9303ac2931a7945a47e97cf15aa45707c925892 (diff) | |
| download | emacs-168b8322c375a4b4044d57d37f3b81798271dd92.tar.gz emacs-168b8322c375a4b4044d57d37f3b81798271dd92.zip | |
* lisp/net/tramp.el (tramp-interrupt-process): Return proper value.
| -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." | |||
| 4864 | (format "kill -2 -%d" pid)) | 4864 | (format "kill -2 -%d" pid)) |
| 4865 | ;; Wait, until the process has disappeared. If it doesn't, | 4865 | ;; Wait, until the process has disappeared. If it doesn't, |
| 4866 | ;; fall back to the default implementation. | 4866 | ;; fall back to the default implementation. |
| 4867 | (and (tramp-accept-process-output proc 1) | 4867 | (while (tramp-accept-process-output proc 0)) |
| 4868 | ;; Report success. | 4868 | (not (process-live-p proc)))))) |
| 4869 | proc))))) | ||
| 4870 | 4869 | ||
| 4871 | ;; `interrupt-process-functions' exists since Emacs 26.1. | 4870 | ;; `interrupt-process-functions' exists since Emacs 26.1. |
| 4872 | (when (boundp 'interrupt-process-functions) | 4871 | (when (boundp 'interrupt-process-functions) |