From a8085688401f532e2fbd1f0f2e51bc97d0eb37c0 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gerd=20M=C3=B6llmann?= Date: Mon, 18 Nov 2024 08:21:22 +0100 Subject: [PATCH] * src/xdisp.c (redisplay_internal): Use assq_no_quit. (cherry picked from commit 7608563d3b274d805111827a39cc73aaa147eaa1) --- src/xdisp.c | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) 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: -- 2.39.5