martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improve tramp-interrupt-process robustness

Browse Source 
* lisp/net/tramp.el (tramp-interrupt-process): Wait, until the
process has disappeared.
This commit is contained in:
Michael Albinus
2017-09-18 18:00:27 +02:00
parent 8d4223e61b
commit 9e1b5bd92c
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/net/tramp.el
View File

@@ -4556,6 +4556,12 @@ Only works for Bourne-like shells."
'tramp-send-command
(tramp-get-connection-property proc "vector" nil)
(format "kill -2 %d" pid))
;; Wait, until the process has disappeared.
(with-timeout
(1 (tramp-error proc 'error "Process %s did not interrupt" proc))
(while (process-live-p proc)
;; We cannot run `tramp-accept-process-output', it blocks timers.
(accept-process-output proc 0.1)))
;; Report success.
proc))))