/[emacs]/emacs/src/window.c
ViewVC logotype

Diff of /emacs/src/window.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.517 by kfstorm, Tue Oct 4 14:14:05 2005 UTC revision 1.518 by kfstorm, Fri Oct 7 22:17:05 2005 UTC
# Line 6232  usage: (save-window-excursion BODY ...) Line 6232  usage: (save-window-excursion BODY ...)
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;
# Line 6245  window_split_tree (w) Line 6245  window_split_tree (w)
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          {          {
# Line 6268  window_split_tree (w) Line 6268  window_split_tree (w)
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.
# Line 6301  selected frame.  */) Line 6301  selected frame.  */)
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    
# Line 7110  The selected frame is the one whose conf Line 7110  The selected frame is the one whose conf
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);

Legend:
Removed from v.1.517  
changed lines
  Added in v.1.518

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26