From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 10 Sep 2024 08:04:01 +0000 (+0200)
Subject: Avoid 100% CPU load in Tramp
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0005853c45c60ea89750cd1bfa01e8396b3e984e;p=emacs.git

Avoid 100% CPU load in Tramp

* lisp/net/tramp.el (tramp-wait-for-regexp): Add (sit-for 0.005)
prior calling `tramp-accept-process-output'.  This avoids 100% CPU
load.  (Bug#73046)

(cherry picked from commit 652a8a0838b38a6eab85c55fc61cedd1c61ef20f)
---

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 9efd5476242..ad2587fb597 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -6029,6 +6029,8 @@ nil."
   (let ((found (tramp-check-for-regexp proc regexp)))
     (with-tramp-timeout (timeout)
       (while (not found)
+	;; This is needed to yield the CPU, otherwise we'll see 100% CPU load.
+	(sit-for 0.005)
 	(tramp-accept-process-output proc)
 	(unless (process-live-p proc)
 	  (tramp-error-with-buffer