765
|
1 /* Define frame-object for GNU Emacs.
|
64770
|
2 Copyright (C) 1993, 1994, 1999, 2000, 2001, 2002, 2003, 2004,
|
79759
|
3 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
|
261
|
4
|
|
5 This file is part of GNU Emacs.
|
|
6
|
94994
|
7 GNU Emacs is free software: you can redistribute it and/or modify
|
261
|
8 it under the terms of the GNU General Public License as published by
|
94994
|
9 the Free Software Foundation, either version 3 of the License, or
|
|
10 (at your option) any later version.
|
261
|
11
|
|
12 GNU Emacs is distributed in the hope that it will be useful,
|
|
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
15 GNU General Public License for more details.
|
|
16
|
|
17 You should have received a copy of the GNU General Public License
|
94994
|
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
|
261
|
19
|
35802
|
20 /* Don't multiply include: dispextern.h includes macterm.h which
|
|
21 includes frame.h some emacs source includes both dispextern.h and
|
|
22 frame.h */
|
|
23
|
35803
|
24 #ifndef EMACS_FRAME_H
|
|
25 #define EMACS_FRAME_H
|
35799
|
26
|
1776
|
27
|
|
28 /* Miscellanea. */
|
261
|
29
|
53229
33c3c7c16e13
lib-src/emacsclient.c: Implemented --here option (open a new Emacs tty). Needs more work.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
30 /* Nonzero means there is at least one garbaged frame. */
|
1776
|
31 extern int frame_garbaged;
|
|
32
|
|
33 /* Nonzero means FRAME_MESSAGE_BUF (selected_frame) is being used by
|
|
34 print. */
|
25029
|
35
|
1776
|
36 extern int message_buf_print;
|
|
37
|
78985
|
38 /* Nonzero means window system changes focus when moving the
|
|
39 mouse. */
|
|
40
|
|
41 extern int focus_follows_mouse;
|
|
42
|
1776
|
43
|
16051
|
44 /* The structure representing a frame. */
|
261
|
45
|
|
46 enum output_method
|
25029
|
47 {
|
83008
040dd41ed7d0
Hookified termcap devices, added bootstrap display device, plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
48 output_initial,
|
25029
|
49 output_termcap,
|
|
50 output_x_window,
|
|
51 output_msdos_raw,
|
25524
|
52 output_w32,
|
|
53 output_mac
|
25029
|
54 };
|
261
|
55
|
16270
|
56 enum vertical_scroll_bar_type
|
25029
|
57 {
|
|
58 vertical_scroll_bar_none,
|
|
59 vertical_scroll_bar_left,
|
|
60 vertical_scroll_bar_right
|
|
61 };
|
16270
|
62
|
47133
|
63 enum text_cursor_kinds
|
|
64 {
|
|
65 DEFAULT_CURSOR = -2,
|
|
66 NO_CURSOR = -1,
|
|
67 FILLED_BOX_CURSOR,
|
|
68 HOLLOW_BOX_CURSOR,
|
|
69 BAR_CURSOR,
|
|
70 HBAR_CURSOR
|
|
71 };
|
|
72
|
93325
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
73 enum fullscreen_type
|
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
74 {
|
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
75 /* Values used as a bit mask, BOTH == WIDTH | HEIGHT. */
|
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
76 FULLSCREEN_NONE = 0,
|
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
77 FULLSCREEN_WIDTH = 1,
|
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
78 FULLSCREEN_HEIGHT = 2,
|
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
79 FULLSCREEN_BOTH = 3,
|
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
80 FULLSCREEN_WAIT = 4
|
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
81 };
|
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
82
|
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
83
|
82989
f3845715a5f6
Separate frame-local, tty-dependent parameters from tty-local parameters.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
84 #define FRAME_FOREGROUND_PIXEL(f) ((f)->foreground_pixel)
|
f3845715a5f6
Separate frame-local, tty-dependent parameters from tty-local parameters.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
85 #define FRAME_BACKGROUND_PIXEL(f) ((f)->background_pixel)
|
26781
|
86
|
83431
76396de7f50a
Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
87 struct terminal;
|
26729
|
88
|
90411
|
89 struct font_driver_list;
|
|
90
|
765
|
91 struct frame
|
261
|
92 {
|
85022
|
93 EMACS_UINT size;
|
261
|
94 struct Lisp_Vector *next;
|
|
95
|
10208
|
96 /* All Lisp_Object components must come first.
|
|
97 That ensures they are all aligned normally. */
|
261
|
98
|
14215
|
99 /* Name of this frame: a Lisp string. It is used for looking up resources,
|
|
100 as well as for the title in some cases. */
|
261
|
101 Lisp_Object name;
|
|
102
|
12274
|
103 /* The name to use for the icon, the last time
|
|
104 it was refreshed. nil means not explicitly specified. */
|
|
105 Lisp_Object icon_name;
|
|
106
|
14215
|
107 /* This is the frame title specified explicitly, if any.
|
|
108 Usually it is nil. */
|
|
109 Lisp_Object title;
|
|
110
|
3591
|
111 /* The frame which should receive keystrokes that occur in this
|
1710
|
112 frame, or nil if they should go to the frame itself. This is
|
|
113 usually nil, but if the frame is minibufferless, we can use this
|
|
114 to redirect keystrokes to a surrogate minibuffer frame when
|
|
115 needed.
|
|
116
|
|
117 Note that a value of nil is different than having the field point
|
|
118 to the frame itself. Whenever the Fselect_frame function is used
|
|
119 to shift from one frame to the other, any redirections to the
|
|
120 original frame are shifted to the newly selected frame; if
|
|
121 focus_frame is nil, Fselect_frame will leave it alone. */
|
765
|
122 Lisp_Object focus_frame;
|
357
|
123
|
765
|
124 /* This frame's root window. Every frame has one.
|
|
125 If the frame has only a minibuffer window, this is it.
|
|
126 Otherwise, if the frame has a minibuffer window, this is its sibling. */
|
261
|
127 Lisp_Object root_window;
|
|
128
|
765
|
129 /* This frame's selected window.
|
|
130 Each frame has its own window hierarchy
|
|
131 and one of the windows in it is selected within the frame.
|
|
132 The selected window of the selected frame is Emacs's selected window. */
|
261
|
133 Lisp_Object selected_window;
|
|
134
|
765
|
135 /* This frame's minibuffer window.
|
|
136 Most frames have their own minibuffer windows,
|
|
137 but only the selected frame's minibuffer window
|
261
|
138 can actually appear to exist. */
|
|
139 Lisp_Object minibuffer_window;
|
|
140
|
765
|
141 /* Parameter alist of this frame.
|
|
142 These are the parameters specified when creating the frame
|
|
143 or modified with modify-frame-parameters. */
|
261
|
144 Lisp_Object param_alist;
|
|
145
|
49600
|
146 /* List of scroll bars on this frame.
|
1776
|
147 Actually, we don't specify exactly what is stored here at all; the
|
1994
|
148 scroll bar implementation code can use it to store anything it likes.
|
1776
|
149 This field is marked by the garbage collector. It is here
|
83342
9216636c02fc
Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
150 instead of in the `device' structure so that the garbage
|
1776
|
151 collector doesn't need to look inside the window-system-dependent
|
|
152 structure. */
|
1994
|
153 Lisp_Object scroll_bars;
|
|
154 Lisp_Object condemned_scroll_bars;
|
1776
|
155
|
15098
|
156 /* Vector describing the items to display in the menu bar.
|
|
157 Each item has four elements in this vector.
|
|
158 They are KEY, STRING, SUBMAP, and HPOS.
|
|
159 (HPOS is not used in when the X toolkit is in use.)
|
|
160 There are four additional elements of nil at the end, to terminate. */
|
2148
|
161 Lisp_Object menu_bar_items;
|
|
162
|
2396
|
163 /* Alist of elements (FACE-NAME . FACE-VECTOR-DATA). */
|
|
164 Lisp_Object face_alist;
|
|
165
|
10208
|
166 /* A vector that records the entire structure of this frame's menu bar.
|
|
167 For the format of the data, see extensive comments in xmenu.c.
|
|
168 Only the X toolkit version uses this. */
|
|
169 Lisp_Object menu_bar_vector;
|
|
170
|
|
171 /* Predicate for selecting buffers for other-buffer. */
|
|
172 Lisp_Object buffer_predicate;
|
|
173
|
17222
|
174 /* List of buffers viewed in this frame, for other-buffer. */
|
|
175 Lisp_Object buffer_list;
|
|
176
|
83415
d2c799f58129
Implement full support for frame-local `next-buffer' and `previous-buffer'.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
177 /* List of buffers that were viewed, then buried in this frame. The
|
d2c799f58129
Implement full support for frame-local `next-buffer' and `previous-buffer'.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
178 most recently buried buffer is first. For last-buffer. */
|
d2c799f58129
Implement full support for frame-local `next-buffer' and `previous-buffer'.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
179 Lisp_Object buried_buffer_list;
|
85032
|
180
|
25029
|
181 /* A dummy window used to display menu bars under X when no X
|
|
182 toolkit support is available. */
|
|
183 Lisp_Object menu_bar_window;
|
|
184
|
25544
|
185 /* A window used to display the tool-bar of a frame. */
|
|
186 Lisp_Object tool_bar_window;
|
25029
|
187
|
25544
|
188 /* Desired and current tool-bar items. */
|
33759
|
189 Lisp_Object tool_bar_items;
|
25029
|
190
|
25544
|
191 /* Desired and current contents displayed in tool_bar_window. */
|
|
192 Lisp_Object desired_tool_bar_string, current_tool_bar_string;
|
25029
|
193
|
85032
|
194 /* Beyond here, there should be no more Lisp_Object components. */
|
10208
|
195
|
25029
|
196 /* Cache of realized faces. */
|
|
197 struct face_cache *face_cache;
|
10208
|
198
|
85026
09975f2063bd
(struct frame): Don't try to GC-mark menu_bar_items_used.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
199 /* Number of elements in `menu_bar_vector' that have meaningful data. */
|
09975f2063bd
(struct frame): Don't try to GC-mark menu_bar_items_used.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
200 EMACS_INT menu_bar_items_used;
|
09975f2063bd
(struct frame): Don't try to GC-mark menu_bar_items_used.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
201
|
25029
|
202 /* A buffer to hold the frame's name. We can't use the Lisp
|
|
203 string's pointer (`name', above) because it might get relocated. */
|
11493
|
204 char *namebuf;
|
|
205
|
25029
|
206 /* Glyph pool and matrix. */
|
|
207 struct glyph_pool *current_pool;
|
|
208 struct glyph_pool *desired_pool;
|
|
209 struct glyph_matrix *desired_matrix;
|
|
210 struct glyph_matrix *current_matrix;
|
10208
|
211
|
25029
|
212 /* 1 means that glyphs on this frame have been initialized so it can
|
|
213 be used for output. */
|
|
214 unsigned glyphs_initialized_p : 1;
|
|
215
|
95158
|
216 /* frame opacity
|
|
217 alpha[0]: alpha transparency of the active frame
|
|
218 alpha[1]: alpha transparency of inactive frames */
|
|
219 double alpha[2];
|
|
220
|
85682
|
221 /* Set to non-zero in change_frame_size when size of frame changed
|
|
222 Clear the frame in clear_garbaged_frames if set. */
|
|
223 unsigned resized_p : 1;
|
|
224
|
|
225 /* Set to non-zero in when we want for force a flush_display in
|
|
226 update_frame, usually after resizing the frame. */
|
|
227 unsigned force_flush_display_p : 1;
|
|
228
|
|
229 /* Set to non-zero if the default face for the frame has been
|
|
230 realized. Reset to zero whenever the default face changes.
|
|
231 Used to see the difference between a font change and face change. */
|
|
232 unsigned default_face_done_p : 1;
|
|
233
|
|
234 /* Set to non-zero if this frame has already been hscrolled during
|
|
235 current redisplay. */
|
|
236 unsigned already_hscrolled_p : 1;
|
|
237
|
|
238 /* Set to non-zero when current redisplay has updated frame. */
|
|
239 unsigned updated_p : 1;
|
|
240
|
|
241 /* Set to non-zero to minimize tool-bar height even when
|
|
242 auto-resize-tool-bar is set to grow-only. */
|
|
243 unsigned minimize_tool_bar_window_p : 1;
|
|
244
|
81406
217675ce2532
(struct frame) [MAC_OS]: New member external_tool_bar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
diff
changeset
|
245 #if defined (USE_GTK) || defined (MAC_OS)
|
49322
|
246 /* Nonzero means using a tool bar that comes from the toolkit. */
|
|
247 int external_tool_bar;
|
|
248 #endif
|
|
249
|
25544
|
250 /* Margin at the top of the frame. Used to display the tool-bar. */
|
|
251 int tool_bar_lines;
|
25029
|
252
|
69241
|
253 int n_tool_bar_rows;
|
33759
|
254 int n_tool_bar_items;
|
49600
|
255
|
25029
|
256 /* A buffer for decode_mode_line. */
|
|
257 char *decode_mode_spec_buffer;
|
10208
|
258
|
|
259 /* See do_line_insertion_deletion_costs for info on these arrays. */
|
|
260 /* Cost of inserting 1 line on this frame */
|
|
261 int *insert_line_cost;
|
|
262 /* Cost of deleting 1 line on this frame */
|
|
263 int *delete_line_cost;
|
|
264 /* Cost of inserting n lines on this frame */
|
|
265 int *insert_n_lines_cost;
|
|
266 /* Cost of deleting n lines on this frame */
|
|
267 int *delete_n_lines_cost;
|
|
268
|
51195
|
269 /* Size of this frame, excluding fringes, scroll bars etc.,
|
|
270 in units of canonical characters. */
|
|
271 EMACS_INT text_lines, text_cols;
|
|
272
|
|
273 /* Total size of this frame (i.e. its native window), in units of
|
|
274 canonical characters. */
|
|
275 EMACS_INT total_lines, total_cols;
|
|
276
|
|
277 /* New text height and width for pending size change.
|
|
278 0 if no change pending. */
|
|
279 int new_text_lines, new_text_cols;
|
|
280
|
|
281 /* Pixel position of the frame window (x and y offsets in root window). */
|
|
282 int left_pos, top_pos;
|
|
283
|
|
284 /* Size of the frame window in pixels. */
|
|
285 int pixel_height, pixel_width;
|
10208
|
286
|
90411
|
287 /* Dots per inch of the screen the frame is on. */
|
|
288 double resx, resy;
|
|
289
|
51195
|
290 /* These many pixels are the difference between the outer window (i.e. the
|
|
291 left and top of the window manager decoration) and FRAME_X_WINDOW. */
|
|
292 int x_pixels_diff, y_pixels_diff;
|
|
293
|
|
294 /* This is the gravity value for the specified window position. */
|
|
295 int win_gravity;
|
|
296
|
|
297 /* The geometry flags for this window. */
|
|
298 int size_hint_flags;
|
|
299
|
|
300 /* Border width of the frame window as known by the (X) window system. */
|
|
301 int border_width;
|
|
302
|
|
303 /* Width of the internal border. This is a line of background color
|
|
304 just inside the window's border. When the frame is selected,
|
|
305 a highlighting is displayed inside the internal border. */
|
|
306 int internal_border_width;
|
|
307
|
|
308 /* Canonical X unit. Width of default font, in pixels. */
|
|
309 int column_width;
|
|
310
|
59203
|
311 /* Widht of space glyph of default font, in pixels. */
|
|
312 int space_width;
|
|
313
|
51195
|
314 /* Canonical Y unit. Height of a line, in pixels. */
|
|
315 int line_height;
|
10208
|
316
|
83004
7900111db01c
Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
317 /* The output method says how the contents of this frame are
|
7900111db01c
Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
318 displayed. It could be using termcap, or using an X window.
|
83431
76396de7f50a
Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
319 This must be the same as the terminal->type. */
|
261
|
320 enum output_method output_method;
|
|
321
|
83431
76396de7f50a
Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
322 /* The terminal device that this frame uses. If this is NULL, then
|
83342
9216636c02fc
Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
323 the frame has been deleted. */
|
83431
76396de7f50a
Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
324 struct terminal *terminal;
|
85032
|
325
|
83342
9216636c02fc
Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
326 /* Device-dependent, frame-local auxiliary data used for displaying
|
83004
7900111db01c
Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
327 the contents. When the frame is deleted, this data is deleted as
|
7900111db01c
Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
328 well. */
|
25029
|
329 union output_data
|
|
330 {
|
83004
7900111db01c
Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
331 struct tty_output *tty; /* termchar.h */
|
7900111db01c
Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
332 struct x_output *x; /* xterm.h */
|
7900111db01c
Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
333 struct w32_output *w32; /* w32term.h */
|
7900111db01c
Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
334 struct mac_output *mac; /* macterm.h */
|
31900
|
335 EMACS_INT nothing;
|
25029
|
336 }
|
|
337 output_data;
|
261
|
338
|
90411
|
339 /* List of font-drivers available on the frame. */
|
|
340 struct font_driver_list *font_driver_list;
|
91113
|
341 /* List of data specific to font-driver and frame, but common to
|
|
342 faces. */
|
|
343 struct font_data_list *font_data_list;
|
90411
|
344
|
51195
|
345 /* Total width of fringes reserved for drawing truncation bitmaps,
|
|
346 continuation bitmaps and alike. The width is in canonical char
|
|
347 units of the frame. This must currently be the case because window
|
|
348 sizes aren't pixel values. If it weren't the case, we wouldn't be
|
|
349 able to split windows horizontally nicely. */
|
|
350 int fringe_cols;
|
|
351
|
|
352 /* The extra width (in pixels) currently allotted for fringes. */
|
|
353 int left_fringe_width, right_fringe_width;
|
|
354
|
|
355 /* See FULLSCREEN_ enum below */
|
93325
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
356 enum fullscreen_type want_fullscreen;
|
51195
|
357
|
2148
|
358 /* Number of lines of menu bar. */
|
|
359 int menu_bar_lines;
|
|
360
|
49322
|
361 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) || defined (MAC_OS) \
|
|
362 || defined (USE_GTK)
|
5657
|
363 /* Nonzero means using a menu bar that comes from the X toolkit. */
|
93325
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
364 unsigned int external_menu_bar : 1;
|
5657
|
365 #endif
|
|
366
|
765
|
367 /* Nonzero if last attempt at redisplay on this frame was preempted. */
|
93325
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
368 unsigned char display_preempted : 1;
|
261
|
369
|
1653
|
370 /* visible is nonzero if the frame is currently displayed; we check
|
|
371 it to see if we should bother updating the frame's contents.
|
1710
|
372 DON'T SET IT DIRECTLY; instead, use FRAME_SET_VISIBLE.
|
1653
|
373
|
1776
|
374 Note that, since invisible frames aren't updated, whenever a
|
|
375 frame becomes visible again, it must be marked as garbaged. The
|
|
376 FRAME_SAMPLE_VISIBILITY macro takes care of this.
|
|
377
|
53232
22aaf1e5fbe6
Full support for multiple terminal I/O (with some rough edges).
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
378 On ttys and on Windows NT/9X, to avoid wasting effort updating
|
22aaf1e5fbe6
Full support for multiple terminal I/O (with some rough edges).
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
379 visible frames that are actually completely obscured by other
|
22aaf1e5fbe6
Full support for multiple terminal I/O (with some rough edges).
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
380 windows on the display, we bend the meaning of visible slightly:
|
22aaf1e5fbe6
Full support for multiple terminal I/O (with some rough edges).
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
381 if greater than 1, then the frame is obscured - we still consider
|
22aaf1e5fbe6
Full support for multiple terminal I/O (with some rough edges).
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
382 it to be "visible" as seen from lisp, but we don't bother
|
22aaf1e5fbe6
Full support for multiple terminal I/O (with some rough edges).
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
383 updating it. We must take care to garbage the frame when it
|
22aaf1e5fbe6
Full support for multiple terminal I/O (with some rough edges).
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
384 ceaces to be obscured though.
|
19696
|
385
|
1653
|
386 iconified is nonzero if the frame is currently iconified.
|
|
387
|
|
388 Asynchronous input handlers should NOT change these directly;
|
|
389 instead, they should change async_visible or async_iconified, and
|
|
390 let the FRAME_SAMPLE_VISIBILITY macro set visible and iconified
|
|
391 at the next redisplay.
|
261
|
392
|
1653
|
393 These should probably be considered read-only by everyone except
|
|
394 FRAME_SAMPLE_VISIBILITY.
|
|
395
|
6183
|
396 These two are mutually exclusive. They might both be zero, if the
|
1653
|
397 frame has been made invisible without an icon. */
|
93667
f8942531c106
(struct frame): Give one more bit to `visible' since we use
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
398 unsigned char visible : 2;
|
93325
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
399 unsigned char iconified : 1;
|
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
400
|
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
401 /* Let's not use bitfields for volatile variables. */
|
1653
|
402
|
|
403 /* Asynchronous input handlers change these, and
|
|
404 FRAME_SAMPLE_VISIBILITY copies them into visible and iconified.
|
|
405 See FRAME_SAMPLE_VISIBILITY, below. */
|
29439
|
406 volatile char async_visible, async_iconified;
|
261
|
407
|
765
|
408 /* Nonzero if this frame should be redrawn. */
|
29439
|
409 volatile char garbaged;
|
261
|
410
|
765
|
411 /* True if frame actually has a minibuffer window on it.
|
|
412 0 if using a minibuffer window that isn't on this frame. */
|
93325
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
413 unsigned char has_minibuffer : 1;
|
49600
|
414
|
765
|
415 /* 0 means, if this frame has just one window,
|
261
|
416 show no modeline for that window. */
|
93325
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
417 unsigned char wants_modeline : 1;
|
261
|
418
|
1710
|
419 /* Non-zero if the hardware device this frame is displaying on can
|
1994
|
420 support scroll bars. */
|
|
421 char can_have_scroll_bars;
|
1710
|
422
|
85682
|
423 /* Non-0 means raise this frame to the top of the heap when selected. */
|
93325
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
424 unsigned char auto_raise : 1;
|
85682
|
425
|
|
426 /* Non-0 means lower this frame to the bottom of the stack when left. */
|
93325
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
427 unsigned char auto_lower : 1;
|
85682
|
428
|
|
429 /* True if frame's root window can't be split. */
|
93325
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
430 unsigned char no_split : 1;
|
85682
|
431
|
|
432 /* If this is set, then Emacs won't change the frame name to indicate
|
|
433 the current buffer, etcetera. If the user explicitly sets the frame
|
|
434 name, this gets set. If the user sets the name to Qnil, this is
|
|
435 cleared. */
|
93325
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
436 unsigned char explicit_name : 1;
|
85682
|
437
|
|
438 /* Nonzero if size of some window on this frame has changed. */
|
93325
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
439 unsigned char window_sizes_changed : 1;
|
85682
|
440
|
|
441 /* Nonzero if the mouse has moved on this display device
|
|
442 since the last time we checked. */
|
93325
38e4e1858d46
(enum fullscreen_type): Give it a name. Move it before use.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
443 unsigned char mouse_moved :1;
|
85682
|
444
|
1994
|
445 /* If can_have_scroll_bars is non-zero, this is non-zero if we should
|
1710
|
446 actually display them on this frame. */
|
16270
|
447 enum vertical_scroll_bar_type vertical_scroll_bar_type;
|
1710
|
448
|
47133
|
449 /* What kind of text cursor should we draw in the future?
|
|
450 This should always be filled_box_cursor or bar_cursor. */
|
|
451 enum text_cursor_kinds desired_cursor;
|
|
452
|
|
453 /* Width of bar cursor (if we are using that). */
|
|
454 int cursor_width;
|
|
455
|
|
456 /* What kind of text cursor should we draw when the cursor blinks off?
|
|
457 This can be filled_box_cursor or bar_cursor or no_cursor. */
|
|
458 enum text_cursor_kinds blink_off_cursor;
|
|
459
|
|
460 /* Width of bar cursor (if we are using that) for blink-off state. */
|
|
461 int blink_off_cursor_width;
|
|
462
|
765
|
463 /* Storage for messages to this frame. */
|
261
|
464 char *message_buf;
|
|
465
|
|
466 /* Nonnegative if current redisplay should not do scroll computation
|
|
467 for lines beyond a certain vpos. This is the vpos. */
|
|
468 int scroll_bottom_vpos;
|
7094
b473ea5a3473
(struct frame): New fields menu_bar_vector and menu_bar_items_used.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
469
|
51195
|
470 /* Configured width of the scroll bar, in pixels and in characters.
|
|
471 config_scroll_bar_cols tracks config_scroll_bar_width if the
|
|
472 latter is positive; a zero value in config_scroll_bar_width means
|
|
473 to compute the actual width on the fly, using config_scroll_bar_cols
|
|
474 and the current font width. */
|
|
475 int config_scroll_bar_width;
|
|
476 int config_scroll_bar_cols;
|
|
477
|
|
478 /* The size of the extra width currently allotted for vertical
|
|
479 scroll bars in this frame, in pixels. */
|
|
480 int scroll_bar_actual_width;
|
10120
|
481
|
|
482 /* The baud rate that was used to calculate costs for this frame. */
|
|
483 int cost_calculation_baud_rate;
|
12543
|
484
|
25527
|
485 /* Exponent for gamma correction of colors. 1/(VIEWING_GAMMA *
|
|
486 SCREEN_GAMMA) where viewing_gamma is 0.4545 and SCREEN_GAMMA is a
|
|
487 frame parameter. 0 means don't do gamma correction. */
|
|
488 double gamma;
|
28691
|
489
|
|
490 /* Additional space to put between text lines on this frame. */
|
|
491 int extra_line_spacing;
|
40511
|
492
|
82989
f3845715a5f6
Separate frame-local, tty-dependent parameters from tty-local parameters.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
493 /* All display backends seem to need these two pixel values. */
|
f3845715a5f6
Separate frame-local, tty-dependent parameters from tty-local parameters.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
494 unsigned long background_pixel;
|
f3845715a5f6
Separate frame-local, tty-dependent parameters from tty-local parameters.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
495 unsigned long foreground_pixel;
|
261
|
496 };
|
|
497
|
16051
|
498 #ifdef MULTI_KBOARD
|
83431
76396de7f50a
Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
499 #define FRAME_KBOARD(f) ((f)->terminal->kboard)
|
11005
|
500 #else
|
|
501 #define FRAME_KBOARD(f) (&the_only_kboard)
|
|
502 #endif
|
|
503
|
92109
|
504 /* Return a pointer to the image cache of frame F. */
|
|
505 #define FRAME_IMAGE_CACHE(F) ((F)->terminal->image_cache)
|
|
506
|
765
|
507 typedef struct frame *FRAME_PTR;
|
261
|
508
|
90970
|
509 #define XFRAME(p) (eassert (FRAMEP(p)),(struct frame *) XPNTR (p))
|
10288
|
510 #define XSETFRAME(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_FRAME))
|
261
|
511
|
21814
|
512 /* Given a window, return its frame as a Lisp_Object. */
|
765
|
513 #define WINDOW_FRAME(w) (w)->frame
|
261
|
514
|
21814
|
515 /* Test a frame for particular kinds of display methods. */
|
83008
040dd41ed7d0
Hookified termcap devices, added bootstrap display device, plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
516 #define FRAME_INITIAL_P(f) ((f)->output_method == output_initial)
|
21814
|
517 #define FRAME_TERMCAP_P(f) ((f)->output_method == output_termcap)
|
13411
|
518 #define FRAME_X_P(f) ((f)->output_method == output_x_window)
|
16588
|
519 #define FRAME_W32_P(f) ((f)->output_method == output_w32)
|
15390
|
520 #define FRAME_MSDOS_P(f) ((f)->output_method == output_msdos_raw)
|
25524
|
521 #define FRAME_MAC_P(f) ((f)->output_method == output_mac)
|
13411
|
522
|
|
523 /* FRAME_WINDOW_P tests whether the frame is a window, and is
|
|
524 defined to be the predicate for the window system being used. */
|
25029
|
525
|
13411
|
526 #ifdef HAVE_X_WINDOWS
|
|
527 #define FRAME_WINDOW_P(f) FRAME_X_P (f)
|
|
528 #endif
|
|
529 #ifdef HAVE_NTGUI
|
16588
|
530 #define FRAME_WINDOW_P(f) FRAME_W32_P (f)
|
13411
|
531 #endif
|
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
diff
changeset
|
532 #ifdef MAC_OS
|
25524
|
533 #define FRAME_WINDOW_P(f) FRAME_MAC_P (f)
|
|
534 #endif
|
13568
|
535 #ifndef FRAME_WINDOW_P
|
|
536 #define FRAME_WINDOW_P(f) (0)
|
|
537 #endif
|
13411
|
538
|
21814
|
539 /* Nonzero if frame F is still alive (not deleted). */
|
83431
76396de7f50a
Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
540 #define FRAME_LIVE_P(f) ((f)->terminal != 0)
|
21814
|
541
|
|
542 /* Nonzero if frame F is a minibuffer-only frame. */
|
765
|
543 #define FRAME_MINIBUF_ONLY_P(f) \
|
|
544 EQ (FRAME_ROOT_WINDOW (f), FRAME_MINIBUF_WINDOW (f))
|
21814
|
545
|
|
546 /* Nonzero if frame F contains a minibuffer window.
|
|
547 (If this is 0, F must use some other minibuffer window.) */
|
979
|
548 #define FRAME_HAS_MINIBUF_P(f) ((f)->has_minibuffer)
|
51195
|
549
|
|
550 /* Pixel height of frame F, including non-toolkit menu bar and
|
|
551 non-toolkit tool bar lines. */
|
|
552 #define FRAME_PIXEL_HEIGHT(f) ((f)->pixel_height)
|
|
553
|
|
554 /* Pixel width of frame F. */
|
|
555 #define FRAME_PIXEL_WIDTH(f) ((f)->pixel_width)
|
21814
|
556
|
51195
|
557 /* Height of frame F, measured in canonical lines, including
|
|
558 non-toolkit menu bar and non-toolkit tool bar lines. */
|
|
559 #define FRAME_LINES(f) (f)->text_lines
|
|
560
|
|
561 /* Width of frame F, measured in canonical character columns,
|
21814
|
562 not including scroll bars if any. */
|
51195
|
563 #define FRAME_COLS(f) (f)->text_cols
|
21814
|
564
|
|
565 /* Number of lines of frame F used for menu bar.
|
|
566 This is relevant on terminal frames and on
|
|
567 X Windows when not using the X toolkit.
|
51195
|
568 These lines are counted in FRAME_LINES. */
|
2148
|
569 #define FRAME_MENU_BAR_LINES(f) (f)->menu_bar_lines
|
21814
|
570
|
49322
|
571 /* Nonzero if this frame should display a tool bar
|
|
572 in a way that does not use any text lines. */
|
81406
217675ce2532
(struct frame) [MAC_OS]: New member external_tool_bar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
diff
changeset
|
573 #if defined (USE_GTK) || defined (MAC_OS)
|
49322
|
574 #define FRAME_EXTERNAL_TOOL_BAR(f) (f)->external_tool_bar
|
|
575 #else
|
|
576 #define FRAME_EXTERNAL_TOOL_BAR(f) 0
|
|
577 #endif
|
|
578
|
25544
|
579 /* Number of lines of frame F used for the tool-bar. */
|
25029
|
580
|
25544
|
581 #define FRAME_TOOL_BAR_LINES(f) (f)->tool_bar_lines
|
25029
|
582
|
49322
|
583
|
25029
|
584 /* Lines above the top-most window in frame F. */
|
|
585
|
|
586 #define FRAME_TOP_MARGIN(F) \
|
25544
|
587 (FRAME_MENU_BAR_LINES (F) + FRAME_TOOL_BAR_LINES (F))
|
25029
|
588
|
21814
|
589 /* Nonzero if this frame should display a menu bar
|
|
590 in a way that does not use any text lines. */
|
49322
|
591 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) || defined (MAC_OS) \
|
|
592 || defined (USE_GTK)
|
5657
|
593 #define FRAME_EXTERNAL_MENU_BAR(f) (f)->external_menu_bar
|
8233
|
594 #else
|
|
595 #define FRAME_EXTERNAL_MENU_BAR(f) 0
|
|
596 #endif
|
1710
|
597 #define FRAME_VISIBLE_P(f) ((f)->visible != 0)
|
21814
|
598
|
|
599 /* Nonzero if frame F is currently visible but hidden. */
|
19696
|
600 #define FRAME_OBSCURED_P(f) ((f)->visible > 1)
|
21814
|
601
|
|
602 /* Nonzero if frame F is currently iconified. */
|
|
603 #define FRAME_ICONIFIED_P(f) (f)->iconified
|
|
604
|
1710
|
605 #define FRAME_SET_VISIBLE(f,p) \
|
|
606 ((f)->async_visible = (p), FRAME_SAMPLE_VISIBILITY (f))
|
765
|
607 #define SET_FRAME_GARBAGED(f) (frame_garbaged = 1, f->garbaged = 1)
|
|
608 #define FRAME_GARBAGED_P(f) (f)->garbaged
|
21814
|
609
|
|
610 /* Nonzero means do not allow splitting this frame's window. */
|
765
|
611 #define FRAME_NO_SPLIT_P(f) (f)->no_split
|
21814
|
612
|
|
613 /* Not really implemented. */
|
765
|
614 #define FRAME_WANTS_MODELINE_P(f) (f)->wants_modeline
|
21814
|
615
|
|
616 /* Nonzero if a size change has been requested for frame F
|
|
617 but not yet really put into effect. This can be true temporarily
|
|
618 when an X event comes in at a bad time. */
|
10665
|
619 #define FRAME_WINDOW_SIZES_CHANGED(f) (f)->window_sizes_changed
|
21814
|
620
|
|
621 /* The minibuffer window of frame F, if it has one; otherwise nil. */
|
765
|
622 #define FRAME_MINIBUF_WINDOW(f) (f)->minibuffer_window
|
21814
|
623
|
|
624 /* The root window of the window tree of frame F. */
|
765
|
625 #define FRAME_ROOT_WINDOW(f) (f)->root_window
|
21814
|
626
|
|
627 /* The currently selected window of the window tree of frame F. */
|
765
|
628 #define FRAME_SELECTED_WINDOW(f) (f)->selected_window
|
21814
|
629
|
49600
|
630 #define FRAME_INSERT_COST(f) (f)->insert_line_cost
|
|
631 #define FRAME_DELETE_COST(f) (f)->delete_line_cost
|
765
|
632 #define FRAME_INSERTN_COST(f) (f)->insert_n_lines_cost
|
|
633 #define FRAME_DELETEN_COST(f) (f)->delete_n_lines_cost
|
|
634 #define FRAME_MESSAGE_BUF(f) (f)->message_buf
|
|
635 #define FRAME_SCROLL_BOTTOM_VPOS(f) (f)->scroll_bottom_vpos
|
|
636 #define FRAME_FOCUS_FRAME(f) (f)->focus_frame
|
21814
|
637
|
|
638 /* Nonzero if frame F supports scroll bars.
|
|
639 If this is zero, then it is impossible to enable scroll bars
|
|
640 on frame F. */
|
1994
|
641 #define FRAME_CAN_HAVE_SCROLL_BARS(f) ((f)->can_have_scroll_bars)
|
21814
|
642
|
|
643 /* This frame slot says whether scroll bars are currently enabled for frame F,
|
|
644 and which side they are on. */
|
16270
|
645 #define FRAME_VERTICAL_SCROLL_BAR_TYPE(f) ((f)->vertical_scroll_bar_type)
|
|
646 #define FRAME_HAS_VERTICAL_SCROLL_BARS(f) \
|
|
647 ((f)->vertical_scroll_bar_type != vertical_scroll_bar_none)
|
|
648 #define FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT(f) \
|
|
649 ((f)->vertical_scroll_bar_type == vertical_scroll_bar_left)
|
|
650 #define FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT(f) \
|
|
651 ((f)->vertical_scroll_bar_type == vertical_scroll_bar_right)
|
21814
|
652
|
|
653 /* Width that a scroll bar in frame F should have, if there is one.
|
|
654 Measured in pixels.
|
|
655 If scroll bars are turned off, this is still nonzero. */
|
51195
|
656 #define FRAME_CONFIG_SCROLL_BAR_WIDTH(f) ((f)->config_scroll_bar_width)
|
21814
|
657
|
|
658 /* Width that a scroll bar in frame F should have, if there is one.
|
|
659 Measured in columns (characters).
|
|
660 If scroll bars are turned off, this is still nonzero. */
|
51195
|
661 #define FRAME_CONFIG_SCROLL_BAR_COLS(f) ((f)->config_scroll_bar_cols)
|
21814
|
662
|
|
663 /* Width of a scroll bar in frame F, measured in columns (characters),
|
35798
|
664 but only if scroll bars are on the left. If scroll bars are on
|
|
665 the right in this frame, or there are no scroll bars, value is 0. */
|
|
666
|
51195
|
667 #define FRAME_LEFT_SCROLL_BAR_COLS(f) \
|
35798
|
668 (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT (f) \
|
51195
|
669 ? FRAME_CONFIG_SCROLL_BAR_COLS (f) \
|
35798
|
670 : 0)
|
|
671
|
51195
|
672 /* Width of a left scroll bar in frame F, measured in pixels */
|
|
673
|
|
674 #define FRAME_LEFT_SCROLL_BAR_AREA_WIDTH(f) \
|
|
675 (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT (f) \
|
|
676 ? (FRAME_CONFIG_SCROLL_BAR_COLS (f) * FRAME_COLUMN_WIDTH (f)) \
|
|
677 : 0)
|
|
678
|
35798
|
679 /* Width of a scroll bar in frame F, measured in columns (characters),
|
|
680 but only if scroll bars are on the right. If scroll bars are on
|
|
681 the left in this frame, or there are no scroll bars, value is 0. */
|
|
682
|
51195
|
683 #define FRAME_RIGHT_SCROLL_BAR_COLS(f) \
|
35798
|
684 (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (f) \
|
51195
|
685 ? FRAME_CONFIG_SCROLL_BAR_COLS (f) \
|
16270
|
686 : 0)
|
21814
|
687
|
51195
|
688 /* Width of a right scroll bar area in frame F, measured in pixels */
|
|
689
|
|
690 #define FRAME_RIGHT_SCROLL_BAR_AREA_WIDTH(f) \
|
|
691 (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (f) \
|
|
692 ? (FRAME_CONFIG_SCROLL_BAR_COLS (f) * FRAME_COLUMN_WIDTH (f)) \
|
|
693 : 0)
|
|
694
|
|
695 /* Actual width of a scroll bar in frame F, measured in columns. */
|
|
696
|
|
697 #define FRAME_SCROLL_BAR_COLS(f) \
|
|
698 (FRAME_HAS_VERTICAL_SCROLL_BARS (f) \
|
|
699 ? FRAME_CONFIG_SCROLL_BAR_COLS (f) \
|
16270
|
700 : 0)
|
21814
|
701
|
51195
|
702 /* Actual width of a scroll bar area in frame F, measured in pixels. */
|
|
703
|
|
704 #define FRAME_SCROLL_BAR_AREA_WIDTH(f) \
|
|
705 (FRAME_HAS_VERTICAL_SCROLL_BARS (f) \
|
|
706 ? (FRAME_CONFIG_SCROLL_BAR_COLS (f) * FRAME_COLUMN_WIDTH (f)) \
|
|
707 : 0)
|
|
708
|
21814
|
709 /* Total width of frame F, in columns (characters),
|
|
710 including the width used by scroll bars if any. */
|
51195
|
711
|
|
712 #define FRAME_TOTAL_COLS(f) ((f)->total_cols)
|
21814
|
713
|
|
714 /* Set the width of frame F to VAL.
|
|
715 VAL is the width of a full-frame window,
|
51195
|
716 not including scroll bars and fringes. */
|
|
717
|
|
718 #define SET_FRAME_COLS(f, val) \
|
|
719 (FRAME_COLS (f) = (val), \
|
|
720 (f)->total_cols = FRAME_TOTAL_COLS_ARG (f, FRAME_COLS (f)))
|
21814
|
721
|
|
722 /* Given a value WIDTH for frame F's nominal width,
|
51195
|
723 return the value that FRAME_TOTAL_COLS should have. */
|
|
724
|
|
725 #define FRAME_TOTAL_COLS_ARG(f, width) \
|
25029
|
726 ((width) \
|
51195
|
727 + FRAME_SCROLL_BAR_COLS (f) \
|
41121
|
728 + FRAME_FRINGE_COLS (f))
|
21814
|
729
|
21762
|
730 /* Maximum + 1 legitimate value for FRAME_CURSOR_X. */
|
51195
|
731
|
21762
|
732 #define FRAME_CURSOR_X_LIMIT(f) \
|
51195
|
733 (FRAME_COLS (f) + FRAME_LEFT_SCROLL_BAR_COLS (f))
|
21814
|
734
|
|
735 /* Nonzero if frame F has scroll bars. */
|
51195
|
736
|
1994
|
737 #define FRAME_SCROLL_BARS(f) ((f)->scroll_bars)
|
21814
|
738
|
1994
|
739 #define FRAME_CONDEMNED_SCROLL_BARS(f) ((f)->condemned_scroll_bars)
|
2148
|
740 #define FRAME_MENU_BAR_ITEMS(f) ((f)->menu_bar_items)
|
10120
|
741 #define FRAME_COST_BAUD_RATE(f) ((f)->cost_calculation_baud_rate)
|
17033
|
742
|
47133
|
743 #define FRAME_DESIRED_CURSOR(f) ((f)->desired_cursor)
|
|
744 #define FRAME_BLINK_OFF_CURSOR(f) ((f)->blink_off_cursor)
|
|
745 #define FRAME_CURSOR_WIDTH(f) ((f)->cursor_width)
|
|
746 #define FRAME_BLINK_OFF_CURSOR_WIDTH(f) ((f)->blink_off_cursor_width)
|
|
747
|
25029
|
748 /* Return a pointer to the face cache of frame F. */
|
|
749
|
|
750 #define FRAME_FACE_CACHE(F) (F)->face_cache
|
|
751
|
17033
|
752 /* Return the size of message_buf of the frame F. We multiply the
|
|
753 width of the frame by 4 because multi-byte form may require at most
|
|
754 4-byte for a character. */
|
49600
|
755
|
51195
|
756 #define FRAME_MESSAGE_BUF_SIZE(f) (((int) FRAME_COLS (f)) * 4)
|
261
|
757
|
1653
|
758 /* Emacs's redisplay code could become confused if a frame's
|
|
759 visibility changes at arbitrary times. For example, if a frame is
|
|
760 visible while the desired glyphs are being built, but becomes
|
|
761 invisible before they are updated, then some rows of the
|
|
762 desired_glyphs will be left marked as enabled after redisplay is
|
|
763 complete, which should never happen. The next time the frame
|
|
764 becomes visible, redisplay will probably barf.
|
|
765
|
|
766 Currently, there are no similar situations involving iconified, but
|
|
767 the principle is the same.
|
|
768
|
|
769 So instead of having asynchronous input handlers directly set and
|
|
770 clear the frame's visibility and iconification flags, they just set
|
|
771 the async_visible and async_iconified flags; the redisplay code
|
|
772 calls the FRAME_SAMPLE_VISIBILITY macro before doing any redisplay,
|
|
773 which sets visible and iconified from their asynchronous
|
1710
|
774 counterparts.
|
|
775
|
1776
|
776 Synchronous code must use the FRAME_SET_VISIBLE macro.
|
|
777
|
|
778 Also, if a frame used to be invisible, but has just become visible,
|
|
779 it must be marked as garbaged, since redisplay hasn't been keeping
|
53229
33c3c7c16e13
lib-src/emacsclient.c: Implemented --here option (open a new Emacs tty). Needs more work.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
780 up its contents.
|
33c3c7c16e13
lib-src/emacsclient.c: Implemented --here option (open a new Emacs tty). Needs more work.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
781
|
33c3c7c16e13
lib-src/emacsclient.c: Implemented --here option (open a new Emacs tty). Needs more work.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
782 Note that a tty frame is visible if and only if it is the topmost
|
33c3c7c16e13
lib-src/emacsclient.c: Implemented --here option (open a new Emacs tty). Needs more work.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
783 frame. */
|
49600
|
784
|
1653
|
785 #define FRAME_SAMPLE_VISIBILITY(f) \
|
19696
|
786 (((f)->async_visible && (f)->visible != (f)->async_visible) ? \
|
|
787 SET_FRAME_GARBAGED (f) : 0, \
|
1776
|
788 (f)->visible = (f)->async_visible, \
|
1653
|
789 (f)->iconified = (f)->async_iconified)
|
|
790
|
71823
|
791 #define CHECK_FRAME(x) \
|
|
792 CHECK_TYPE (FRAMEP (x), Qframep, x)
|
485
|
793
|
71823
|
794 #define CHECK_LIVE_FRAME(x) \
|
|
795 CHECK_TYPE (FRAMEP (x) && FRAME_LIVE_P (XFRAME (x)), Qframe_live_p, x)
|
485
|
796
|
765
|
797 /* FOR_EACH_FRAME (LIST_VAR, FRAME_VAR) followed by a statement is a
|
|
798 `for' loop which iterates over the elements of Vframe_list. The
|
2252
|
799 loop will set FRAME_VAR, a Lisp_Object, to each frame in
|
765
|
800 Vframe_list in succession and execute the statement. LIST_VAR
|
2252
|
801 should be a Lisp_Object too; it is used to iterate through the
|
49600
|
802 Vframe_list.
|
732
|
803
|
16051
|
804 This macro is a holdover from a time when multiple frames weren't always
|
|
805 supported. An alternate definition of the macro would expand to
|
|
806 something which executes the statement once. */
|
25029
|
807
|
765
|
808 #define FOR_EACH_FRAME(list_var, frame_var) \
|
|
809 for ((list_var) = Vframe_list; \
|
732
|
810 (CONSP (list_var) \
|
25638
|
811 && (frame_var = XCAR (list_var), 1)); \
|
|
812 list_var = XCDR (list_var))
|
732
|
813
|
|
814
|
50358
|
815 extern Lisp_Object Qframep, Qframe_live_p;
|
83074
|
816 extern Lisp_Object Qtty, Qtty_type;
|
83431
76396de7f50a
Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
817 extern Lisp_Object Qterminal, Qterminal_live_p;
|
91732
|
818 extern Lisp_Object Qnoelisp;
|
261
|
819
|
765
|
820 extern struct frame *last_nonminibuf_frame;
|
261
|
821
|
83008
040dd41ed7d0
Hookified termcap devices, added bootstrap display device, plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
822 extern struct frame *make_initial_frame P_ ((void));
|
83431
76396de7f50a
Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
823 extern struct frame *make_terminal_frame P_ ((struct terminal *));
|
20316
|
824 extern struct frame *make_frame P_ ((int));
|
21425
69491a9294a4
(make_frame_without_minibuffer): Conditionalize on HAVE_WINDOW_SYSTEM.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
825 #ifdef HAVE_WINDOW_SYSTEM
|
20316
|
826 extern struct frame *make_minibuffer_frame P_ ((void));
|
|
827 extern struct frame *make_frame_without_minibuffer P_ ((Lisp_Object,
|
|
828 struct kboard *,
|
|
829 Lisp_Object));
|
21425
69491a9294a4
(make_frame_without_minibuffer): Conditionalize on HAVE_WINDOW_SYSTEM.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
830 #endif /* HAVE_WINDOW_SYSTEM */
|
20316
|
831 extern int other_visible_frames P_ ((struct frame *));
|
261
|
832
|
765
|
833 extern Lisp_Object Vframe_list;
|
|
834 extern Lisp_Object Vdefault_frame_alist;
|
261
|
835
|
765
|
836 extern Lisp_Object Vterminal_frame;
|
43367
|
837
|
|
838 extern Lisp_Object Vmouse_highlight;
|
261
|
839
|
25670
|
840 /* The currently selected frame. */
|
|
841
|
|
842 extern Lisp_Object selected_frame;
|
|
843
|
|
844 /* Value is a pointer to the selected frame. If the selected frame
|
29439
|
845 isn't live, abort. */
|
25670
|
846
|
|
847 #define SELECTED_FRAME() \
|
|
848 ((FRAMEP (selected_frame) \
|
|
849 && FRAME_LIVE_P (XFRAME (selected_frame))) \
|
|
850 ? XFRAME (selected_frame) \
|
28651
|
851 : (abort (), (struct frame *) 0))
|
25029
|
852
|
|
853
|
|
854 /***********************************************************************
|
|
855 Display-related Macros
|
|
856 ***********************************************************************/
|
|
857
|
64477
|
858 /* Canonical y-unit on frame F.
|
51195
|
859 This value currently equals the line height of the frame (which is
|
|
860 the height of the default font of F). */
|
25029
|
861
|
51195
|
862 #define FRAME_LINE_HEIGHT(F) ((F)->line_height)
|
25029
|
863
|
64477
|
864 /* Canonical x-unit on frame F.
|
59203
|
865 This value currently equals the average width of the default font of F. */
|
25029
|
866
|
51195
|
867 #define FRAME_COLUMN_WIDTH(F) ((F)->column_width)
|
|
868
|
59203
|
869 /* Space glyph width of the default font of frame F. */
|
|
870
|
|
871 #define FRAME_SPACE_WIDTH(F) ((F)->space_width)
|
|
872
|
25029
|
873
|
|
874 /* Pixel width of areas used to display truncation marks, continuation
|
25460
|
875 marks, overlay arrows. This is 0 for terminal frames. */
|
25029
|
876
|
|
877 #ifdef HAVE_WINDOW_SYSTEM
|
31147
|
878
|
51195
|
879 /* Total width of fringes reserved for drawing truncation bitmaps,
|
|
880 continuation bitmaps and alike. The width is in canonical char
|
|
881 units of the frame. This must currently be the case because window
|
|
882 sizes aren't pixel values. If it weren't the case, we wouldn't be
|
|
883 able to split windows horizontally nicely. */
|
|
884
|
|
885 #define FRAME_FRINGE_COLS(F) ((F)->fringe_cols)
|
|
886
|
|
887 /* Pixel-width of the left and right fringe. */
|
|
888
|
|
889 #define FRAME_LEFT_FRINGE_WIDTH(F) ((F)->left_fringe_width)
|
|
890 #define FRAME_RIGHT_FRINGE_WIDTH(F) ((F)->right_fringe_width)
|
|
891
|
|
892 /* Total width of fringes in pixels. */
|
|
893
|
|
894 #define FRAME_TOTAL_FRINGE_WIDTH(F) \
|
|
895 (FRAME_LEFT_FRINGE_WIDTH (F) + FRAME_RIGHT_FRINGE_WIDTH (F))
|
|
896
|
|
897
|
|
898 /* Pixel-width of internal border lines */
|
|
899
|
|
900 #define FRAME_INTERNAL_BORDER_WIDTH(F) ((F)->internal_border_width)
|
49600
|
901
|
31147
|
902 #else /* not HAVE_WINDOW_SYSTEM */
|
|
903
|
41121
|
904 #define FRAME_FRINGE_COLS(F) 0
|
51195
|
905 #define FRAME_TOTAL_FRINGE_WIDTH(F) 0
|
41121
|
906 #define FRAME_LEFT_FRINGE_WIDTH(F) 0
|
41717
6ca418a9510b
(struct frame): Remove trunc_area_pixel_width and trunc_area_cols fields.
Kim F. Storm <storm@cua.dk>
diff
changeset
|
907 #define FRAME_RIGHT_FRINGE_WIDTH(F) 0
|
51195
|
908 #define FRAME_INTERNAL_BORDER_WIDTH(F) 0
|
31147
|
909
|
|
910 #endif /* not HAVE_WINDOW_SYSTEM */
|
49600
|
911
|
25029
|
912
|
|
913
|
|
914
|
|
915 /***********************************************************************
|
|
916 Conversion between canonical units and pixels
|
|
917 ***********************************************************************/
|
|
918
|
51195
|
919 /* Canonical x-values are fractions of FRAME_COLUMN_WIDTH, canonical
|
|
920 y-unit are fractions of FRAME_LINE_HEIGHT of a frame. Both are
|
|
921 represented as Lisp numbers, i.e. integers or floats. */
|
25029
|
922
|
|
923 /* Convert canonical value X to pixels. F is the frame whose
|
|
924 canonical char width is to be used. X must be a Lisp integer or
|
|
925 float. Value is a C integer. */
|
49600
|
926
|
51195
|
927 #define FRAME_PIXEL_X_FROM_CANON_X(F, X) \
|
25029
|
928 (INTEGERP (X) \
|
51195
|
929 ? XINT (X) * FRAME_COLUMN_WIDTH (F) \
|
|
930 : (int) (XFLOAT_DATA (X) * FRAME_COLUMN_WIDTH (F)))
|
49600
|
931
|
25029
|
932 /* Convert canonical value Y to pixels. F is the frame whose
|
|
933 canonical character height is to be used. X must be a Lisp integer
|
|
934 or float. Value is a C integer. */
|
49600
|
935
|
51195
|
936 #define FRAME_PIXEL_Y_FROM_CANON_Y(F, Y) \
|
25029
|
937 (INTEGERP (Y) \
|
51195
|
938 ? XINT (Y) * FRAME_LINE_HEIGHT (F) \
|
|
939 : (int) (XFLOAT_DATA (Y) * FRAME_LINE_HEIGHT (F)))
|
25029
|
940
|
|
941 /* Convert pixel-value X to canonical units. F is the frame whose
|
|
942 canonical character width is to be used. X is a C integer. Result
|
|
943 is a Lisp float if X is not a multiple of the canon width,
|
|
944 otherwise it's a Lisp integer. */
|
|
945
|
51195
|
946 #define FRAME_CANON_X_FROM_PIXEL_X(F, X) \
|
|
947 ((X) % FRAME_COLUMN_WIDTH (F) != 0 \
|
|
948 ? make_float ((double) (X) / FRAME_COLUMN_WIDTH (F)) \
|
|
949 : make_number ((X) / FRAME_COLUMN_WIDTH (F)))
|
25029
|
950
|
|
951 /* Convert pixel-value Y to canonical units. F is the frame whose
|
|
952 canonical character height is to be used. Y is a C integer.
|
|
953 Result is a Lisp float if Y is not a multiple of the canon width,
|
|
954 otherwise it's a Lisp integer. */
|
|
955
|
51195
|
956 #define FRAME_CANON_Y_FROM_PIXEL_Y(F, Y) \
|
|
957 ((Y) % FRAME_LINE_HEIGHT (F) \
|
|
958 ? make_float ((double) (Y) / FRAME_LINE_HEIGHT (F)) \
|
|
959 : make_number ((Y) / FRAME_LINE_HEIGHT (F)))
|
|
960
|
|
961
|
|
962
|
|
963 /* Manipulating pixel sizes and character sizes.
|
|
964 Knowledge of which factors affect the overall size of the window should
|
|
965 be hidden in these macros, if that's possible.
|
|
966
|
|
967 Return the upper/left pixel position of the character cell on frame F
|
|
968 at ROW/COL. */
|
|
969
|
|
970 #define FRAME_LINE_TO_PIXEL_Y(f, row) \
|
|
971 (FRAME_INTERNAL_BORDER_WIDTH (f) \
|
|
972 + (row) * FRAME_LINE_HEIGHT (f))
|
|
973
|
|
974 #define FRAME_COL_TO_PIXEL_X(f, col) \
|
|
975 (FRAME_INTERNAL_BORDER_WIDTH (f) \
|
|
976 + (col) * FRAME_COLUMN_WIDTH (f))
|
|
977
|
|
978 /* Return the pixel width/height of frame F if it has
|
|
979 COLS columns/LINES rows. */
|
|
980
|
|
981 #define FRAME_TEXT_COLS_TO_PIXEL_WIDTH(f, cols) \
|
|
982 (FRAME_COL_TO_PIXEL_X (f, cols) \
|
|
983 + (f)->scroll_bar_actual_width \
|
|
984 + FRAME_TOTAL_FRINGE_WIDTH (f) \
|
|
985 + FRAME_INTERNAL_BORDER_WIDTH (f))
|
|
986
|
|
987 #define FRAME_TEXT_LINES_TO_PIXEL_HEIGHT(f, lines) \
|
|
988 (FRAME_LINE_TO_PIXEL_Y (f, lines) \
|
|
989 + FRAME_INTERNAL_BORDER_WIDTH (f))
|
|
990
|
|
991
|
|
992 /* Return the row/column (zero-based) of the character cell containing
|
|
993 the pixel on FRAME at Y/X. */
|
|
994
|
|
995 #define FRAME_PIXEL_Y_TO_LINE(f, y) \
|
|
996 (((y) - FRAME_INTERNAL_BORDER_WIDTH (f)) \
|
|
997 / FRAME_LINE_HEIGHT (f))
|
|
998
|
|
999 #define FRAME_PIXEL_X_TO_COL(f, x) \
|
|
1000 (((x) - FRAME_INTERNAL_BORDER_WIDTH (f)) \
|
|
1001 / FRAME_COLUMN_WIDTH (f))
|
|
1002
|
|
1003 /* How many columns/rows of text can we fit in WIDTH/HEIGHT pixels on
|
|
1004 frame F? */
|
|
1005
|
|
1006 #define FRAME_PIXEL_WIDTH_TO_TEXT_COLS(f, width) \
|
|
1007 (FRAME_PIXEL_X_TO_COL (f, ((width) \
|
|
1008 - FRAME_INTERNAL_BORDER_WIDTH (f) \
|
|
1009 - FRAME_TOTAL_FRINGE_WIDTH (f) \
|
|
1010 - (f)->scroll_bar_actual_width)))
|
|
1011
|
|
1012 #define FRAME_PIXEL_HEIGHT_TO_TEXT_LINES(f, height) \
|
|
1013 (FRAME_PIXEL_Y_TO_LINE (f, ((height) \
|
|
1014 - FRAME_INTERNAL_BORDER_WIDTH (f))))
|
49600
|
1015
|
50358
|
1016
|
|
1017 /***********************************************************************
|
|
1018 Frame Parameters
|
|
1019 ***********************************************************************/
|
|
1020
|
|
1021 extern Lisp_Object Qauto_raise, Qauto_lower;
|
|
1022 extern Lisp_Object Qborder_color, Qborder_width;
|
83415
d2c799f58129
Implement full support for frame-local `next-buffer' and `previous-buffer'.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
1023 extern Lisp_Object Qbuffer_predicate, Qbuffer_list, Qburied_buffer_list;
|
50358
|
1024 extern Lisp_Object Qcursor_color, Qcursor_type;
|
|
1025 extern Lisp_Object Qfont;
|
|
1026 extern Lisp_Object Qbackground_color, Qforeground_color;
|
|
1027 extern Lisp_Object Qicon, Qicon_name, Qicon_type, Qicon_left, Qicon_top;
|
|
1028 extern Lisp_Object Qinternal_border_width;
|
|
1029 extern Lisp_Object Qmenu_bar_lines, Qtool_bar_lines;
|
|
1030 extern Lisp_Object Qmouse_color;
|
|
1031 extern Lisp_Object Qname, Qtitle;
|
|
1032 extern Lisp_Object Qparent_id;
|
|
1033 extern Lisp_Object Qunsplittable, Qvisibility;
|
|
1034 extern Lisp_Object Qscroll_bar_width, Qvertical_scroll_bars;
|
|
1035 extern Lisp_Object Qscroll_bar_foreground, Qscroll_bar_background;
|
|
1036 extern Lisp_Object Qscreen_gamma;
|
|
1037 extern Lisp_Object Qline_spacing;
|
|
1038 extern Lisp_Object Qwait_for_wm;
|
|
1039 extern Lisp_Object Qfullscreen;
|
90548
|
1040 extern Lisp_Object Qfont_backend;
|
95158
|
1041 extern Lisp_Object Qalpha;
|
50358
|
1042
|
|
1043 extern Lisp_Object Qleft_fringe, Qright_fringe;
|
|
1044 extern Lisp_Object Qheight, Qwidth;
|
|
1045 extern Lisp_Object Qminibuffer, Qmodeline;
|
|
1046 extern Lisp_Object Qonly;
|
|
1047 extern Lisp_Object Qx, Qw32, Qmac, Qpc;
|
|
1048 extern Lisp_Object Qvisible;
|
|
1049 extern Lisp_Object Qdisplay_type;
|
|
1050 extern Lisp_Object Qbackground_mode;
|
|
1051
|
|
1052 extern Lisp_Object Qx_resource_name;
|
|
1053
|
|
1054 extern Lisp_Object Qleft, Qright, Qtop, Qbox;
|
|
1055 extern Lisp_Object Qdisplay;
|
|
1056
|
|
1057 #ifdef HAVE_WINDOW_SYSTEM
|
|
1058
|
|
1059 /* The class of this X application. */
|
|
1060 #define EMACS_CLASS "Emacs"
|
|
1061
|
|
1062 /* These are in xterm.c, w32term.c, etc. */
|
|
1063
|
|
1064 extern void x_set_scroll_bar_default_width P_ ((struct frame *));
|
|
1065 extern void x_set_offset P_ ((struct frame *, int, int, int));
|
|
1066 extern void x_wm_set_icon_position P_ ((struct frame *, int, int));
|
|
1067
|
94930
|
1068 extern Lisp_Object x_new_font P_ ((struct frame *, Lisp_Object, int));
|
50358
|
1069
|
|
1070 /* These are in frame.c */
|
|
1071
|
|
1072 extern Lisp_Object Vx_resource_name;
|
|
1073 extern Lisp_Object Vx_resource_class;
|
|
1074
|
|
1075
|
|
1076 extern Lisp_Object Qface_set_after_frame_default;
|
|
1077
|
|
1078 extern void x_fullscreen_adjust P_ ((struct frame *f, int *, int *,
|
|
1079 int *, int *));
|
|
1080
|
|
1081 extern void x_set_frame_parameters P_ ((struct frame *, Lisp_Object));
|
|
1082 extern void x_report_frame_params P_ ((struct frame *, Lisp_Object *));
|
|
1083
|
|
1084 extern void x_set_fullscreen P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
|
1085 extern void x_set_line_spacing P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
|
1086 extern void x_set_screen_gamma P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
|
1087 extern void x_set_font P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
90548
|
1088 extern void x_set_font_backend P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
50358
|
1089 extern void x_set_fringe_width P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
|
1090 extern void x_set_border_width P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
|
1091 extern void x_set_internal_border_width P_ ((struct frame *, Lisp_Object,
|
|
1092 Lisp_Object));
|
|
1093 extern void x_set_visibility P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
|
1094 extern void x_set_autoraise P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
|
1095 extern void x_set_autolower P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
|
1096 extern void x_set_unsplittable P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
|
1097 extern void x_set_vertical_scroll_bars P_ ((struct frame *, Lisp_Object,
|
|
1098 Lisp_Object));
|
|
1099 extern void x_set_scroll_bar_width P_ ((struct frame *, Lisp_Object,
|
|
1100 Lisp_Object));
|
|
1101
|
|
1102 extern Lisp_Object x_icon_type P_ ((struct frame *));
|
|
1103
|
|
1104 extern int x_figure_window_size P_ ((struct frame *, Lisp_Object, int));
|
|
1105
|
95158
|
1106 extern Lisp_Object Vframe_alpha_lower_limit;
|
|
1107 extern void x_set_alpha P_ ((struct frame *, Lisp_Object, Lisp_Object));
|
50358
|
1108
|
|
1109 extern void validate_x_resource_name P_ ((void));
|
|
1110
|
|
1111 #endif /* HAVE_WINDOW_SYSTEM */
|
|
1112
|
35803
|
1113 #endif /* not EMACS_FRAME_H */
|
52401
|
1114
|
|
1115 /* arch-tag: 0df048ee-e6bf-4f48-bd56-e3cd055dd8c4
|
|
1116 (do not change this comment) */
|