From 0005853c45c60ea89750cd1bfa01e8396b3e984e Mon Sep 17 00:00:00 2001
From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 10 Sep 2024 10:04:01 +0200
Subject: [PATCH] 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)
---
 lisp/net/tramp.el | 2 ++
 1 file changed, 2 insertions(+)

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
-- 
2.39.2