From: Gerd Möllmann <gerd@gnu.org>
Date: Mon, 18 Nov 2024 07:21:22 +0000 (+0100)
Subject: * src/xdisp.c (redisplay_internal): Use assq_no_quit.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8085688401f532e2fbd1f0f2e51bc97d0eb37c0;p=emacs.git

* src/xdisp.c (redisplay_internal): Use assq_no_quit.

(cherry picked from commit 7608563d3b274d805111827a39cc73aaa147eaa1)
---

diff --git a/src/xdisp.c b/src/xdisp.c
index 00db1857774..474546da106 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -17469,16 +17469,9 @@ redisplay_internal (void)
 		continue;
 
 	      /* Remember tty root frames which we've seen.  */
-	      if (!FRAME_PARENT_FRAME (f))
-		{
-		  Lisp_Object found;
-		  for (found = tty_root_frames;
-		       CONSP (found) && !EQ (XCAR (found), frame);
-		       found = XCDR (found))
-		    ;
-		  if (!CONSP (found))
-		    tty_root_frames = Fcons (frame, tty_root_frames);
-		}
+	      if (!FRAME_PARENT_FRAME (f)
+		  && NILP (assq_no_quit (frame, tty_root_frames)))
+		tty_root_frames = Fcons (frame, tty_root_frames);
 	    }
 
 	retry_frame: