* 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 00db18577742cbbdaa79dace1a89f422870ca359..474546da10697dc12292c97a6301b10365b926ae 100644 (file)
--- 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: