From: Michael Albinus Date: Sat, 15 Jun 2019 09:33:16 +0000 (+0200) Subject: Some changes in process output read of Tramp X-Git-Tag: emacs-27.0.90~2522^2~2 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=38a86a4c490348e74ad1c395ad66176f15d1ce20;p=emacs.git Some changes in process output read of Tramp * lisp/net/tramp.el (tramp-handle-file-notify-rm-watch): Read pending output. * test/lisp/net/tramp-tests.el (tramp-test31-interrupt-process): Use a timeout when reading process output. --- diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 76eb03b89e0..5086ceb9f3b 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -3865,6 +3865,8 @@ of." ;; The descriptor must be a process object. (unless (processp proc) (tramp-error proc 'file-notify-error "Not a valid descriptor %S" proc)) + ;; There might be pending output. + (while (tramp-accept-process-output proc 0)) (tramp-message proc 6 "Kill %S" proc) (delete-process proc)) diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index b9868ff6a87..c9ae4d8b139 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -4173,7 +4173,8 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." (should (numberp (process-get proc 'remote-pid))) (should (interrupt-process proc)) ;; Let the process accept the interrupt. - (while (accept-process-output proc nil nil 0)) + (with-timeout (10 (tramp--test-timeout-handler)) + (while (accept-process-output proc nil nil 0))) (should-not (process-live-p proc)) ;; An interrupted process cannot be interrupted, again. (should-error (interrupt-process proc) :type 'error))