From ba32f2db71110396e28e6c1841dfdd2aa5daa68c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 25 Mar 1994 06:12:40 +0000 Subject: [PATCH] (Fframe_first_window): New function. --- src/frame.c | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) diff --git a/src/frame.c b/src/frame.c index b11a40a61a3..60f50a86e04 100644 --- a/src/frame.c +++ b/src/frame.c @@ -464,6 +464,33 @@ DEFUN ("window-frame", Fwindow_frame, Swindow_frame, 1, 1, 0, return XWINDOW (window)->frame; } +DEFUN ("frame-first-window", Fframe_first_window, Sframe_first_window, 0, 1, 0, + "Returns the topmost, leftmost window of FRAME.\n\ +If omitted, FRAME defaults to the currently selected frame.") + (frame) + Lisp_Object frame; +{ + Lisp_Object w; + + if (NILP (frame)) + w = selected_frame->root_window; + else + { + CHECK_LIVE_FRAME (frame, 0); + w = XFRAME (frame)->root_window; + } + while (NILP (XWINDOW (w)->buffer)) + { + if (! NILP (XWINDOW (w)->hchild)) + w = XWINDOW (w)->hchild; + else if (! NILP (XWINDOW (w)->vchild)) + w = XWINDOW (w)->vchild; + else + abort (); + } + return w; +} + DEFUN ("frame-root-window", Fframe_root_window, Sframe_root_window, 0, 1, 0, "Returns the root-window of FRAME.\n\ If omitted, FRAME defaults to the currently selected frame.") -- 2.39.5