Mercurial > emacs
annotate src/frame.h @ 1688:c4da55e6cfd3
* make-dist: Don't bother creating an arch-lib directory; that's
only for installation now.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Sat, 12 Dec 1992 15:43:12 +0000 |
parents | fd573317f468 |
children | 26054080a152 |
rev | line source |
---|---|
765 | 1 /* Define frame-object for GNU Emacs. |
732 | 2 Copyright (C) 1988, 1992 Free Software Foundation, Inc. |
261 | 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) |
261 | 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 | |
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
19 | |
20 | |
765 | 21 /* The structure representing a frame. |
732 | 22 |
765 | 23 We declare this even if MULTI_FRAME is not defined, because when |
24 we lack multi-frame support, we use one instance of this structure | |
25 to represent the one frame we support. This is cleaner than | |
732 | 26 having miscellaneous random variables scattered about. */ |
261 | 27 |
28 enum output_method | |
29 { output_termcap, output_x_window }; | |
30 | |
765 | 31 struct frame |
261 | 32 { |
33 int size; | |
34 struct Lisp_Vector *next; | |
35 | |
765 | 36 /* glyphs as they appear on the frame */ |
37 struct frame_glyphs *current_glyphs; | |
261 | 38 |
765 | 39 /* glyphs we'd like to appear on the frame */ |
40 struct frame_glyphs *desired_glyphs; | |
261 | 41 |
732 | 42 /* See do_line_insertion_deletion_costs for info on these arrays. */ |
765 | 43 /* Cost of inserting 1 line on this frame */ |
261 | 44 int *insert_line_cost; |
765 | 45 /* Cost of deleting 1 line on this frame */ |
261 | 46 int *delete_line_cost; |
765 | 47 /* Cost of inserting n lines on this frame */ |
261 | 48 int *insert_n_lines_cost; |
765 | 49 /* Cost of deleting n lines on this frame */ |
261 | 50 int *delete_n_lines_cost; |
51 | |
52 /* glyphs for the mode line */ | |
765 | 53 struct frame_glyphs *temp_glyphs; |
261 | 54 |
765 | 55 /* Intended cursor position of this frame. |
261 | 56 Measured in characters, counting from upper left corner |
765 | 57 within the frame. */ |
261 | 58 int cursor_x; |
59 int cursor_y; | |
60 | |
765 | 61 /* Actual cursor position of this frame, and the character under it. |
62 (Not used for terminal frames.) */ | |
261 | 63 int phys_cursor_x; |
64 int phys_cursor_y; | |
485 | 65 /* This is handy for undrawing the cursor, because current_glyphs is |
66 not always accurate when in do_scrolling. */ | |
67 GLYPH phys_cursor_glyph; | |
261 | 68 |
765 | 69 /* Size of this frame, in units of characters. */ |
261 | 70 int height; |
71 int width; | |
72 | |
73 /* New height and width for pending size change. 0 if no change pending. */ | |
74 int new_height, new_width; | |
75 | |
998 | 76 /* Name of this frame: a Lisp string. See also `explicit_name'. */ |
261 | 77 Lisp_Object name; |
78 | |
765 | 79 /* The frame which should recieve keystrokes that occur in this |
80 frame. This is usually the frame itself, but if the frame is | |
81 minibufferless, this points to the minibuffer frame when it is | |
357 | 82 active. */ |
765 | 83 Lisp_Object focus_frame; |
357 | 84 |
765 | 85 /* This frame's root window. Every frame has one. |
86 If the frame has only a minibuffer window, this is it. | |
87 Otherwise, if the frame has a minibuffer window, this is its sibling. */ | |
261 | 88 Lisp_Object root_window; |
89 | |
765 | 90 /* This frame's selected window. |
91 Each frame has its own window hierarchy | |
92 and one of the windows in it is selected within the frame. | |
93 The selected window of the selected frame is Emacs's selected window. */ | |
261 | 94 Lisp_Object selected_window; |
95 | |
765 | 96 /* This frame's minibuffer window. |
97 Most frames have their own minibuffer windows, | |
98 but only the selected frame's minibuffer window | |
261 | 99 can actually appear to exist. */ |
100 Lisp_Object minibuffer_window; | |
101 | |
765 | 102 /* Parameter alist of this frame. |
103 These are the parameters specified when creating the frame | |
104 or modified with modify-frame-parameters. */ | |
261 | 105 Lisp_Object param_alist; |
106 | |
765 | 107 /* The output method says how the contents of this frame |
261 | 108 are displayed. It could be using termcap, or using an X window. */ |
109 enum output_method output_method; | |
110 | |
111 /* A structure of auxiliary data used for displaying the contents. | |
765 | 112 struct x_display is used for X window frames; |
261 | 113 it is defined in xterm.h. */ |
114 union display { struct x_display *x; int nothing; } display; | |
115 | |
765 | 116 /* Nonzero if last attempt at redisplay on this frame was preempted. */ |
261 | 117 char display_preempted; |
118 | |
1653
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
119 /* visible is nonzero if the frame is currently displayed; we check |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
120 it to see if we should bother updating the frame's contents. |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
121 |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
122 iconified is nonzero if the frame is currently iconified. |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
123 |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
124 Asynchronous input handlers should NOT change these directly; |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
125 instead, they should change async_visible or async_iconified, and |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
126 let the FRAME_SAMPLE_VISIBILITY macro set visible and iconified |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
127 at the next redisplay. |
261 | 128 |
1653
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
129 These should probably be considered read-only by everyone except |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
130 FRAME_SAMPLE_VISIBILITY. |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
131 |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
132 This two are mutually exclusive. They might both be zero, if the |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
133 frame has been made invisible without an icon. */ |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
134 char visible, iconified; |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
135 |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
136 /* Asynchronous input handlers change these, and |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
137 FRAME_SAMPLE_VISIBILITY copies them into visible and iconified. |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
138 See FRAME_SAMPLE_VISIBILITY, below. */ |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
139 #ifdef __STDC__ |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
140 volatile |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
141 #endif |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
142 char async_visible, async_iconified; |
261 | 143 |
765 | 144 /* Nonzero if this frame should be redrawn. */ |
1653
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
145 #ifdef __STDC__ |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
146 volatile |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
147 #endif |
261 | 148 char garbaged; |
149 | |
765 | 150 /* True if frame actually has a minibuffer window on it. |
151 0 if using a minibuffer window that isn't on this frame. */ | |
261 | 152 char has_minibuffer; |
153 | |
765 | 154 /* 0 means, if this frame has just one window, |
261 | 155 show no modeline for that window. */ |
156 char wants_modeline; | |
157 | |
765 | 158 /* Non-0 means raise this frame to the top of the heap when selected. */ |
261 | 159 char auto_raise; |
160 | |
765 | 161 /* Non-0 means lower this frame to the bottom of the stack when left. */ |
261 | 162 char auto_lower; |
163 | |
765 | 164 /* True if frame's root window can't be split. */ |
261 | 165 char no_split; |
166 | |
998 | 167 /* If this is set, then Emacs won't change the frame name to indicate |
168 the current buffer, etcetera. If the user explicitly sets the frame | |
169 name, this gets set. If the user sets the name to Qnil, this is | |
170 cleared. */ | |
171 char explicit_name; | |
172 | |
765 | 173 /* Storage for messages to this frame. */ |
261 | 174 char *message_buf; |
175 | |
176 /* Nonnegative if current redisplay should not do scroll computation | |
177 for lines beyond a certain vpos. This is the vpos. */ | |
178 int scroll_bottom_vpos; | |
179 }; | |
180 | |
765 | 181 #ifdef MULTI_FRAME |
732 | 182 |
765 | 183 typedef struct frame *FRAME_PTR; |
261 | 184 |
765 | 185 #define XFRAME(p) ((struct frame *) XPNTR (p)) |
186 #define XSETFRAME(p, v) ((struct frame *) XSETPNTR (p, v)) | |
261 | 187 |
765 | 188 #define WINDOW_FRAME(w) (w)->frame |
261 | 189 |
765 | 190 #define FRAMEP(f) (XTYPE(f) == Lisp_Frame) |
191 #define FRAME_LIVE_P(f) ((f)->display.nothing != 0) | |
979 | 192 #define FRAME_TERMCAP_P(f) ((f)->output_method == output_termcap) |
193 #define FRAME_X_P(f) ((f)->output_method == output_x_window) | |
765 | 194 #define FRAME_MINIBUF_ONLY_P(f) \ |
195 EQ (FRAME_ROOT_WINDOW (f), FRAME_MINIBUF_WINDOW (f)) | |
979 | 196 #define FRAME_HAS_MINIBUF_P(f) ((f)->has_minibuffer) |
765 | 197 #define FRAME_CURRENT_GLYPHS(f) (f)->current_glyphs |
198 #define FRAME_DESIRED_GLYPHS(f) (f)->desired_glyphs | |
199 #define FRAME_TEMP_GLYPHS(f) (f)->temp_glyphs | |
200 #define FRAME_HEIGHT(f) (f)->height | |
201 #define FRAME_WIDTH(f) (f)->width | |
202 #define FRAME_NEW_HEIGHT(f) (f)->new_height | |
203 #define FRAME_NEW_WIDTH(f) (f)->new_width | |
204 #define FRAME_CURSOR_X(f) (f)->cursor_x | |
205 #define FRAME_CURSOR_Y(f) (f)->cursor_y | |
206 #define FRAME_VISIBLE_P(f) (f)->visible | |
207 #define SET_FRAME_GARBAGED(f) (frame_garbaged = 1, f->garbaged = 1) | |
208 #define FRAME_GARBAGED_P(f) (f)->garbaged | |
209 #define FRAME_NO_SPLIT_P(f) (f)->no_split | |
210 #define FRAME_WANTS_MODELINE_P(f) (f)->wants_modeline | |
211 #define FRAME_ICONIFIED_P(f) (f)->iconified | |
212 #define FRAME_MINIBUF_WINDOW(f) (f)->minibuffer_window | |
213 #define FRAME_ROOT_WINDOW(f) (f)->root_window | |
214 #define FRAME_SELECTED_WINDOW(f) (f)->selected_window | |
215 #define SET_GLYPHS_FRAME(glyphs,frame) ((glyphs)->frame = (frame)) | |
216 #define FRAME_INSERT_COST(f) (f)->insert_line_cost | |
217 #define FRAME_DELETE_COST(f) (f)->delete_line_cost | |
218 #define FRAME_INSERTN_COST(f) (f)->insert_n_lines_cost | |
219 #define FRAME_DELETEN_COST(f) (f)->delete_n_lines_cost | |
220 #define FRAME_MESSAGE_BUF(f) (f)->message_buf | |
221 #define FRAME_SCROLL_BOTTOM_VPOS(f) (f)->scroll_bottom_vpos | |
222 #define FRAME_FOCUS_FRAME(f) (f)->focus_frame | |
261 | 223 |
1653
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
224 /* Emacs's redisplay code could become confused if a frame's |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
225 visibility changes at arbitrary times. For example, if a frame is |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
226 visible while the desired glyphs are being built, but becomes |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
227 invisible before they are updated, then some rows of the |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
228 desired_glyphs will be left marked as enabled after redisplay is |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
229 complete, which should never happen. The next time the frame |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
230 becomes visible, redisplay will probably barf. |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
231 |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
232 Currently, there are no similar situations involving iconified, but |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
233 the principle is the same. |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
234 |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
235 So instead of having asynchronous input handlers directly set and |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
236 clear the frame's visibility and iconification flags, they just set |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
237 the async_visible and async_iconified flags; the redisplay code |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
238 calls the FRAME_SAMPLE_VISIBILITY macro before doing any redisplay, |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
239 which sets visible and iconified from their asynchronous |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
240 counterparts. */ |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
241 #define FRAME_SAMPLE_VISIBILITY(f) \ |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
242 ((f)->visible = (f)->async_visible, \ |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
243 (f)->iconified = (f)->async_iconified) |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
244 |
765 | 245 #define CHECK_FRAME(x, i) \ |
485 | 246 { \ |
765 | 247 if (! FRAMEP (x)) \ |
248 x = wrong_type_argument (Qframep, (x)); \ | |
485 | 249 } |
250 | |
765 | 251 #define CHECK_LIVE_FRAME(x, i) \ |
485 | 252 { \ |
765 | 253 if (! FRAMEP (x) \ |
254 || ! FRAME_LIVE_P (XFRAME (x))) \ | |
255 x = wrong_type_argument (Qlive_frame_p, (x)); \ | |
485 | 256 } |
257 | |
765 | 258 /* FOR_EACH_FRAME (LIST_VAR, FRAME_VAR) followed by a statement is a |
259 `for' loop which iterates over the elements of Vframe_list. The | |
260 loop will set FRAME_VAR, a FRAME_PTR, to each frame in | |
261 Vframe_list in succession and execute the statement. LIST_VAR | |
732 | 262 should be a Lisp_Object; it is used to iterate through the |
765 | 263 Vframe_list. |
732 | 264 |
765 | 265 If MULTI_FRAME isn't defined, then this loop expands to something which |
732 | 266 executes the statement once. */ |
765 | 267 #define FOR_EACH_FRAME(list_var, frame_var) \ |
268 for ((list_var) = Vframe_list; \ | |
732 | 269 (CONSP (list_var) \ |
765 | 270 && (frame_var = XFRAME (XCONS (list_var)->car), 1)); \ |
732 | 271 list_var = XCONS (list_var)->cdr) |
272 | |
273 | |
765 | 274 extern Lisp_Object Qframep, Qlive_frame_p; |
261 | 275 |
765 | 276 extern struct frame *selected_frame; |
277 extern struct frame *last_nonminibuf_frame; | |
261 | 278 |
765 | 279 extern struct frame *make_terminal_frame (); |
280 extern struct frame *make_frame (); | |
281 extern struct frame *make_minibuffer_frame (); | |
282 extern struct frame *make_frame_without_minibuffer (); | |
261 | 283 |
765 | 284 /* Nonzero means FRAME_MESSAGE_BUF (selected_frame) is being used by |
732 | 285 print. */ |
286 extern int message_buf_print; | |
287 | |
765 | 288 extern Lisp_Object Vframe_list; |
289 extern Lisp_Object Vdefault_frame_alist; | |
261 | 290 |
765 | 291 extern Lisp_Object Vterminal_frame; |
261 | 292 |
765 | 293 #else /* not MULTI_FRAME */ |
261 | 294 |
765 | 295 /* These definitions are used in a single-frame version of Emacs. */ |
261 | 296 |
765 | 297 #define FRAME_PTR int |
261 | 298 |
984 | 299 /* A frame we use to store all the data concerning the screen when we |
300 don't have multiple frames. Remember, if you store any data in it | |
301 which needs to be protected from GC, you should staticpro that | |
302 element explicitly. */ | |
765 | 303 extern struct frame the_only_frame; |
732 | 304 |
765 | 305 extern int selected_frame; |
306 extern int last_nonminibuf_frame; | |
732 | 307 |
765 | 308 /* Nonzero means FRAME_MESSAGE_BUF (selected_frame) is being used by |
732 | 309 print. */ |
310 extern int message_buf_print; | |
261 | 311 |
765 | 312 #define XFRAME(f) selected_frame |
313 #define WINDOW_FRAME(w) selected_frame | |
261 | 314 |
765 | 315 #define FRAMEP(f) (XTYPE(f) == Lisp_Frame) |
316 #define FRAME_LIVE_P(f) 1 | |
979 | 317 #define FRAME_TERMCAP_P(f) 1 |
318 #define FRAME_X_P(f) 0 | |
765 | 319 #define FRAME_MINIBUF_ONLY_P(f) 0 |
979 | 320 #define FRAME_HAS_MINIBUF_P(f) 1 |
984 | 321 #define FRAME_CURRENT_GLYPHS(f) (the_only_frame.current_glyphs) |
322 #define FRAME_DESIRED_GLYPHS(f) (the_only_frame.desired_glyphs) | |
323 #define FRAME_TEMP_GLYPHS(f) (the_only_frame.temp_glyphs) | |
324 #define FRAME_HEIGHT(f) (the_only_frame.height) | |
325 #define FRAME_WIDTH(f) (the_only_frame.width) | |
326 #define FRAME_NEW_HEIGHT(f) (the_only_frame.new_height) | |
327 #define FRAME_NEW_WIDTH(f) (the_only_frame.new_width) | |
328 #define FRAME_CURSOR_X(f) (the_only_frame.cursor_x) | |
329 #define FRAME_CURSOR_Y(f) (the_only_frame.cursor_y) | |
765 | 330 #define FRAME_VISIBLE_P(f) 1 |
331 #define SET_FRAME_GARBAGED(f) (frame_garbaged = 1) | |
984 | 332 #define FRAME_GARBAGED_P(f) (frame_garbaged) |
765 | 333 #define FRAME_NO_SPLIT_P(f) 0 |
334 #define FRAME_WANTS_MODELINE_P(f) 1 | |
335 #define FRAME_ICONIFIED_P(f) 0 | |
998 | 336 #define FRAME_MINIBUF_WINDOW(f) (the_only_frame.root_window) |
337 #define FRAME_ROOT_WINDOW(f) (the_only_frame.root_window) | |
984 | 338 #define FRAME_SELECTED_WINDOW(f) (selected_window) |
339 #define SET_GLYPHS_FRAME(glyphs,frame) do ; while (0) | |
340 #define FRAME_INSERT_COST(frame) (the_only_frame.insert_line_cost) | |
341 #define FRAME_DELETE_COST(frame) (the_only_frame.delete_line_cost) | |
342 #define FRAME_INSERTN_COST(frame) (the_only_frame.insert_n_lines_cost) | |
343 #define FRAME_DELETEN_COST(frame) (the_only_frame.delete_n_lines_cost) | |
344 #define FRAME_MESSAGE_BUF(f) (the_only_frame.message_buf) | |
345 #define FRAME_SCROLL_BOTTOM_VPOS(f) (the_only_frame.scroll_bottom_vpos) | |
346 #define FRAME_FOCUS_FRAME(f) (0) | |
357 | 347 |
1653
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
348 /* See comments in definition above. */ |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
349 #define FRAME_SAMPLE_VISIBILITY(f) (0) |
fd573317f468
* frame.h (struct frame): New fields called async_visible and
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
350 |
979 | 351 #define CHECK_FRAME(x, i) do; while (0) |
352 #define CHECK_LIVE_FRAME(x, y) do; while (0) | |
261 | 353 |
765 | 354 /* FOR_EACH_FRAME (LIST_VAR, FRAME_VAR) followed by a statement is a |
355 `for' loop which iterates over the elements of Vframe_list. The | |
356 loop will set FRAME_VAR, a FRAME_PTR, to each frame in | |
357 Vframe_list in succession and execute the statement. LIST_VAR | |
732 | 358 should be a Lisp_Object; it is used to iterate through the |
765 | 359 Vframe_list. |
732 | 360 |
765 | 361 If MULTI_FRAME _is_ defined, then this loop expands to a real |
362 `for' loop which traverses Vframe_list using LIST_VAR and | |
363 FRAME_VAR. */ | |
364 #define FOR_EACH_FRAME(list_var, frame_var) \ | |
365 for (frame_var = (FRAME_PTR) 1; frame_var; frame_var = (FRAME_PTR) 0) | |
261 | 366 |
765 | 367 #endif /* not MULTI_FRAME */ |