Commit | Line | Data |
---|---|---|
83b2229f | 1 | /* Window definitions for GNU Emacs. |
0b5538bd | 2 | Copyright (C) 1985, 1986, 1993, 1995, 1997, 1998, 1999, 2000, 2001, |
76b6f707 | 3 | 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
8cabe764 | 4 | Free Software Foundation, Inc. |
83b2229f JB |
5 | |
6 | This file is part of GNU Emacs. | |
7 | ||
b9b1cc14 | 8 | GNU Emacs is free software: you can redistribute it and/or modify |
83b2229f | 9 | it under the terms of the GNU General Public License as published by |
b9b1cc14 GM |
10 | the Free Software Foundation, either version 3 of the License, or |
11 | (at your option) any later version. | |
83b2229f JB |
12 | |
13 | GNU Emacs is distributed in the hope that it will be useful, | |
14 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | GNU General Public License for more details. | |
17 | ||
18 | You should have received a copy of the GNU General Public License | |
b9b1cc14 | 19 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
83b2229f | 20 | |
f43dd834 GM |
21 | #ifndef WINDOW_H_INCLUDED |
22 | #define WINDOW_H_INCLUDED | |
23 | ||
24 | #include "dispextern.h" | |
83b2229f | 25 | |
6000501b KS |
26 | extern Lisp_Object Qleft, Qright; |
27 | ||
83b2229f JB |
28 | /* Windows are allocated as if they were vectors, but then the |
29 | Lisp data type is changed to Lisp_Window. They are garbage | |
30 | collected along with the vectors. | |
31 | ||
32 | All windows in use are arranged into a tree, with pointers up and down. | |
33 | ||
34 | Windows that are leaves of the tree are actually displayed | |
35 | and show the contents of buffers. Windows that are not leaves | |
36 | are used for representing the way groups of leaf windows are | |
44fa5b1e | 37 | arranged on the frame. Leaf windows never become non-leaves. |
83b2229f JB |
38 | They are deleted only by calling delete-window on them (but |
39 | this can be done implicitly). Combination windows can be created | |
40 | and deleted at any time. | |
41 | ||
42 | A leaf window has a non-nil buffer field, and also | |
43 | has markers in its start and pointm fields. Non-leaf windows | |
44 | have nil in these fields. | |
45 | ||
46 | Non-leaf windows are either vertical or horizontal combinations. | |
47 | ||
44fa5b1e | 48 | A vertical combination window has children that are arranged on the frame |
83b2229f JB |
49 | one above the next. Its vchild field points to the uppermost child. |
50 | The parent field of each of the children points to the vertical | |
51 | combination window. The next field of each child points to the | |
52 | child below it, or is nil for the lowest child. The prev field | |
53 | of each child points to the child above it, or is nil for the | |
54 | highest child. | |
55 | ||
56 | A horizontal combination window has children that are side by side. | |
57 | Its hchild field points to the leftmost child. In each child | |
58 | the next field points to the child to the right and the prev field | |
59 | points to the child to the left. | |
60 | ||
61 | The children of a vertical combination window may be leaf windows | |
62 | or horizontal combination windows. The children of a horizontal | |
63 | combination window may be leaf windows or vertical combination windows. | |
64 | ||
65 | At the top of the tree are two windows which have nil as parent. | |
66 | The second of these is minibuf_window. The first one manages all | |
44fa5b1e | 67 | the frame area that is not minibuffer, and is called the root window. |
83b2229f JB |
68 | Different windows can be the root at different times; |
69 | initially the root window is a leaf window, but if more windows | |
70 | are created then that leaf window ceases to be root and a newly | |
71 | made combination window becomes root instead. | |
72 | ||
fbfed6f0 JB |
73 | In any case, on screens which have an ordinary window and a |
74 | minibuffer, prev of the minibuf window is the root window and next of | |
75 | the root window is the minibuf window. On minibufferless screens or | |
76 | minibuffer-only screens, the root window and the minibuffer window are | |
27daff1e | 77 | one and the same, so its prev and next members are nil. |
83b2229f | 78 | |
27daff1e | 79 | A dead window has its buffer, hchild, and vchild windows all nil. */ |
83b2229f | 80 | |
f43dd834 GM |
81 | struct cursor_pos |
82 | { | |
83 | /* Pixel position. These are always window relative. */ | |
84 | int x, y; | |
85 | ||
86 | /* Glyph matrix position. */ | |
87 | int hpos, vpos; | |
88 | }; | |
89 | ||
83b2229f JB |
90 | struct window |
91 | { | |
92 | /* The first two fields are really the header of a vector */ | |
93 | /* The window code does not refer to them. */ | |
d0fdb6da | 94 | EMACS_UINT size; |
83b2229f | 95 | struct Lisp_Vector *vec_next; |
44fa5b1e JB |
96 | /* The frame this window is on. */ |
97 | Lisp_Object frame; | |
83b2229f JB |
98 | /* t if this window is a minibuffer window. */ |
99 | Lisp_Object mini_p; | |
100 | /* Following child (to right or down) at same level of tree */ | |
101 | Lisp_Object next; | |
102 | /* Preceding child (to left or up) at same level of tree */ | |
103 | Lisp_Object prev; | |
104 | /* First child of this window. */ | |
105 | /* vchild is used if this is a vertical combination, | |
106 | hchild if this is a horizontal combination. */ | |
107 | Lisp_Object hchild, vchild; | |
108 | /* The window this one is a child of. */ | |
109 | Lisp_Object parent; | |
110 | /* The upper left corner coordinates of this window, | |
44fa5b1e | 111 | as integers relative to upper left corner of frame = 0, 0 */ |
6000501b KS |
112 | Lisp_Object left_col; |
113 | Lisp_Object top_line; | |
83b2229f | 114 | /* The size of the window */ |
6000501b KS |
115 | Lisp_Object total_lines; |
116 | Lisp_Object total_cols; | |
83b2229f JB |
117 | /* The buffer displayed in this window */ |
118 | /* Of the fields vchild, hchild and buffer, only one is non-nil. */ | |
119 | Lisp_Object buffer; | |
120 | /* A marker pointing to where in the text to start displaying */ | |
121 | Lisp_Object start; | |
122 | /* A marker pointing to where in the text point is in this window, | |
123 | used only when the window is not selected. | |
124 | This exists so that when multiple windows show one buffer | |
125 | each one can have its own value of point. */ | |
126 | Lisp_Object pointm; | |
127 | /* Non-nil means next redisplay must use the value of start | |
128 | set up for it in advance. Set by scrolling commands. */ | |
129 | Lisp_Object force_start; | |
fbf44f72 | 130 | /* Non-nil means we have explicitly changed the value of start, |
65113618 GM |
131 | but that the next redisplay is not obliged to use the new value. |
132 | This is used in Fdelete_other_windows to force a call to | |
f47d4504 | 133 | Vwindow_scroll_functions; also by Frecenter with argument. */ |
fbf44f72 | 134 | Lisp_Object optional_new_start; |
83b2229f JB |
135 | /* Number of columns display within the window is scrolled to the left. */ |
136 | Lisp_Object hscroll; | |
0248728d GM |
137 | /* Minimum hscroll for automatic hscrolling. This is the value |
138 | the user has set, by set-window-hscroll for example. */ | |
139 | Lisp_Object min_hscroll; | |
83b2229f JB |
140 | /* Number saying how recently window was selected */ |
141 | Lisp_Object use_time; | |
142 | /* Unique number of window assigned when it was created */ | |
143 | Lisp_Object sequence_number; | |
144 | /* No permanent meaning; used by save-window-excursion's bookkeeping */ | |
145 | Lisp_Object temslot; | |
146 | /* text.modified of displayed buffer as of last time display completed */ | |
147 | Lisp_Object last_modified; | |
cc885e42 RS |
148 | /* BUF_OVERLAY_MODIFIED of displayed buffer as of last complete update. */ |
149 | Lisp_Object last_overlay_modified; | |
83b2229f JB |
150 | /* Value of point at that time */ |
151 | Lisp_Object last_point; | |
30308d5e RS |
152 | /* Non-nil if the buffer was "modified" when the window |
153 | was last updated. */ | |
154 | Lisp_Object last_had_star; | |
a3c87d4e | 155 | /* This window's vertical scroll bar. This field is only for use |
7c299e7a | 156 | by the window-system-dependent code which implements the |
a3c87d4e JB |
157 | scroll bars; it can store anything it likes here. If this |
158 | window is newly created and we haven't displayed a scroll bar in | |
159 | it yet, or if the frame doesn't have any scroll bars, this is nil. */ | |
160 | Lisp_Object vertical_scroll_bar; | |
20a558dc | 161 | |
f43dd834 GM |
162 | /* Width of left and right marginal areas. A value of nil means |
163 | no margin. */ | |
6000501b KS |
164 | Lisp_Object left_margin_cols, right_margin_cols; |
165 | ||
166 | /* Width of left and right fringes. | |
167 | A value of nil or t means use frame values. */ | |
168 | Lisp_Object left_fringe_width, right_fringe_width; | |
169 | ||
170 | /* Non-nil means fringes are drawn outside display margins; | |
171 | othersize draw them between margin areas and text. */ | |
172 | Lisp_Object fringes_outside_margins; | |
173 | ||
174 | /* Pixel width of scroll bars. | |
175 | A value of nil or t means use frame values. */ | |
176 | Lisp_Object scroll_bar_width; | |
177 | /* Type of vertical scroll bar. A value of nil means | |
178 | no scroll bar. A value of t means use frame value. */ | |
179 | Lisp_Object vertical_scroll_bar_type; | |
f43dd834 | 180 | |
44fa5b1e JB |
181 | /* Frame coords of mark as of last time display completed */ |
182 | /* May be nil if mark does not exist or was not on frame */ | |
83b2229f JB |
183 | Lisp_Object last_mark_x; |
184 | Lisp_Object last_mark_y; | |
f43dd834 GM |
185 | /* Z - the buffer position of the last glyph in the current matrix |
186 | of W. Only valid if WINDOW_END_VALID is not nil. */ | |
83b2229f | 187 | Lisp_Object window_end_pos; |
f43dd834 GM |
188 | /* Glyph matrix row of the last glyph in the current matrix |
189 | of W. Only valid if WINDOW_END_VALID is not nil. */ | |
190 | Lisp_Object window_end_vpos; | |
83b2229f JB |
191 | /* t if window_end_pos is truly valid. |
192 | This is nil if nontrivial redisplay is preempted | |
44fa5b1e JB |
193 | since in that case the frame image that window_end_pos |
194 | did not get onto the frame. */ | |
83b2229f | 195 | Lisp_Object window_end_valid; |
83b2229f JB |
196 | /* Non-nil means must regenerate mode line of this window */ |
197 | Lisp_Object update_mode_line; | |
198 | /* Non-nil means current value of `start' | |
199 | was the beginning of a line when it was chosen. */ | |
200 | Lisp_Object start_at_line_beg; | |
201 | /* Display-table to use for displaying chars in this window. | |
202 | Nil means use the buffer's own display-table. */ | |
203 | Lisp_Object display_table; | |
204 | /* Non-nil means window is marked as dedicated. */ | |
205 | Lisp_Object dedicated; | |
e024395e RS |
206 | /* Line number and position of a line somewhere above the |
207 | top of the screen. */ | |
208 | /* If this field is nil, it means we don't have a base line. */ | |
209 | Lisp_Object base_line_number; | |
210 | /* If this field is nil, it means we don't have a base line. | |
211 | If it is a buffer, it means don't display the line number | |
212 | as long as the window shows that buffer. */ | |
213 | Lisp_Object base_line_pos; | |
096855a6 RS |
214 | /* If we have highlighted the region (or any part of it), |
215 | this is the mark position that we used, as an integer. */ | |
216 | Lisp_Object region_showing; | |
1262267a KH |
217 | /* The column number currently displayed in this window's mode line, |
218 | or nil if column numbers are not being displayed. */ | |
219 | Lisp_Object column_number_displayed; | |
a3bee872 RS |
220 | /* If redisplay in this window goes beyond this buffer position, |
221 | must run the redisplay-end-trigger-hook. */ | |
222 | Lisp_Object redisplay_end_trigger; | |
92f774f3 MR |
223 | /* Non-nil means resizing windows will attempt to resize this window |
224 | proportionally. */ | |
225 | Lisp_Object resize_proportionally; | |
57209cba | 226 | |
e6841c3b | 227 | /* Original window height and top before mini-window was enlarged. */ |
6000501b | 228 | Lisp_Object orig_total_lines, orig_top_line; |
177c0ea7 | 229 | |
e6841c3b JB |
230 | /* An alist with parameteres. */ |
231 | Lisp_Object window_parameters; | |
232 | ||
f43dd834 GM |
233 | /* No Lisp data may follow below this point without changing |
234 | mark_object in alloc.c. The member current_matrix must be the | |
235 | first non-Lisp member. */ | |
236 | ||
237 | /* Glyph matrices. */ | |
238 | struct glyph_matrix *current_matrix; | |
239 | struct glyph_matrix *desired_matrix; | |
240 | ||
71a0ff9a KS |
241 | /* Scaling factor for the glyph_matrix size calculation in this window. |
242 | Used if window contains many small images or uses proportional fonts, | |
243 | as the normal may yield a matrix which is too small. */ | |
244 | int nrows_scale_factor, ncols_scale_factor; | |
245 | ||
f43dd834 GM |
246 | /* Cursor position as of last update that completed without |
247 | pause. This is the position of last_point. */ | |
248 | struct cursor_pos last_cursor; | |
249 | ||
250 | /* Intended cursor position. This is a position within the | |
251 | glyph matrix. */ | |
252 | struct cursor_pos cursor; | |
177c0ea7 | 253 | |
f43dd834 GM |
254 | /* Where the cursor actually is. */ |
255 | struct cursor_pos phys_cursor; | |
177c0ea7 JB |
256 | |
257 | /* Cursor type and width of last cursor drawn on the window. | |
7e913f91 KS |
258 | Used for X and w32 frames; -1 initially. */ |
259 | int phys_cursor_type, phys_cursor_width; | |
f43dd834 GM |
260 | |
261 | /* This is handy for undrawing the cursor. */ | |
262 | int phys_cursor_ascent, phys_cursor_height; | |
177c0ea7 | 263 | |
f43dd834 GM |
264 | /* Non-zero means the cursor is currently displayed. This can be |
265 | set to zero by functions overpainting the cursor image. */ | |
266 | unsigned phys_cursor_on_p : 1; | |
267 | ||
268 | /* 0 means cursor is logically on, 1 means it's off. Used for | |
269 | blinking cursor. */ | |
270 | unsigned cursor_off_p : 1; | |
271 | ||
272 | /* Value of cursor_off_p as of the last redisplay. */ | |
273 | unsigned last_cursor_off_p : 1; | |
274 | ||
275 | /* 1 means desired matrix has been build and window must be | |
276 | updated in update_frame. */ | |
277 | unsigned must_be_updated_p : 1; | |
278 | ||
279 | /* Flag indicating that this window is not a real one. | |
280 | Currently only used for menu bar windows of frames. */ | |
281 | unsigned pseudo_window_p : 1; | |
282 | ||
91a47a68 DN |
283 | /* 1 means the window start of this window is frozen and may not |
284 | be changed during redisplay. If point is not in the window, | |
285 | accept that. */ | |
286 | unsigned frozen_window_start_p : 1; | |
287 | ||
f43dd834 GM |
288 | /* Amount by which lines of this window are scrolled in |
289 | y-direction (smooth scrolling). */ | |
290 | int vscroll; | |
177c0ea7 | 291 | |
f43dd834 GM |
292 | /* Z_BYTE - the buffer position of the last glyph in the current matrix |
293 | of W. Only valid if WINDOW_END_VALID is not nil. */ | |
294 | int window_end_bytepos; | |
295 | }; | |
83b2229f JB |
296 | |
297 | /* 1 if W is a minibuffer window. */ | |
298 | ||
36d8561d | 299 | #define MINI_WINDOW_P(W) (!NILP ((W)->mini_p)) |
83b2229f | 300 | |
6000501b KS |
301 | /* General window layout: |
302 | ||
303 | LEFT_EDGE_COL RIGHT_EDGE_COL | |
304 | | | | |
305 | | | | |
306 | | BOX_LEFT_EDGE_COL | | |
307 | | | BOX_RIGHT_EDGE_COL | | |
308 | | | | | | |
309 | v v v v | |
310 | <-><-><---><-----------><---><-><-> | |
311 | ^ ^ ^ ^ ^ ^ ^ | |
312 | | | | | | | | | |
313 | | | | | | | +-- RIGHT_SCROLL_BAR_COLS | |
314 | | | | | | +----- RIGHT_FRINGE_WIDTH | |
315 | | | | | +--------- RIGHT_MARGIN_COLS | |
316 | | | | | | |
317 | | | | +------------------ TEXT_AREA_COLS | |
318 | | | | | |
319 | | | +--------------------------- LEFT_MARGIN_COLS | |
320 | | +------------------------------- LEFT_FRINGE_WIDTH | |
321 | +---------------------------------- LEFT_SCROLL_BAR_COLS | |
754dc3d8 | 322 | |
6000501b KS |
323 | */ |
324 | ||
325 | ||
326 | /* A handy macro. */ | |
327 | ||
328 | #define WINDOW_XFRAME(W) \ | |
329 | (XFRAME (WINDOW_FRAME ((W)))) | |
330 | ||
331 | /* Return the canonical column width of the frame of window W. */ | |
332 | ||
333 | #define WINDOW_FRAME_COLUMN_WIDTH(W) \ | |
334 | (FRAME_COLUMN_WIDTH (WINDOW_XFRAME ((W)))) | |
335 | ||
336 | /* Return the canonical column width of the frame of window W. */ | |
337 | ||
338 | #define WINDOW_FRAME_LINE_HEIGHT(W) \ | |
339 | (FRAME_LINE_HEIGHT (WINDOW_XFRAME ((W)))) | |
340 | ||
92f774f3 | 341 | /* Return the width of window W in canonical column units. |
6000501b | 342 | This includes scroll bars and fringes. */ |
8516ba9a | 343 | |
6000501b KS |
344 | #define WINDOW_TOTAL_COLS(W) \ |
345 | (XFASTINT ((W)->total_cols)) | |
346 | ||
92f774f3 | 347 | /* Return the height of window W in canonical line units. |
6000501b KS |
348 | This includes header and mode lines, if any. */ |
349 | ||
350 | #define WINDOW_TOTAL_LINES(W) \ | |
351 | (XFASTINT ((W)->total_lines)) | |
352 | ||
6000501b KS |
353 | /* Return the total pixel width of window W. */ |
354 | ||
355 | #define WINDOW_TOTAL_WIDTH(W) \ | |
356 | (WINDOW_TOTAL_COLS (W) * WINDOW_FRAME_COLUMN_WIDTH (W)) | |
357 | ||
358 | /* Return the total pixel height of window W. */ | |
359 | ||
360 | #define WINDOW_TOTAL_HEIGHT(W) \ | |
361 | (WINDOW_TOTAL_LINES (W) * WINDOW_FRAME_LINE_HEIGHT (W)) | |
362 | ||
363 | ||
364 | /* Return the canonical frame column at which window W starts. | |
365 | This includes a left-hand scroll bar, if any. */ | |
366 | ||
367 | #define WINDOW_LEFT_EDGE_COL(W) \ | |
368 | (XFASTINT ((W)->left_col)) | |
369 | ||
370 | /* Return the canonical frame column before which window W ends. | |
8516ba9a RS |
371 | This includes a right-hand scroll bar, if any. */ |
372 | ||
6000501b KS |
373 | #define WINDOW_RIGHT_EDGE_COL(W) \ |
374 | (WINDOW_LEFT_EDGE_COL (W) + WINDOW_TOTAL_COLS (W)) | |
8516ba9a | 375 | |
6000501b KS |
376 | /* Return the canonical frame line at which window W starts. |
377 | This includes a header line, if any. */ | |
378 | ||
379 | #define WINDOW_TOP_EDGE_LINE(W) \ | |
380 | (XFASTINT ((W)->top_line)) | |
381 | ||
382 | /* Return the canonical frame line before which window W ends. | |
383 | This includes a mode line, if any. */ | |
384 | ||
385 | #define WINDOW_BOTTOM_EDGE_LINE(W) \ | |
386 | (WINDOW_TOP_EDGE_LINE (W) + WINDOW_TOTAL_LINES (W)) | |
387 | ||
388 | ||
389 | /* Return the frame x-position at which window W starts. | |
390 | This includes a left-hand scroll bar, if any. */ | |
391 | ||
392 | #define WINDOW_LEFT_EDGE_X(W) \ | |
393 | (FRAME_INTERNAL_BORDER_WIDTH (WINDOW_XFRAME (W)) \ | |
394 | + WINDOW_LEFT_EDGE_COL (W) * WINDOW_FRAME_COLUMN_WIDTH (W)) | |
395 | ||
396 | /* Return the frame x- position before which window W ends. | |
397 | This includes a right-hand scroll bar, if any. */ | |
398 | ||
399 | #define WINDOW_RIGHT_EDGE_X(W) \ | |
400 | (FRAME_INTERNAL_BORDER_WIDTH (WINDOW_XFRAME (W)) \ | |
401 | + WINDOW_RIGHT_EDGE_COL (W) * WINDOW_FRAME_COLUMN_WIDTH (W)) | |
402 | ||
403 | /* Return the frame y-position at which window W starts. | |
404 | This includes a header line, if any. */ | |
405 | ||
406 | #define WINDOW_TOP_EDGE_Y(W) \ | |
407 | (FRAME_INTERNAL_BORDER_WIDTH (WINDOW_XFRAME (W)) \ | |
408 | + WINDOW_TOP_EDGE_LINE (W) * WINDOW_FRAME_LINE_HEIGHT (W)) | |
409 | ||
410 | /* Return the frame y-position before which window W ends. | |
411 | This includes a mode line, if any. */ | |
412 | ||
413 | #define WINDOW_BOTTOM_EDGE_Y(W) \ | |
414 | (FRAME_INTERNAL_BORDER_WIDTH (WINDOW_XFRAME (W)) \ | |
415 | + WINDOW_BOTTOM_EDGE_LINE (W) * WINDOW_FRAME_LINE_HEIGHT (W)) | |
14a65ffe | 416 | |
8516ba9a | 417 | |
177c0ea7 | 418 | /* 1 if window W takes up the full width of its frame. */ |
8516ba9a RS |
419 | |
420 | #define WINDOW_FULL_WIDTH_P(W) \ | |
6000501b KS |
421 | (WINDOW_TOTAL_COLS (W) == FRAME_TOTAL_COLS (WINDOW_XFRAME (W))) |
422 | ||
423 | /* 1 if window W's has no other windows to its left in its frame. */ | |
424 | ||
425 | #define WINDOW_LEFTMOST_P(W) \ | |
426 | (WINDOW_LEFT_EDGE_COL (W) == 0) | |
8516ba9a | 427 | |
177c0ea7 | 428 | /* 1 if window W's has no other windows to its right in its frame. */ |
8516ba9a RS |
429 | |
430 | #define WINDOW_RIGHTMOST_P(W) \ | |
6000501b KS |
431 | (WINDOW_RIGHT_EDGE_COL (W) == FRAME_TOTAL_COLS (WINDOW_XFRAME (W))) |
432 | ||
433 | ||
434 | /* Return the frame column at which the text (or left fringe) in | |
435 | window W starts. This is different from the `LEFT_EDGE' because it | |
436 | does not include a left-hand scroll bar if any. */ | |
437 | ||
438 | #define WINDOW_BOX_LEFT_EDGE_COL(W) \ | |
439 | (WINDOW_LEFT_EDGE_COL (W) \ | |
440 | + WINDOW_LEFT_SCROLL_BAR_COLS (W)) | |
441 | ||
442 | /* Return the window column before which the text in window W ends. | |
443 | This is different from WINDOW_RIGHT_EDGE_COL because it does not | |
444 | include a scroll bar or window-separating line on the right edge. */ | |
445 | ||
446 | #define WINDOW_BOX_RIGHT_EDGE_COL(W) \ | |
447 | (WINDOW_RIGHT_EDGE_COL (W) \ | |
448 | - WINDOW_RIGHT_SCROLL_BAR_COLS (W)) | |
449 | ||
450 | ||
451 | /* Return the frame position at which the text (or left fringe) in | |
452 | window W starts. This is different from the `LEFT_EDGE' because it | |
453 | does not include a left-hand scroll bar if any. */ | |
454 | ||
455 | #define WINDOW_BOX_LEFT_EDGE_X(W) \ | |
456 | (FRAME_INTERNAL_BORDER_WIDTH (WINDOW_XFRAME (W)) \ | |
457 | + WINDOW_BOX_LEFT_EDGE_COL (W) * WINDOW_FRAME_COLUMN_WIDTH (W)) | |
458 | ||
459 | /* Return the window column before which the text in window W ends. | |
460 | This is different from WINDOW_RIGHT_EDGE_COL because it does not | |
461 | include a scroll bar or window-separating line on the right edge. */ | |
462 | ||
463 | #define WINDOW_BOX_RIGHT_EDGE_X(W) \ | |
464 | (FRAME_INTERNAL_BORDER_WIDTH (WINDOW_XFRAME (W)) \ | |
465 | + WINDOW_BOX_RIGHT_EDGE_COL (W) * WINDOW_FRAME_COLUMN_WIDTH (W)) | |
466 | ||
467 | ||
468 | /* Width of left margin area in columns. */ | |
469 | ||
470 | #define WINDOW_LEFT_MARGIN_COLS(W) \ | |
471 | (NILP ((W)->left_margin_cols) \ | |
472 | ? 0 \ | |
473 | : XINT ((W)->left_margin_cols)) | |
474 | ||
475 | /* Width of right marginal area in columns. */ | |
476 | ||
477 | #define WINDOW_RIGHT_MARGIN_COLS(W) \ | |
478 | (NILP ((W)->right_margin_cols) \ | |
479 | ? 0 \ | |
480 | : XINT ((W)->right_margin_cols)) | |
481 | ||
482 | /* Width of left margin area in pixels. */ | |
483 | ||
484 | #define WINDOW_LEFT_MARGIN_WIDTH(W) \ | |
485 | (NILP ((W)->left_margin_cols) \ | |
486 | ? 0 \ | |
487 | : (XINT ((W)->left_margin_cols) \ | |
488 | * WINDOW_FRAME_COLUMN_WIDTH (W))) | |
489 | ||
490 | /* Width of right marginal area in pixels. */ | |
491 | ||
492 | #define WINDOW_RIGHT_MARGIN_WIDTH(W) \ | |
493 | (NILP ((W)->right_margin_cols) \ | |
494 | ? 0 \ | |
495 | : (XINT ((W)->right_margin_cols) \ | |
496 | * WINDOW_FRAME_COLUMN_WIDTH (W))) | |
497 | ||
498 | /* Total width of fringes reserved for drawing truncation bitmaps, | |
499 | continuation bitmaps and alike. The width is in canonical char | |
500 | units of the frame. This must currently be the case because window | |
501 | sizes aren't pixel values. If it weren't the case, we wouldn't be | |
502 | able to split windows horizontally nicely. */ | |
503 | ||
504 | #define WINDOW_FRINGE_COLS(W) \ | |
505 | ((INTEGERP ((W)->left_fringe_width) \ | |
506 | || INTEGERP ((W)->right_fringe_width)) \ | |
507 | ? ((WINDOW_LEFT_FRINGE_WIDTH (W) \ | |
508 | + WINDOW_RIGHT_FRINGE_WIDTH (W) \ | |
509 | + WINDOW_FRAME_COLUMN_WIDTH (W) - 1) \ | |
510 | / WINDOW_FRAME_COLUMN_WIDTH (W)) \ | |
511 | : FRAME_FRINGE_COLS (WINDOW_XFRAME (W))) | |
512 | ||
01aa0b2e RS |
513 | /* Column-width of the left and right fringe. */ |
514 | ||
515 | #define WINDOW_LEFT_FRINGE_COLS(W) \ | |
516 | ((WINDOW_LEFT_FRINGE_WIDTH ((W)) \ | |
517 | + WINDOW_FRAME_COLUMN_WIDTH (W) - 1) \ | |
518 | / WINDOW_FRAME_COLUMN_WIDTH (W)) | |
519 | ||
520 | #define WINDOW_RIGHT_FRINGE_COLS(W) \ | |
521 | ((WINDOW_RIGHT_FRINGE_WIDTH ((W)) \ | |
522 | + WINDOW_FRAME_COLUMN_WIDTH (W) - 1) \ | |
523 | / WINDOW_FRAME_COLUMN_WIDTH (W)) | |
524 | ||
6000501b KS |
525 | /* Pixel-width of the left and right fringe. */ |
526 | ||
527 | #define WINDOW_LEFT_FRINGE_WIDTH(W) \ | |
528 | (INTEGERP ((W)->left_fringe_width) \ | |
529 | ? XFASTINT ((W)->left_fringe_width) \ | |
530 | : FRAME_LEFT_FRINGE_WIDTH (WINDOW_XFRAME (W))) | |
531 | ||
532 | #define WINDOW_RIGHT_FRINGE_WIDTH(W) \ | |
533 | (INTEGERP ((W)->right_fringe_width) \ | |
534 | ? XFASTINT ((W)->right_fringe_width) \ | |
535 | : FRAME_RIGHT_FRINGE_WIDTH (WINDOW_XFRAME (W))) | |
536 | ||
537 | /* Total width of fringes in pixels. */ | |
538 | ||
539 | #define WINDOW_TOTAL_FRINGE_WIDTH(W) \ | |
540 | (WINDOW_LEFT_FRINGE_WIDTH (W) + WINDOW_RIGHT_FRINGE_WIDTH (W)) | |
541 | ||
542 | /* Are fringes outside display margins in window W. */ | |
543 | ||
544 | #define WINDOW_HAS_FRINGES_OUTSIDE_MARGINS(W) \ | |
545 | (!NILP ((W)->fringes_outside_margins)) | |
546 | ||
547 | /* Say whether scroll bars are currently enabled for window W, | |
548 | and which side they are on. */ | |
549 | ||
550 | #define WINDOW_VERTICAL_SCROLL_BAR_TYPE(w) \ | |
551 | (EQ ((w)->vertical_scroll_bar_type, Qt) \ | |
552 | ? FRAME_VERTICAL_SCROLL_BAR_TYPE (WINDOW_XFRAME (w)) \ | |
553 | : EQ ((w)->vertical_scroll_bar_type, Qleft) \ | |
554 | ? vertical_scroll_bar_left \ | |
555 | : EQ ((w)->vertical_scroll_bar_type, Qright) \ | |
556 | ? vertical_scroll_bar_right \ | |
557 | : vertical_scroll_bar_none) \ | |
558 | ||
559 | #define WINDOW_HAS_VERTICAL_SCROLL_BAR(w) \ | |
560 | (EQ ((w)->vertical_scroll_bar_type, Qt) \ | |
561 | ? FRAME_HAS_VERTICAL_SCROLL_BARS (WINDOW_XFRAME (w)) \ | |
562 | : !NILP ((w)->vertical_scroll_bar_type)) | |
563 | ||
564 | #define WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_LEFT(w) \ | |
565 | (EQ ((w)->vertical_scroll_bar_type, Qt) \ | |
566 | ? FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT (WINDOW_XFRAME (w)) \ | |
567 | : EQ ((w)->vertical_scroll_bar_type, Qleft)) | |
568 | ||
569 | #define WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_RIGHT(w) \ | |
570 | (EQ ((w)->vertical_scroll_bar_type, Qt) \ | |
571 | ? FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (WINDOW_XFRAME (w))\ | |
572 | : EQ ((w)->vertical_scroll_bar_type, Qright)) | |
573 | ||
574 | /* Width that a scroll bar in window W should have, if there is one. | |
575 | Measured in pixels. If scroll bars are turned off, this is still | |
576 | nonzero. */ | |
577 | ||
578 | #define WINDOW_CONFIG_SCROLL_BAR_WIDTH(w) \ | |
579 | (INTEGERP ((w)->scroll_bar_width) \ | |
580 | ? XFASTINT ((w)->scroll_bar_width) \ | |
581 | : FRAME_CONFIG_SCROLL_BAR_WIDTH (WINDOW_XFRAME (w))) | |
582 | ||
583 | /* Width that a scroll bar in window W should have, if there is one. | |
584 | Measured in columns (characters). If scroll bars are turned off, | |
585 | this is still nonzero. */ | |
586 | ||
587 | #define WINDOW_CONFIG_SCROLL_BAR_COLS(w) \ | |
588 | (INTEGERP ((w)->scroll_bar_width) \ | |
589 | ? ((XFASTINT ((w)->scroll_bar_width) \ | |
590 | + WINDOW_FRAME_COLUMN_WIDTH (w) - 1) \ | |
591 | / WINDOW_FRAME_COLUMN_WIDTH (w)) \ | |
592 | : FRAME_CONFIG_SCROLL_BAR_COLS (WINDOW_XFRAME (w))) | |
593 | ||
594 | /* Width of a scroll bar in window W, measured in columns (characters), | |
595 | but only if scroll bars are on the left. If scroll bars are on | |
596 | the right in this frame, or there are no scroll bars, value is 0. */ | |
597 | ||
598 | #define WINDOW_LEFT_SCROLL_BAR_COLS(w) \ | |
599 | (WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_LEFT (w) \ | |
600 | ? (WINDOW_CONFIG_SCROLL_BAR_COLS (w)) \ | |
601 | : 0) | |
602 | ||
603 | /* Width of a left scroll bar area in window W , measured in pixels. */ | |
604 | ||
605 | #define WINDOW_LEFT_SCROLL_BAR_AREA_WIDTH(w) \ | |
606 | (WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_LEFT (w) \ | |
607 | ? (WINDOW_CONFIG_SCROLL_BAR_COLS (w) * WINDOW_FRAME_COLUMN_WIDTH (w)) \ | |
608 | : 0) | |
609 | ||
610 | /* Width of a scroll bar in window W, measured in columns (characters), | |
611 | but only if scroll bars are on the right. If scroll bars are on | |
612 | the left in this frame, or there are no scroll bars, value is 0. */ | |
613 | ||
614 | #define WINDOW_RIGHT_SCROLL_BAR_COLS(w) \ | |
615 | (WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_RIGHT (w) \ | |
616 | ? WINDOW_CONFIG_SCROLL_BAR_COLS (w) \ | |
617 | : 0) | |
618 | ||
619 | /* Width of a left scroll bar area in window W , measured in pixels. */ | |
620 | ||
621 | #define WINDOW_RIGHT_SCROLL_BAR_AREA_WIDTH(w) \ | |
622 | (WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_RIGHT (w) \ | |
623 | ? (WINDOW_CONFIG_SCROLL_BAR_COLS (w) * WINDOW_FRAME_COLUMN_WIDTH (w)) \ | |
624 | : 0) | |
625 | ||
626 | ||
627 | /* Actual width of a scroll bar in window W, measured in columns. */ | |
628 | ||
629 | #define WINDOW_SCROLL_BAR_COLS(w) \ | |
630 | (WINDOW_HAS_VERTICAL_SCROLL_BAR (w) \ | |
631 | ? WINDOW_CONFIG_SCROLL_BAR_COLS (w) \ | |
632 | : 0) | |
633 | ||
634 | /* Width of a left scroll bar area in window W , measured in pixels. */ | |
635 | ||
636 | #define WINDOW_SCROLL_BAR_AREA_WIDTH(w) \ | |
637 | (WINDOW_HAS_VERTICAL_SCROLL_BAR (w) \ | |
638 | ? (WINDOW_CONFIG_SCROLL_BAR_COLS (w) * WINDOW_FRAME_COLUMN_WIDTH (w)) \ | |
639 | : 0) | |
640 | ||
641 | ||
642 | /* Return the frame position where the scroll bar of window W starts. */ | |
643 | ||
644 | #define WINDOW_SCROLL_BAR_AREA_X(W) \ | |
645 | (WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_RIGHT (W) \ | |
646 | ? WINDOW_BOX_RIGHT_EDGE_X (W) \ | |
647 | : WINDOW_LEFT_EDGE_X (W)) | |
648 | ||
649 | ||
01aa0b2e RS |
650 | /* Height in pixels, and in lines, of the mode line. |
651 | May be zero if W doesn't have a mode line. */ | |
6000501b KS |
652 | |
653 | #define WINDOW_MODE_LINE_HEIGHT(W) \ | |
654 | (WINDOW_WANTS_MODELINE_P ((W)) \ | |
655 | ? CURRENT_MODE_LINE_HEIGHT (W) \ | |
656 | : 0) | |
657 | ||
01aa0b2e RS |
658 | #define WINDOW_MODE_LINE_LINES(W) \ |
659 | (!! WINDOW_WANTS_MODELINE_P ((W))) | |
660 | ||
661 | /* Height in pixels, and in lines, of the header line. | |
662 | Zero if W doesn't have a header line. */ | |
6000501b KS |
663 | |
664 | #define WINDOW_HEADER_LINE_HEIGHT(W) \ | |
665 | (WINDOW_WANTS_HEADER_LINE_P ((W)) \ | |
666 | ? CURRENT_HEADER_LINE_HEIGHT (W) \ | |
667 | : 0) | |
668 | ||
01aa0b2e RS |
669 | #define WINDOW_HEADER_LINE_LINES(W) \ |
670 | (!! WINDOW_WANTS_HEADER_LINE_P ((W))) | |
671 | ||
6000501b KS |
672 | /* Pixel height of window W without mode line. */ |
673 | ||
674 | #define WINDOW_BOX_HEIGHT_NO_MODE_LINE(W) \ | |
675 | (WINDOW_TOTAL_HEIGHT ((W)) \ | |
676 | - WINDOW_MODE_LINE_HEIGHT ((W))) | |
677 | ||
678 | /* Pixel height of window W without mode and header line. */ | |
679 | ||
680 | #define WINDOW_BOX_TEXT_HEIGHT(W) \ | |
681 | (WINDOW_TOTAL_HEIGHT ((W)) \ | |
682 | - WINDOW_MODE_LINE_HEIGHT ((W)) \ | |
683 | - WINDOW_HEADER_LINE_HEIGHT ((W))) | |
684 | ||
685 | ||
686 | /* Convert window W relative pixel X to frame pixel coordinates. */ | |
687 | ||
688 | #define WINDOW_TO_FRAME_PIXEL_X(W, X) \ | |
689 | ((X) + WINDOW_BOX_LEFT_EDGE_X ((W))) | |
690 | ||
691 | /* Convert window W relative pixel Y to frame pixel coordinates. */ | |
692 | ||
693 | #define WINDOW_TO_FRAME_PIXEL_Y(W, Y) \ | |
694 | ((Y) + WINDOW_TOP_EDGE_Y ((W))) | |
695 | ||
696 | /* Convert frame relative pixel X to window relative pixel X. */ | |
697 | ||
698 | #define FRAME_TO_WINDOW_PIXEL_X(W, X) \ | |
699 | ((X) - WINDOW_BOX_LEFT_EDGE_X ((W))) | |
700 | ||
701 | /* Convert frame relative pixel Y to window relative pixel Y. */ | |
702 | ||
703 | #define FRAME_TO_WINDOW_PIXEL_Y(W, Y) \ | |
704 | ((Y) - WINDOW_TOP_EDGE_Y ((W))) | |
705 | ||
706 | /* Convert a text area relative x-position in window W to frame X | |
707 | pixel coordinates. */ | |
177c0ea7 | 708 | |
6000501b KS |
709 | #define WINDOW_TEXT_TO_FRAME_PIXEL_X(W, X) \ |
710 | (window_box_left ((W), TEXT_AREA) + (X)) | |
f43dd834 | 711 | |
83b2229f JB |
712 | /* This is the window in which the terminal's cursor should |
713 | be left when nothing is being done with it. This must | |
714 | always be a leaf window, and its buffer is selected by | |
715 | the top level editing loop at the end of each command. | |
716 | ||
717 | This value is always the same as | |
44fa5b1e | 718 | FRAME_SELECTED_WINDOW (selected_frame). */ |
83b2229f JB |
719 | |
720 | extern Lisp_Object selected_window; | |
721 | ||
722 | /* This is a time stamp for window selection, so we can find the least | |
723 | recently used window. Its only users are Fselect_window, | |
44fa5b1e | 724 | init_window_once, and make_frame. */ |
83b2229f JB |
725 | |
726 | extern int window_select_count; | |
727 | ||
44fa5b1e | 728 | /* The minibuffer window of the selected frame. |
83b2229f | 729 | Note that you cannot test for minibufferness of an arbitrary window |
fbfed6f0 | 730 | by comparing against this; use the MINI_WINDOW_P macro instead. */ |
83b2229f JB |
731 | |
732 | extern Lisp_Object minibuf_window; | |
733 | ||
76e316e0 KS |
734 | /* Non-nil means it is the window whose mode line should be |
735 | shown as the selected window when the minibuffer is selected. */ | |
736 | ||
5705966b | 737 | extern Lisp_Object minibuf_selected_window; |
76e316e0 | 738 | |
f43dd834 GM |
739 | /* Non-nil => window to for C-M-v to scroll when the minibuffer is |
740 | selected. */ | |
741 | ||
83b2229f JB |
742 | extern Lisp_Object Vminibuf_scroll_window; |
743 | ||
f43dd834 GM |
744 | /* Nil or a symbol naming the window system under which emacs is |
745 | running ('x is the only current possibility) */ | |
746 | ||
2246281f | 747 | extern Lisp_Object Vinitial_window_system; |
83b2229f JB |
748 | |
749 | /* Version number of X windows: 10, 11 or nil. */ | |
f43dd834 | 750 | |
83b2229f JB |
751 | extern Lisp_Object Vwindow_system_version; |
752 | ||
753 | /* Window that the mouse is over (nil if no mouse support). */ | |
f43dd834 | 754 | |
83b2229f JB |
755 | extern Lisp_Object Vmouse_window; |
756 | ||
757 | /* Last mouse-click event (nil if no mouse support). */ | |
f43dd834 | 758 | |
83b2229f JB |
759 | extern Lisp_Object Vmouse_event; |
760 | ||
4c571d09 | 761 | EXFUN (Fnext_window, 3); |
f1321dc3 | 762 | EXFUN (Fselect_window, 2); |
6000501b | 763 | EXFUN (Fset_window_buffer, 3); |
f43dd834 GM |
764 | EXFUN (Fset_window_hscroll, 2); |
765 | EXFUN (Fwindow_hscroll, 1); | |
754dc3d8 KS |
766 | EXFUN (Fset_window_vscroll, 3); |
767 | EXFUN (Fwindow_vscroll, 2); | |
f43dd834 | 768 | EXFUN (Fset_window_margins, 3); |
caf9deee | 769 | EXFUN (Fwindow_live_p, 1); |
30da6d95 | 770 | EXFUN (Fset_window_point, 2); |
4c571d09 AS |
771 | extern Lisp_Object make_window P_ ((void)); |
772 | extern void delete_window P_ ((Lisp_Object)); | |
b74b8397 | 773 | extern Lisp_Object window_from_coordinates P_ ((struct frame *, int, int, |
6000501b KS |
774 | enum window_part *, |
775 | int *, int*, int)); | |
4c571d09 AS |
776 | EXFUN (Fwindow_dedicated_p, 1); |
777 | extern int window_height P_ ((Lisp_Object)); | |
778 | extern int window_width P_ ((Lisp_Object)); | |
97958f77 | 779 | EXFUN (Fwindow_full_width_p, 1); |
4c571d09 AS |
780 | extern void set_window_height P_ ((Lisp_Object, int, int)); |
781 | extern void set_window_width P_ ((Lisp_Object, int, int)); | |
92a373e3 | 782 | extern void change_window_heights P_ ((Lisp_Object, int)); |
4c571d09 | 783 | extern void delete_all_subwindows P_ ((struct window *)); |
4dedbdd8 | 784 | extern void freeze_window_starts P_ ((struct frame *, int)); |
f5588a40 GM |
785 | extern void foreach_window P_ ((struct frame *, |
786 | int (* fn) (struct window *, void *), | |
787 | void *)); | |
57209cba GM |
788 | extern void grow_mini_window P_ ((struct window *, int)); |
789 | extern void shrink_mini_window P_ ((struct window *)); | |
790 | ||
ef264c42 | 791 | void run_window_configuration_change_hook (struct frame *f); |
83b2229f | 792 | |
f43dd834 GM |
793 | /* Make WINDOW display BUFFER as its contents. RUN_HOOKS_P non-zero |
794 | means it's allowed to run hooks. See make_frame for a case where | |
795 | it's not allowed. */ | |
796 | ||
797 | void set_window_buffer P_ ((Lisp_Object window, Lisp_Object buffer, | |
6000501b | 798 | int run_hooks_p, int keep_margins_p)); |
f43dd834 | 799 | |
83b2229f | 800 | /* Prompt to display in front of the minibuffer contents. */ |
f43dd834 | 801 | |
21826734 | 802 | extern Lisp_Object minibuf_prompt; |
83b2229f | 803 | |
56a98455 | 804 | /* The visual width of the above. */ |
f43dd834 | 805 | |
56a98455 JB |
806 | extern int minibuf_prompt_width; |
807 | ||
f43dd834 GM |
808 | /* This is the window where the echo area message was displayed. It |
809 | is always a minibuffer window, but it may not be the same window | |
810 | currently active as a minibuffer. */ | |
811 | ||
c0acc112 RS |
812 | extern Lisp_Object echo_area_window; |
813 | ||
83b2229f | 814 | /* Depth in recursive edits. */ |
f43dd834 | 815 | |
83b2229f JB |
816 | extern int command_loop_level; |
817 | ||
818 | /* Depth in minibuffer invocations. */ | |
f43dd834 | 819 | |
83b2229f JB |
820 | extern int minibuf_level; |
821 | ||
e0f24100 | 822 | /* true if we should redraw the mode lines on the next redisplay. */ |
f43dd834 | 823 | |
83b2229f JB |
824 | extern int update_mode_lines; |
825 | ||
f43dd834 GM |
826 | /* Nonzero if BEGV - BEG or Z - ZV of current buffer has changed since |
827 | last redisplay that finished. */ | |
828 | ||
83b2229f JB |
829 | extern int clip_changed; |
830 | ||
f43dd834 GM |
831 | /* Nonzero if window sizes or contents have changed since last |
832 | redisplay that finished */ | |
833 | ||
83b2229f JB |
834 | extern int windows_or_buffers_changed; |
835 | ||
d1a0ea0a RS |
836 | /* Nonzero means a frame's cursor type has been changed. */ |
837 | ||
838 | extern int cursor_type_changed; | |
839 | ||
f43dd834 GM |
840 | /* Number of windows displaying the selected buffer. Normally this is |
841 | 1, but it can be more. */ | |
842 | ||
83b2229f | 843 | extern int buffer_shared; |
fbfed6f0 JB |
844 | |
845 | /* If *ROWS or *COLS are too small a size for FRAME, set them to the | |
846 | minimum allowable size. */ | |
f43dd834 | 847 | |
4c571d09 | 848 | extern void check_frame_size P_ ((struct frame *frame, int *rows, int *cols)); |
f43dd834 GM |
849 | |
850 | /* Return a pointer to the glyph W's physical cursor is on. Value is | |
851 | null if W's current matrix is invalid, so that no meaningfull glyph | |
852 | can be returned. */ | |
853 | ||
854 | struct glyph *get_phys_cursor_glyph P_ ((struct window *w)); | |
855 | ||
91523be9 GM |
856 | /* Value is non-zero if WINDOW is a live window. */ |
857 | ||
858 | #define WINDOW_LIVE_P(WINDOW) \ | |
859 | (WINDOWP ((WINDOW)) && !NILP (XWINDOW ((WINDOW))->buffer)) | |
860 | ||
9a274fbd SM |
861 | |
862 | /* These used to be in lisp.h. */ | |
863 | ||
864 | extern Lisp_Object Qwindowp, Qwindow_live_p; | |
865 | extern Lisp_Object Vwindow_list; | |
866 | ||
867 | EXFUN (Fwindow_end, 2); | |
868 | EXFUN (Fselected_window, 0); | |
e7b394e1 | 869 | EXFUN (Fwindow_minibuffer_p, 1); |
9a274fbd SM |
870 | EXFUN (Fdelete_window, 1); |
871 | EXFUN (Fwindow_buffer, 1); | |
872 | EXFUN (Fget_buffer_window, 2); | |
873 | EXFUN (Fsave_window_excursion, UNEVALLED); | |
874 | EXFUN (Fsplit_window, 3); | |
875 | EXFUN (Fset_window_configuration, 1); | |
876 | EXFUN (Fcurrent_window_configuration, 1); | |
877 | extern int compare_window_configurations P_ ((Lisp_Object, Lisp_Object, int)); | |
878 | EXFUN (Fcoordinates_in_window_p, 2); | |
879 | EXFUN (Fwindow_at, 3); | |
880 | EXFUN (Fpos_visible_in_window_p, 3); | |
881 | extern void mark_window_cursors_off P_ ((struct window *)); | |
882 | extern int window_internal_height P_ ((struct window *)); | |
883 | extern int window_internal_width P_ ((struct window *)); | |
884 | EXFUN (Frecenter, 1); | |
885 | EXFUN (Fscroll_other_window, 1); | |
886 | EXFUN (Fset_window_start, 3); | |
887 | extern void temp_output_buffer_show P_ ((Lisp_Object)); | |
888 | extern void replace_buffer_in_all_windows P_ ((Lisp_Object)); | |
889 | extern void init_window_once P_ ((void)); | |
890 | extern void init_window P_ ((void)); | |
891 | extern void syms_of_window P_ ((void)); | |
892 | extern void keys_of_window P_ ((void)); | |
893 | ||
fccd208d | 894 | extern int window_box_text_cols P_ ((struct window *w)); |
9a274fbd | 895 | |
f43dd834 | 896 | #endif /* not WINDOW_H_INCLUDED */ |
ab5796a9 MB |
897 | |
898 | /* arch-tag: d4a6942f-e433-4ffe-ac10-2c3574f28577 | |
899 | (do not change this comment) */ |