6232 |
***********************************************************************/ |
***********************************************************************/ |
6233 |
|
|
6234 |
static Lisp_Object |
static Lisp_Object |
6235 |
window_split_tree (w) |
window_tree (w) |
6236 |
struct window *w; |
struct window *w; |
6237 |
{ |
{ |
6238 |
Lisp_Object tail = Qnil; |
Lisp_Object tail = Qnil; |
6245 |
XSETWINDOW (wn, w); |
XSETWINDOW (wn, w); |
6246 |
if (!NILP (w->hchild)) |
if (!NILP (w->hchild)) |
6247 |
wn = Fcons (Qnil, Fcons (Fwindow_edges (wn), |
wn = Fcons (Qnil, Fcons (Fwindow_edges (wn), |
6248 |
window_split_tree (XWINDOW (w->hchild)))); |
window_tree (XWINDOW (w->hchild)))); |
6249 |
else if (!NILP (w->vchild)) |
else if (!NILP (w->vchild)) |
6250 |
wn = Fcons (Qt, Fcons (Fwindow_edges (wn), |
wn = Fcons (Qt, Fcons (Fwindow_edges (wn), |
6251 |
window_split_tree (XWINDOW (w->vchild)))); |
window_tree (XWINDOW (w->vchild)))); |
6252 |
|
|
6253 |
if (NILP (result)) |
if (NILP (result)) |
6254 |
{ |
{ |
6268 |
|
|
6269 |
|
|
6270 |
|
|
6271 |
DEFUN ("window-split-tree", Fwindow_split_tree, Swindow_split_tree, |
DEFUN ("window-tree", Fwindow_tree, Swindow_tree, |
6272 |
0, 1, 0, |
0, 1, 0, |
6273 |
doc: /* Return the window split tree for frame FRAME. |
doc: /* Return the window tree for frame FRAME. |
6274 |
|
|
6275 |
The return value is a list of the form (ROOT MINI), where ROOT |
The return value is a list of the form (ROOT MINI), where ROOT |
6276 |
represents the window split tree of the frame's root window, and MINI |
represents the window tree of the frame's root window, and MINI |
6277 |
is the frame's minibuffer window. |
is the frame's minibuffer window. |
6278 |
|
|
6279 |
If the root window is not split, ROOT is the root window itself. |
If the root window is not split, ROOT is the root window itself. |
6301 |
if (!FRAME_LIVE_P (f)) |
if (!FRAME_LIVE_P (f)) |
6302 |
return Qnil; |
return Qnil; |
6303 |
|
|
6304 |
return window_split_tree (XWINDOW (FRAME_ROOT_WINDOW (f))); |
return window_tree (XWINDOW (FRAME_ROOT_WINDOW (f))); |
6305 |
} |
} |
6306 |
|
|
6307 |
|
|
7110 |
defsubr (&Sset_window_configuration); |
defsubr (&Sset_window_configuration); |
7111 |
defsubr (&Scurrent_window_configuration); |
defsubr (&Scurrent_window_configuration); |
7112 |
defsubr (&Ssave_window_excursion); |
defsubr (&Ssave_window_excursion); |
7113 |
defsubr (&Swindow_split_tree); |
defsubr (&Swindow_tree); |
7114 |
defsubr (&Sset_window_margins); |
defsubr (&Sset_window_margins); |
7115 |
defsubr (&Swindow_margins); |
defsubr (&Swindow_margins); |
7116 |
defsubr (&Sset_window_fringes); |
defsubr (&Sset_window_fringes); |