Mercurial > emacs
annotate src/window.h @ 23209:601bf7681009
(comint-arguments): Ignore backslashes when using
w32 shells that expect backslashes as the directory separator.
author | Geoff Voelker <voelker@cs.washington.edu> |
---|---|
date | Mon, 07 Sep 1998 23:39:23 +0000 |
parents | f4c17bc26d52 |
children | 429ec2c075e4 |
rev | line source |
---|---|
361 | 1 /* Window definitions for GNU Emacs. |
10440
055b4219b6d7
(struct window): New member column_number_displayed.
Karl Heuer <kwzh@gnu.org>
parents:
8833
diff
changeset
|
2 Copyright (C) 1985, 1986, 1993, 1995 Free Software Foundation, Inc. |
361 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
732 | 8 the Free Software Foundation; either version 2, or (at your option) |
361 | 9 any later version. |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
13458
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
13458
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
361 | 20 |
21 | |
22 /* Windows are allocated as if they were vectors, but then the | |
23 Lisp data type is changed to Lisp_Window. They are garbage | |
24 collected along with the vectors. | |
25 | |
26 All windows in use are arranged into a tree, with pointers up and down. | |
27 | |
28 Windows that are leaves of the tree are actually displayed | |
29 and show the contents of buffers. Windows that are not leaves | |
30 are used for representing the way groups of leaf windows are | |
769 | 31 arranged on the frame. Leaf windows never become non-leaves. |
361 | 32 They are deleted only by calling delete-window on them (but |
33 this can be done implicitly). Combination windows can be created | |
34 and deleted at any time. | |
35 | |
36 A leaf window has a non-nil buffer field, and also | |
37 has markers in its start and pointm fields. Non-leaf windows | |
38 have nil in these fields. | |
39 | |
40 Non-leaf windows are either vertical or horizontal combinations. | |
41 | |
769 | 42 A vertical combination window has children that are arranged on the frame |
361 | 43 one above the next. Its vchild field points to the uppermost child. |
44 The parent field of each of the children points to the vertical | |
45 combination window. The next field of each child points to the | |
46 child below it, or is nil for the lowest child. The prev field | |
47 of each child points to the child above it, or is nil for the | |
48 highest child. | |
49 | |
50 A horizontal combination window has children that are side by side. | |
51 Its hchild field points to the leftmost child. In each child | |
52 the next field points to the child to the right and the prev field | |
53 points to the child to the left. | |
54 | |
55 The children of a vertical combination window may be leaf windows | |
56 or horizontal combination windows. The children of a horizontal | |
57 combination window may be leaf windows or vertical combination windows. | |
58 | |
59 At the top of the tree are two windows which have nil as parent. | |
60 The second of these is minibuf_window. The first one manages all | |
769 | 61 the frame area that is not minibuffer, and is called the root window. |
361 | 62 Different windows can be the root at different times; |
63 initially the root window is a leaf window, but if more windows | |
64 are created then that leaf window ceases to be root and a newly | |
65 made combination window becomes root instead. | |
66 | |
998 | 67 In any case, on screens which have an ordinary window and a |
68 minibuffer, prev of the minibuf window is the root window and next of | |
69 the root window is the minibuf window. On minibufferless screens or | |
70 minibuffer-only screens, the root window and the minibuffer window are | |
1445
3b0906e2b82c
* window.h (struct window): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
71 one and the same, so its prev and next members are nil. |
361 | 72 |
1445
3b0906e2b82c
* window.h (struct window): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
73 A dead window has its buffer, hchild, and vchild windows all nil. */ |
361 | 74 |
75 struct window | |
76 { | |
77 /* The first two fields are really the header of a vector */ | |
78 /* The window code does not refer to them. */ | |
8833
e2b9f8616738
(struct window): Use EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
7950
diff
changeset
|
79 EMACS_INT size; |
361 | 80 struct Lisp_Vector *vec_next; |
769 | 81 /* The frame this window is on. */ |
82 Lisp_Object frame; | |
361 | 83 /* t if this window is a minibuffer window. */ |
84 Lisp_Object mini_p; | |
85 /* Following child (to right or down) at same level of tree */ | |
86 Lisp_Object next; | |
87 /* Preceding child (to left or up) at same level of tree */ | |
88 Lisp_Object prev; | |
89 /* First child of this window. */ | |
90 /* vchild is used if this is a vertical combination, | |
91 hchild if this is a horizontal combination. */ | |
92 Lisp_Object hchild, vchild; | |
93 /* The window this one is a child of. */ | |
94 Lisp_Object parent; | |
95 /* The upper left corner coordinates of this window, | |
769 | 96 as integers relative to upper left corner of frame = 0, 0 */ |
361 | 97 Lisp_Object left; |
98 Lisp_Object top; | |
99 /* The size of the window */ | |
100 Lisp_Object height; | |
101 Lisp_Object width; | |
102 /* The buffer displayed in this window */ | |
103 /* Of the fields vchild, hchild and buffer, only one is non-nil. */ | |
104 Lisp_Object buffer; | |
105 /* A marker pointing to where in the text to start displaying */ | |
106 Lisp_Object start; | |
107 /* A marker pointing to where in the text point is in this window, | |
108 used only when the window is not selected. | |
109 This exists so that when multiple windows show one buffer | |
110 each one can have its own value of point. */ | |
111 Lisp_Object pointm; | |
112 /* Non-nil means next redisplay must use the value of start | |
113 set up for it in advance. Set by scrolling commands. */ | |
114 Lisp_Object force_start; | |
16553
39aa8dd49637
(struct window): New field optional_new_start.
Richard M. Stallman <rms@gnu.org>
parents:
16264
diff
changeset
|
115 /* Non-nil means we have explicitly changed the value of start, |
39aa8dd49637
(struct window): New field optional_new_start.
Richard M. Stallman <rms@gnu.org>
parents:
16264
diff
changeset
|
116 but that the next redisplay is not obliged to use the new value. */ |
39aa8dd49637
(struct window): New field optional_new_start.
Richard M. Stallman <rms@gnu.org>
parents:
16264
diff
changeset
|
117 Lisp_Object optional_new_start; |
361 | 118 /* Number of columns display within the window is scrolled to the left. */ |
119 Lisp_Object hscroll; | |
120 /* Number saying how recently window was selected */ | |
121 Lisp_Object use_time; | |
122 /* Unique number of window assigned when it was created */ | |
123 Lisp_Object sequence_number; | |
124 /* No permanent meaning; used by save-window-excursion's bookkeeping */ | |
125 Lisp_Object temslot; | |
126 /* text.modified of displayed buffer as of last time display completed */ | |
127 Lisp_Object last_modified; | |
16192
b67b2e8eacb3
(struct window): New field last_overlay_modified.
Richard M. Stallman <rms@gnu.org>
parents:
15542
diff
changeset
|
128 /* BUF_OVERLAY_MODIFIED of displayed buffer as of last complete update. */ |
b67b2e8eacb3
(struct window): New field last_overlay_modified.
Richard M. Stallman <rms@gnu.org>
parents:
15542
diff
changeset
|
129 Lisp_Object last_overlay_modified; |
361 | 130 /* Value of point at that time */ |
131 Lisp_Object last_point; | |
15542
f57ee448e79e
(struct window): New field, last_had_star.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
132 /* Non-nil if the buffer was "modified" when the window |
f57ee448e79e
(struct window): New field, last_had_star.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
133 was last updated. */ |
f57ee448e79e
(struct window): New field, last_had_star.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
134 Lisp_Object last_had_star; |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1872
diff
changeset
|
135 /* This window's vertical scroll bar. This field is only for use |
1784
11f62e53acff
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1717
diff
changeset
|
136 by the window-system-dependent code which implements the |
1994
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1872
diff
changeset
|
137 scroll bars; it can store anything it likes here. If this |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1872
diff
changeset
|
138 window is newly created and we haven't displayed a scroll bar in |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1872
diff
changeset
|
139 it yet, or if the frame doesn't have any scroll bars, this is nil. */ |
73ce9dd21093
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1872
diff
changeset
|
140 Lisp_Object vertical_scroll_bar; |
1717
aa7d6d57504b
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1526
diff
changeset
|
141 |
361 | 142 /* The rest are currently not used or only half used */ |
769 | 143 /* Frame coords of point at that time */ |
361 | 144 Lisp_Object last_point_x; |
145 Lisp_Object last_point_y; | |
769 | 146 /* Frame coords of mark as of last time display completed */ |
147 /* May be nil if mark does not exist or was not on frame */ | |
361 | 148 Lisp_Object last_mark_x; |
149 Lisp_Object last_mark_y; | |
150 /* Number of characters in buffer past bottom of window, | |
151 as of last redisplay that finished. */ | |
152 Lisp_Object window_end_pos; | |
153 /* t if window_end_pos is truly valid. | |
154 This is nil if nontrivial redisplay is preempted | |
769 | 155 since in that case the frame image that window_end_pos |
156 did not get onto the frame. */ | |
361 | 157 Lisp_Object window_end_valid; |
158 /* Vertical position (relative to window top) of that buffer position | |
159 of the first of those characters */ | |
160 Lisp_Object window_end_vpos; | |
161 /* Non-nil means must regenerate mode line of this window */ | |
162 Lisp_Object update_mode_line; | |
163 /* Non-nil means current value of `start' | |
164 was the beginning of a line when it was chosen. */ | |
165 Lisp_Object start_at_line_beg; | |
166 /* Display-table to use for displaying chars in this window. | |
167 Nil means use the buffer's own display-table. */ | |
168 Lisp_Object display_table; | |
169 /* Non-nil means window is marked as dedicated. */ | |
170 Lisp_Object dedicated; | |
2304
480abddc8bdd
(struct window): New fields base_line_number and base_line_pos.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
171 /* Line number and position of a line somewhere above the |
480abddc8bdd
(struct window): New fields base_line_number and base_line_pos.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
172 top of the screen. */ |
480abddc8bdd
(struct window): New fields base_line_number and base_line_pos.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
173 /* If this field is nil, it means we don't have a base line. */ |
480abddc8bdd
(struct window): New fields base_line_number and base_line_pos.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
174 Lisp_Object base_line_number; |
480abddc8bdd
(struct window): New fields base_line_number and base_line_pos.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
175 /* If this field is nil, it means we don't have a base line. |
480abddc8bdd
(struct window): New fields base_line_number and base_line_pos.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
176 If it is a buffer, it means don't display the line number |
480abddc8bdd
(struct window): New fields base_line_number and base_line_pos.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
177 as long as the window shows that buffer. */ |
480abddc8bdd
(struct window): New fields base_line_number and base_line_pos.
Richard M. Stallman <rms@gnu.org>
parents:
1994
diff
changeset
|
178 Lisp_Object base_line_pos; |
2856
794899b97115
(struct window): New slot region_showing.
Richard M. Stallman <rms@gnu.org>
parents:
2304
diff
changeset
|
179 /* If we have highlighted the region (or any part of it), |
794899b97115
(struct window): New slot region_showing.
Richard M. Stallman <rms@gnu.org>
parents:
2304
diff
changeset
|
180 this is the mark position that we used, as an integer. */ |
794899b97115
(struct window): New slot region_showing.
Richard M. Stallman <rms@gnu.org>
parents:
2304
diff
changeset
|
181 Lisp_Object region_showing; |
10440
055b4219b6d7
(struct window): New member column_number_displayed.
Karl Heuer <kwzh@gnu.org>
parents:
8833
diff
changeset
|
182 /* The column number currently displayed in this window's mode line, |
055b4219b6d7
(struct window): New member column_number_displayed.
Karl Heuer <kwzh@gnu.org>
parents:
8833
diff
changeset
|
183 or nil if column numbers are not being displayed. */ |
055b4219b6d7
(struct window): New member column_number_displayed.
Karl Heuer <kwzh@gnu.org>
parents:
8833
diff
changeset
|
184 Lisp_Object column_number_displayed; |
13458
adc8fc9fe6ed
(struct window): New field redisplay_end_trigger.
Richard M. Stallman <rms@gnu.org>
parents:
12632
diff
changeset
|
185 /* If redisplay in this window goes beyond this buffer position, |
adc8fc9fe6ed
(struct window): New field redisplay_end_trigger.
Richard M. Stallman <rms@gnu.org>
parents:
12632
diff
changeset
|
186 must run the redisplay-end-trigger-hook. */ |
adc8fc9fe6ed
(struct window): New field redisplay_end_trigger.
Richard M. Stallman <rms@gnu.org>
parents:
12632
diff
changeset
|
187 Lisp_Object redisplay_end_trigger; |
361 | 188 }; |
189 | |
190 /* 1 if W is a minibuffer window. */ | |
191 | |
192 #define MINI_WINDOW_P(W) (!EQ ((W)->mini_p, Qnil)) | |
193 | |
16264
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
194 /* Return the frame column at which the text in window W starts. |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
195 This is different from the `left' field because it does not include |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
196 a left-hand scroll bar if any. */ |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
197 |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
198 #define WINDOW_LEFT_MARGIN(W) \ |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
199 (XFASTINT ((W)->left) \ |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
200 + FRAME_LEFT_SCROLL_BAR_WIDTH (XFRAME (WINDOW_FRAME (W)))) |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
201 |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
202 /* Return the frame column before window W ends. |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
203 This includes a right-hand scroll bar, if any. */ |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
204 |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
205 #define WINDOW_RIGHT_EDGE(W) \ |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
206 (XFASTINT ((W)->left) + XFASTINT ((W)->width)) |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
207 |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
208 /* Return the frame column before which the text in window W ends. |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
209 This is different from WINDOW_RIGHT_EDGE because it does not include |
20700
524d1cfb6913
(WINDOW_RIGHT_MARGIN): Deduct width of vertical line
Richard M. Stallman <rms@gnu.org>
parents:
20349
diff
changeset
|
210 a scroll bar or window-separating line on the right edge. */ |
16264
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
211 |
20700
524d1cfb6913
(WINDOW_RIGHT_MARGIN): Deduct width of vertical line
Richard M. Stallman <rms@gnu.org>
parents:
20349
diff
changeset
|
212 #define WINDOW_RIGHT_MARGIN(W) \ |
524d1cfb6913
(WINDOW_RIGHT_MARGIN): Deduct width of vertical line
Richard M. Stallman <rms@gnu.org>
parents:
20349
diff
changeset
|
213 (WINDOW_RIGHT_EDGE (W) \ |
524d1cfb6913
(WINDOW_RIGHT_MARGIN): Deduct width of vertical line
Richard M. Stallman <rms@gnu.org>
parents:
20349
diff
changeset
|
214 - (! FRAME_HAS_VERTICAL_SCROLL_BARS (XFRAME (WINDOW_FRAME (W))) \ |
21938
f4c17bc26d52
(WINDOW_RIGHT_MARGIN): Don't subtract 1 from width when there are no
Richard M. Stallman <rms@gnu.org>
parents:
20856
diff
changeset
|
215 ? ((WINDOW_RIGHTMOST_P (W)) ? 0 : 1) \ |
20700
524d1cfb6913
(WINDOW_RIGHT_MARGIN): Deduct width of vertical line
Richard M. Stallman <rms@gnu.org>
parents:
20349
diff
changeset
|
216 : FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (XFRAME (WINDOW_FRAME (W))) \ |
524d1cfb6913
(WINDOW_RIGHT_MARGIN): Deduct width of vertical line
Richard M. Stallman <rms@gnu.org>
parents:
20349
diff
changeset
|
217 ? FRAME_SCROLL_BAR_COLS (XFRAME (WINDOW_FRAME (W))) \ |
524d1cfb6913
(WINDOW_RIGHT_MARGIN): Deduct width of vertical line
Richard M. Stallman <rms@gnu.org>
parents:
20349
diff
changeset
|
218 : 0)) |
16264
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
219 |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
220 /* 1 if window W takes up the full width of its frame. */ |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
221 |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
222 #define WINDOW_FULL_WIDTH_P(W) \ |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
223 (XFASTINT ((W)->width) == FRAME_WINDOW_WIDTH (XFRAME (WINDOW_FRAME (W)))) |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
224 |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
225 /* 1 if window W's has no other windows to its right in its frame. */ |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
226 |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
227 #define WINDOW_RIGHTMOST_P(W) \ |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
228 (WINDOW_RIGHT_EDGE (W) == FRAME_WINDOW_WIDTH (XFRAME (WINDOW_FRAME (W)))) |
012a1d850ee8
(WINDOW_LEFT_MARGIN): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16192
diff
changeset
|
229 |
361 | 230 /* This is the window in which the terminal's cursor should |
231 be left when nothing is being done with it. This must | |
232 always be a leaf window, and its buffer is selected by | |
233 the top level editing loop at the end of each command. | |
234 | |
235 This value is always the same as | |
769 | 236 FRAME_SELECTED_WINDOW (selected_frame). */ |
361 | 237 |
238 extern Lisp_Object selected_window; | |
239 | |
240 /* This is a time stamp for window selection, so we can find the least | |
241 recently used window. Its only users are Fselect_window, | |
769 | 242 init_window_once, and make_frame. */ |
361 | 243 |
244 extern int window_select_count; | |
245 | |
769 | 246 /* The minibuffer window of the selected frame. |
361 | 247 Note that you cannot test for minibufferness of an arbitrary window |
998 | 248 by comparing against this; use the MINI_WINDOW_P macro instead. */ |
361 | 249 |
250 extern Lisp_Object minibuf_window; | |
251 | |
252 /* Non-nil => window to for C-M-v to scroll | |
253 when the minibuffer is selected. */ | |
254 extern Lisp_Object Vminibuf_scroll_window; | |
255 | |
256 /* nil or a symbol naming the window system | |
257 under which emacs is running | |
258 ('x is the only current possibility) */ | |
259 extern Lisp_Object Vwindow_system; | |
260 | |
261 /* Version number of X windows: 10, 11 or nil. */ | |
262 extern Lisp_Object Vwindow_system_version; | |
263 | |
264 /* Window that the mouse is over (nil if no mouse support). */ | |
265 extern Lisp_Object Vmouse_window; | |
266 | |
267 /* Last mouse-click event (nil if no mouse support). */ | |
268 extern Lisp_Object Vmouse_event; | |
269 | |
20349 | 270 EXFUN (Fnext_window, 3); |
271 EXFUN (Fselect_window, 1); | |
20856
1e37bbef998c
Change argument number of Fdisplay_buffer to 3.
Kenichi Handa <handa@m17n.org>
parents:
20700
diff
changeset
|
272 EXFUN (Fdisplay_buffer, 3); |
20349 | 273 EXFUN (Fset_window_buffer, 2); |
274 extern Lisp_Object make_window P_ ((void)); | |
275 extern void delete_window P_ ((Lisp_Object)); | |
276 extern Lisp_Object window_from_coordinates P_ ((struct frame *, int, int, int *)); | |
277 EXFUN (Fwindow_dedicated_p, 1); | |
278 extern int window_height P_ ((Lisp_Object)); | |
279 extern int window_width P_ ((Lisp_Object)); | |
280 extern void set_window_height P_ ((Lisp_Object, int, int)); | |
281 extern void set_window_width P_ ((Lisp_Object, int, int)); | |
282 extern void change_window_height P_ ((int, int)); | |
283 extern void delete_all_subwindows P_ ((struct window *)); | |
361 | 284 |
285 /* Prompt to display in front of the minibuffer contents. */ | |
7950
c0a4d26e7498
(minibuf_prompt): Now a Lisp_Object. All uses changed.
Karl Heuer <kwzh@gnu.org>
parents:
5235
diff
changeset
|
286 extern Lisp_Object minibuf_prompt; |
361 | 287 |
488 | 288 /* The visual width of the above. */ |
289 extern int minibuf_prompt_width; | |
290 | |
361 | 291 /* Message to display instead of minibuffer contents. |
292 This is what the functions error and message make, | |
293 and command echoing uses it as well. It overrides the | |
294 minibuf_prompt as well as the buffer. */ | |
295 extern char *echo_area_glyphs; | |
296 | |
5235
4ae7453678af
(echo_area_glyphs_length): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
2961
diff
changeset
|
297 /* This is the length of the message in echo_area_glyphs. */ |
4ae7453678af
(echo_area_glyphs_length): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
2961
diff
changeset
|
298 extern int echo_area_glyphs_length; |
4ae7453678af
(echo_area_glyphs_length): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
2961
diff
changeset
|
299 |
1872
ad692b76edf4
* dispnew.c (remake_frame_glyphs): When re-allocating the frame's
Jim Blandy <jimb@redhat.com>
parents:
1784
diff
changeset
|
300 /* Value of echo_area_glyphs when it was last acted on. |
ad692b76edf4
* dispnew.c (remake_frame_glyphs): When re-allocating the frame's
Jim Blandy <jimb@redhat.com>
parents:
1784
diff
changeset
|
301 If this is nonzero, there is a message on the frame |
ad692b76edf4
* dispnew.c (remake_frame_glyphs): When re-allocating the frame's
Jim Blandy <jimb@redhat.com>
parents:
1784
diff
changeset
|
302 in the minibuffer and it should be erased as soon |
ad692b76edf4
* dispnew.c (remake_frame_glyphs): When re-allocating the frame's
Jim Blandy <jimb@redhat.com>
parents:
1784
diff
changeset
|
303 as it is no longer requested to appear. */ |
ad692b76edf4
* dispnew.c (remake_frame_glyphs): When re-allocating the frame's
Jim Blandy <jimb@redhat.com>
parents:
1784
diff
changeset
|
304 extern char *previous_echo_glyphs; |
ad692b76edf4
* dispnew.c (remake_frame_glyphs): When re-allocating the frame's
Jim Blandy <jimb@redhat.com>
parents:
1784
diff
changeset
|
305 |
12632
81f12c1d0178
(echo_area_window): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
11171
diff
changeset
|
306 /* This is the window where the echo area message was displayed. |
81f12c1d0178
(echo_area_window): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
11171
diff
changeset
|
307 It is always a minibuffer window, but it may not be the |
81f12c1d0178
(echo_area_window): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
11171
diff
changeset
|
308 same window currently active as a minibuffer. */ |
81f12c1d0178
(echo_area_window): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
11171
diff
changeset
|
309 extern Lisp_Object echo_area_window; |
81f12c1d0178
(echo_area_window): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
11171
diff
changeset
|
310 |
361 | 311 /* Depth in recursive edits. */ |
312 extern int command_loop_level; | |
313 | |
314 /* Depth in minibuffer invocations. */ | |
315 extern int minibuf_level; | |
316 | |
317 /* true iff we should redraw the mode lines on the next redisplay. */ | |
318 extern int update_mode_lines; | |
319 | |
11171 | 320 /* Minimum value of GPT - BEG since last redisplay that finished. */ |
361 | 321 |
322 extern int beg_unchanged; | |
323 | |
324 /* Minimum value of Z - GPT since last redisplay that finished. */ | |
325 | |
326 extern int end_unchanged; | |
327 | |
328 /* MODIFF as of last redisplay that finished; | |
11171 | 329 if it matches MODIFF, beg_unchanged and end_unchanged |
361 | 330 contain no useful information. */ |
331 extern int unchanged_modified; | |
332 | |
16192
b67b2e8eacb3
(struct window): New field last_overlay_modified.
Richard M. Stallman <rms@gnu.org>
parents:
15542
diff
changeset
|
333 /* BUF_OVERLAY_MODIFF of current buffer, as of last redisplay that finished; |
b67b2e8eacb3
(struct window): New field last_overlay_modified.
Richard M. Stallman <rms@gnu.org>
parents:
15542
diff
changeset
|
334 if it matches BUF_OVERLAY_MODIFF, beg_unchanged and end_unchanged |
b67b2e8eacb3
(struct window): New field last_overlay_modified.
Richard M. Stallman <rms@gnu.org>
parents:
15542
diff
changeset
|
335 contain no useful information. */ |
b67b2e8eacb3
(struct window): New field last_overlay_modified.
Richard M. Stallman <rms@gnu.org>
parents:
15542
diff
changeset
|
336 extern int overlay_unchanged_modified; |
b67b2e8eacb3
(struct window): New field last_overlay_modified.
Richard M. Stallman <rms@gnu.org>
parents:
15542
diff
changeset
|
337 |
361 | 338 /* Nonzero if BEGV - BEG or Z - ZV of current buffer has changed |
339 since last redisplay that finished. */ | |
340 extern int clip_changed; | |
341 | |
342 /* Nonzero if window sizes or contents have changed | |
343 since last redisplay that finished */ | |
344 extern int windows_or_buffers_changed; | |
345 | |
346 /* Number of windows displaying the selected buffer. | |
347 Normally this is 1, but it can be more. */ | |
348 extern int buffer_shared; | |
998 | 349 |
350 /* If *ROWS or *COLS are too small a size for FRAME, set them to the | |
351 minimum allowable size. */ | |
20349 | 352 extern void check_frame_size P_ ((struct frame *frame, int *rows, int *cols)); |