# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 985520231 0
# Node ID 3819e613c7c2b4c3aeaf265965d61566709007fb
# Parent  9477128b4fad20c91bbe56dbf2ba05c5843f7d70
(Fframe_list): Don't return a tooltip frame.

diff -r 9477128b4fad -r 3819e613c7c2 src/frame.c
--- a/src/frame.c	Sun Mar 25 08:30:21 2001 +0000
+++ b/src/frame.c	Sun Mar 25 11:37:11 2001 +0000
@@ -807,7 +807,11 @@
        "Return a list of all frames.")
   ()
 {
-  return Fcopy_sequence (Vframe_list);
+  Lisp_Object frames;
+  frames = Fcopy_sequence (Vframe_list);
+  if (FRAMEP (tip_frame))
+    frames = Fdelq (tip_frame, frames);
+  return frames;
 }
 
 /* Return the next frame in the frame list after FRAME.