Mercurial > emacs
comparison src/window.c @ 90224:2d92f5c9d6ae
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-78
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 514-518)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 104-105)
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 26 Aug 2005 09:51:52 +0000 |
parents | 187d6a1f84f7 bc5cf5fc0f9e |
children | fa0da9b57058 |
comparison
equal
deleted
inserted
replaced
90223:edf295560b5a | 90224:2d92f5c9d6ae |
---|---|
1 /* Window creation, deletion and examination for GNU Emacs. | 1 /* Window creation, deletion and examination for GNU Emacs. |
2 Does not include redisplay. | 2 Does not include redisplay. |
3 Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 2000, | 3 Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 2000, |
4 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. | 4 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. |
5 | 5 |
6 This file is part of GNU Emacs. | 6 This file is part of GNU Emacs. |
7 | 7 |
8 GNU Emacs is free software; you can redistribute it and/or modify | 8 GNU Emacs is free software; you can redistribute it and/or modify |
9 it under the terms of the GNU General Public License as published by | 9 it under the terms of the GNU General Public License as published by |
5622 Lisp_Object left_margin_cols, right_margin_cols; | 5622 Lisp_Object left_margin_cols, right_margin_cols; |
5623 Lisp_Object left_fringe_width, right_fringe_width, fringes_outside_margins; | 5623 Lisp_Object left_fringe_width, right_fringe_width, fringes_outside_margins; |
5624 Lisp_Object scroll_bar_width, vertical_scroll_bar_type; | 5624 Lisp_Object scroll_bar_width, vertical_scroll_bar_type; |
5625 }; | 5625 }; |
5626 | 5626 |
5627 #define SAVED_WINDOW_VECTOR_SIZE 24 /* Arg to Fmake_vector */ | |
5628 | |
5629 #define SAVED_WINDOW_N(swv,n) \ | 5627 #define SAVED_WINDOW_N(swv,n) \ |
5630 ((struct saved_window *) (XVECTOR ((swv)->contents[(n)]))) | 5628 ((struct saved_window *) (XVECTOR ((swv)->contents[(n)]))) |
5631 | 5629 |
5632 DEFUN ("window-configuration-p", Fwindow_configuration_p, Swindow_configuration_p, 1, 1, 0, | 5630 DEFUN ("window-configuration-p", Fwindow_configuration_p, Swindow_configuration_p, 1, 1, 0, |
5633 doc: /* Return t if OBJECT is a window-configuration object. */) | 5631 doc: /* Return t if OBJECT is a window-configuration object. */) |
6203 XSETINT (data->min_width, window_min_width); | 6201 XSETINT (data->min_width, window_min_width); |
6204 tem = Fmake_vector (make_number (n_windows), Qnil); | 6202 tem = Fmake_vector (make_number (n_windows), Qnil); |
6205 data->saved_windows = tem; | 6203 data->saved_windows = tem; |
6206 for (i = 0; i < n_windows; i++) | 6204 for (i = 0; i < n_windows; i++) |
6207 XVECTOR (tem)->contents[i] | 6205 XVECTOR (tem)->contents[i] |
6208 = Fmake_vector (make_number (SAVED_WINDOW_VECTOR_SIZE), Qnil); | 6206 = Fmake_vector (make_number (VECSIZE (struct saved_window)), Qnil); |
6209 save_window_save (FRAME_ROOT_WINDOW (f), XVECTOR (tem), 0); | 6207 save_window_save (FRAME_ROOT_WINDOW (f), XVECTOR (tem), 0); |
6210 XSETWINDOW_CONFIGURATION (tem, data); | 6208 XSETWINDOW_CONFIGURATION (tem, data); |
6211 return (tem); | 6209 return (tem); |
6212 } | 6210 } |
6213 | 6211 |