From: Gerd Moellmann <gerd@gnu.org>
Date: Sun, 25 Mar 2001 11:37:40 +0000 (+0000)
Subject: (Fframe_list): Don't return a tooltip frame.
X-Git-Tag: emacs-pretest-21.0.101~183
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d74c19004faaf9678a05d7b71c242ad6c4b3d850;p=emacs.git

(Fframe_list): Don't return a tooltip frame.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 0f907bff031..e573b9d2f2e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2001-03-25  Gerd Moellmann  <gerd@gnu.org>
+
+	* frame.c (Fframe_list): Don't return a tooltip frame.
+
 2001-03-23  Gerd Moellmann  <gerd@gnu.org>
 
 	* xdisp.c (mark_window_display_accurate_1): New function, 
diff --git a/src/frame.c b/src/frame.c
index 08aa8e4494c..7c6cd89a196 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -807,7 +807,11 @@ DEFUN ("frame-list", Fframe_list, Sframe_list,
        "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.