|
428
|
1 /* Redisplay data structures.
|
|
|
2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
|
|
|
3 Copyright (C) 1996 Chuck Thompson.
|
|
|
4 Copyright (C) 1995, 1996 Ben Wing.
|
|
|
5
|
|
|
6 This file is part of XEmacs.
|
|
|
7
|
|
|
8 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
9 under the terms of the GNU General Public License as published by the
|
|
|
10 Free Software Foundation; either version 2, or (at your option) any
|
|
|
11 later version.
|
|
|
12
|
|
|
13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
16 for more details.
|
|
|
17
|
|
|
18 You should have received a copy of the GNU General Public License
|
|
|
19 along with XEmacs; see the file COPYING. If not, write to
|
|
|
20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
21 Boston, MA 02111-1307, USA. */
|
|
|
22
|
|
|
23 /* Synched up with: Not in FSF. */
|
|
|
24
|
|
440
|
25 #ifndef INCLUDED_redisplay_h_
|
|
|
26 #define INCLUDED_redisplay_h_
|
|
428
|
27
|
|
|
28 /* Redisplay DASSERT types */
|
|
|
29 #define DB_DISP_POS 1
|
|
|
30 #define DB_DISP_TEXT_LAYOUT 2
|
|
|
31 #define DB_DISP_REDISPLAY 4
|
|
|
32
|
|
|
33 /* These are the possible return values from pixel_to_glyph_translation. */
|
|
|
34 #define OVER_MODELINE 0
|
|
|
35 #define OVER_TEXT 1
|
|
|
36 #define OVER_OUTSIDE 2
|
|
|
37 #define OVER_NOTHING 3
|
|
|
38 #define OVER_BORDER 4
|
|
|
39 #define OVER_TOOLBAR 5
|
|
|
40 #define OVER_V_DIVIDER 6
|
|
|
41
|
|
|
42 #define NO_BLOCK -1
|
|
|
43
|
|
|
44 /* Imagine that the text in the buffer is displayed on a piece of paper
|
|
|
45 the width of the frame and very very tall. The line start cache is
|
|
|
46 an array of struct line_start_cache's, describing the start and
|
|
|
47 end buffer positions for a contiguous set of lines on that piece
|
|
|
48 of paper. */
|
|
|
49
|
|
|
50 typedef struct line_start_cache line_start_cache;
|
|
|
51 struct line_start_cache
|
|
|
52 {
|
|
|
53 Bufpos start, end;
|
|
|
54 int height;
|
|
|
55 };
|
|
|
56
|
|
|
57 typedef struct
|
|
|
58 {
|
|
|
59 Dynarr_declare (line_start_cache);
|
|
|
60 } line_start_cache_dynarr;
|
|
|
61
|
|
|
62 /* The possible types of runes.
|
|
|
63
|
|
|
64 #### The Lisp_Glyph type is broken. There should instead be a pixmap
|
|
|
65 type. Currently the device-specific output routines have to worry
|
|
|
66 about whether the glyph is textual or not, etc. For Mule this is
|
|
|
67 a big problem because you might need multiple fonts to display the
|
|
|
68 text. It also eliminates optimizations that could come from glumping
|
|
|
69 the text of multiple text glyphs together -- this makes displaying
|
|
|
70 binary files (with lots of control chars, etc.) very very slow. */
|
|
|
71
|
|
|
72 #define RUNE_BLANK 0
|
|
|
73 #define RUNE_CHAR 1
|
|
|
74 #define RUNE_DGLYPH 2
|
|
|
75 #define RUNE_HLINE 3
|
|
|
76 #define RUNE_VLINE 4
|
|
|
77
|
|
|
78 #define CURSOR_ON 0
|
|
|
79 #define CURSOR_OFF 1
|
|
|
80 #define NO_CURSOR 2
|
|
|
81 #define NEXT_CURSOR 3
|
|
|
82 #define IGNORE_CURSOR 4
|
|
|
83
|
|
|
84 #define DEFAULT_INDEX (face_index) 0
|
|
|
85 #define MODELINE_INDEX (face_index) 1
|
|
|
86
|
|
|
87 /* A rune is a single display element, such as a printable character
|
|
|
88 or pixmap. Any single character in a buffer has one or more runes
|
|
|
89 (or zero, if the character is invisible) corresponding to it.
|
|
|
90 (Printable characters typically have one rune associated with them,
|
|
|
91 but control characters have two -- a ^ and a letter -- and other
|
|
|
92 non-printing characters (those displayed in octal) have four. */
|
|
|
93
|
|
|
94 /* WARNING! In compare_runes (one of the most heavily used functions)
|
|
|
95 two runes are compared. So please be careful with changes to this
|
|
|
96 structure. See comments in compare_runes.
|
|
|
97
|
|
|
98 #### This should really be made smaller.
|
|
|
99 */
|
|
432
|
100
|
|
428
|
101 typedef struct rune rune;
|
|
|
102 struct rune
|
|
|
103 {
|
|
|
104 face_index findex; /* face rune is displayed with. The
|
|
|
105 face_index is an index into a
|
|
|
106 window-specific array of face cache
|
|
|
107 elements. Each face cache element
|
|
|
108 corresponds to one "merged face"
|
|
|
109 (the result of merging all the
|
|
|
110 faces that overlap the rune) and
|
|
|
111 contains the instance values for
|
|
|
112 each of the face properties in this
|
|
|
113 particular window. */
|
|
|
114
|
|
|
115 Bufpos bufpos; /* buffer position this rune is displaying;
|
|
|
116 for the modeline, the value here is a
|
|
|
117 Charcount, but who's looking? */
|
|
|
118 Bufpos endpos; /* if set this rune covers a range of pos */
|
|
|
119 /* #### Chuck, what does it mean for a rune
|
|
|
120 to cover a range of pos? I don't get
|
|
|
121 this. */
|
|
|
122 /* #### This isn't used as an rvalue anywhere!
|
|
|
123 remove! */
|
|
432
|
124
|
|
|
125
|
|
428
|
126 short xpos; /* horizontal starting position in pixels */
|
|
|
127 short width; /* pixel width of rune */
|
|
432
|
128
|
|
|
129
|
|
428
|
130 unsigned char cursor_type; /* is this rune covered by the cursor? */
|
|
|
131 unsigned char type; /* type of rune object */
|
|
|
132 /* We used to do bitfields here, but if I
|
|
|
133 (JV) count correctly that doesn't matter
|
|
|
134 for the size of the structure. All the bit
|
|
|
135 fiddling _does_ slow down redisplay by
|
|
|
136 about 10%. So don't do that */
|
|
|
137
|
|
|
138 union /* Information specific to the type of rune */
|
|
|
139 {
|
|
450
|
140 /* #### Glyphs are rare. Is it really necessary to waste 8 bytes on every
|
|
428
|
141 rune for that?! */
|
|
|
142 /* DGLYPH */
|
|
|
143 struct
|
|
|
144 {
|
|
|
145 Lisp_Object glyph;
|
|
|
146 Lisp_Object extent; /* extent rune is attached to, if any.
|
|
|
147 If this is a rune in the modeline
|
|
|
148 then this might be nil. */
|
|
|
149
|
|
|
150 int xoffset; /* Number of pixels that need to be
|
|
|
151 chopped off the left of the glyph.
|
|
|
152 This has the effect of shifting the
|
|
|
153 glyph to the left while still clipping
|
|
|
154 at XPOS. */
|
|
|
155 } dglyph;
|
|
|
156
|
|
|
157 /* CHAR */
|
|
|
158 struct
|
|
|
159 {
|
|
|
160 Emchar ch; /* Character of this rune. */
|
|
|
161 } chr;
|
|
|
162
|
|
|
163 /* HLINE */
|
|
|
164 struct
|
|
|
165 {
|
|
|
166 short thickness; /* how thick to make hline */
|
|
|
167 short yoffset; /* how far down from top of line to put top */
|
|
|
168 } hline;
|
|
|
169 } object; /* actual rune object */
|
|
|
170 };
|
|
|
171
|
|
|
172 typedef struct
|
|
|
173 {
|
|
|
174 Dynarr_declare (rune);
|
|
|
175 } rune_dynarr;
|
|
|
176
|
|
|
177 /* These must have distinct values. Note that the ordering actually
|
|
|
178 represents priority levels. TEXT has the lowest priority level. */
|
|
|
179 enum display_type
|
|
|
180 {
|
|
|
181 TEXT,
|
|
|
182 LEFT_OUTSIDE_MARGIN,
|
|
|
183 LEFT_INSIDE_MARGIN,
|
|
|
184 RIGHT_INSIDE_MARGIN,
|
|
|
185 RIGHT_OUTSIDE_MARGIN,
|
|
|
186 OVERWRITE
|
|
|
187 };
|
|
|
188
|
|
|
189 /* A display block represents a run of text on a single line.
|
|
|
190 Apparently there is only one display block per line for each
|
|
|
191 of the types listed in `enum display_type'.
|
|
|
192
|
|
|
193 A display block consists mostly of an array of runes, one per
|
|
|
194 atomic display element (printable character, pixmap, etc.). */
|
|
|
195
|
|
|
196 /* #### Yuckity yuckity yuck yuck yuck yuck yuck!!
|
|
|
197
|
|
|
198 Chuck, I think you should redo this. It should not be the
|
|
|
199 responsibility of the device-specific code to worry about
|
|
|
200 the different faces. The generic stuff in redisplay-output.c
|
|
|
201 should glump things up into sub-blocks, each of which
|
|
|
202 corresponds to a single pixmap or a single run of text in
|
|
|
203 the same font.
|
|
|
204
|
|
|
205 It might still make sense for the device-specific output routine
|
|
|
206 to get passed an entire display line. That way, it can make
|
|
|
207 calls to XDrawText() (which draws multiple runs of single-font
|
|
|
208 data) instead of XDrawString(). The reason for this is to
|
|
|
209 reduce the amount of X traffic, which will help things significantly
|
|
|
210 on a slow line. */
|
|
|
211
|
|
|
212 typedef struct display_block display_block;
|
|
|
213 struct display_block
|
|
|
214 {
|
|
|
215 enum display_type type; /* type of display block */
|
|
|
216
|
|
|
217 int start_pos; /* starting pixel position of block */
|
|
|
218 int end_pos; /* ending pixel position of block */
|
|
|
219
|
|
|
220 rune_dynarr *runes; /* Dynamic array of runes */
|
|
|
221 };
|
|
|
222
|
|
|
223 typedef struct
|
|
|
224 {
|
|
|
225 Dynarr_declare (display_block);
|
|
|
226 } display_block_dynarr;
|
|
|
227
|
|
|
228 typedef struct layout_bounds_type
|
|
|
229 {
|
|
|
230 int left_out;
|
|
|
231 int left_in;
|
|
|
232 int left_white;
|
|
|
233 int right_white;
|
|
|
234 int right_in;
|
|
|
235 int right_out;
|
|
|
236 } layout_bounds;
|
|
|
237
|
|
|
238 typedef struct glyph_block glyph_block;
|
|
|
239 struct glyph_block
|
|
|
240 {
|
|
|
241 Lisp_Object glyph;
|
|
|
242 Lisp_Object extent;
|
|
|
243 /* The rest are only used by margin routines. */
|
|
|
244 face_index findex;
|
|
|
245 int active;
|
|
|
246 int width;
|
|
|
247 };
|
|
|
248
|
|
|
249 typedef struct
|
|
|
250 {
|
|
|
251 Dynarr_declare (glyph_block);
|
|
|
252 } glyph_block_dynarr;
|
|
|
253
|
|
|
254 /*************************************************************************/
|
|
|
255 /* display lines */
|
|
|
256 /*************************************************************************/
|
|
|
257
|
|
|
258 /* Modeline commentary: IMO the modeline is handled very badly, we
|
|
|
259 special case virtually *everything* in the redisplay routines for
|
|
|
260 the modeline. The fact that dl->bufpos can be either a buffer
|
|
|
261 position or a char count highlights this. There is no abstraction at
|
|
|
262 all that I can find and it means that the code is made very ugly as
|
|
|
263 a result. Either we should treat the modeline *entirely* separately,
|
|
|
264 or we should abstract to something that applies equally well to the
|
|
|
265 modeline and to buffer text, the things are not enormously different
|
|
|
266 after all and handling them identically at some level would
|
|
|
267 eliminate some bugs that still exist (mainly to do with modeline
|
|
|
268 handling). This problem doesn't help trying to implement gutters
|
|
|
269 which are somewhere in between buffer text and modeline text.
|
|
|
270
|
|
|
271 Redisplay commentary: Everything in redisplay is tied very tightly
|
|
|
272 to the things that are being displayed, and the context,
|
|
|
273 e.g. buffers and windows. According to Chuck this is so that we can
|
|
|
274 get speed, which seems fine to me, however this usage is extended
|
|
442
|
275 too far down the redisplay routines IMO. At some level there should
|
|
428
|
276 be functions that know how to display strings with extents and
|
|
|
277 faces, regardless of buffer etc. After all the window system does
|
|
|
278 not care. <andy@xemacs.org> */
|
|
|
279
|
|
|
280 typedef struct display_line display_line;
|
|
|
281 struct display_line
|
|
|
282 {
|
|
|
283 short ypos; /* vertical position in pixels
|
|
|
284 of the baseline for this line. */
|
|
|
285 unsigned short ascent, descent; /* maximum values for this line.
|
|
|
286 The ascent is the number of
|
|
|
287 pixels above the baseline, and
|
|
|
288 the descent is the number of
|
|
|
289 pixels below the baseline.
|
|
|
290 The descent includes the baseline
|
|
|
291 pixel-row itself, I think. */
|
|
|
292 unsigned short clip; /* amount of bottom of line to clip
|
|
|
293 in pixels.*/
|
|
|
294 unsigned short top_clip; /* amount of top of line to clip
|
|
|
295 in pixels.*/
|
|
|
296 Bufpos bufpos; /* first buffer position on line */
|
|
|
297 Bufpos end_bufpos; /* last buffer position on line */
|
|
|
298 Charcount offset; /* adjustment to bufpos vals */
|
|
|
299 Charcount num_chars; /* # of chars on line
|
|
|
300 including expansion of tabs
|
|
|
301 and control chars */
|
|
|
302 int cursor_elt; /* rune block of TEXT display
|
|
|
303 block cursor is at or -1 */
|
|
|
304 char used_prop_data; /* can't incrementally update if line
|
|
|
305 used propagation data */
|
|
|
306
|
|
|
307 layout_bounds bounds; /* line boundary positions */
|
|
|
308
|
|
|
309 char modeline; /* t if this line is a modeline */
|
|
|
310
|
|
442
|
311 char line_continuation; /* t if this line continues to
|
|
|
312 next display line. */
|
|
|
313
|
|
428
|
314 /* Dynamic array of display blocks */
|
|
|
315 display_block_dynarr *display_blocks;
|
|
|
316
|
|
|
317 /* Dynamic arrays of left and right glyph blocks */
|
|
|
318 glyph_block_dynarr *left_glyphs;
|
|
|
319 glyph_block_dynarr *right_glyphs;
|
|
|
320
|
|
|
321 face_index left_margin_findex;
|
|
|
322 face_index right_margin_findex;
|
|
|
323 face_index default_findex;
|
|
|
324 };
|
|
|
325
|
|
|
326 #define DISPLAY_LINE_HEIGHT(dl) \
|
|
|
327 (dl->ascent + dl->descent - (dl->clip + dl->top_clip))
|
|
|
328 #define DISPLAY_LINE_YPOS(dl) \
|
|
|
329 (dl->ypos - (dl->ascent - dl->top_clip))
|
|
|
330 #define DISPLAY_LINE_YEND(dl) \
|
|
|
331 ((dl->ypos + dl->descent) - dl->clip)
|
|
|
332
|
|
|
333 typedef struct
|
|
|
334 {
|
|
|
335 Dynarr_declare (display_line);
|
|
|
336 } display_line_dynarr;
|
|
|
337
|
|
|
338 /* The following two structures are used to represent an area to
|
|
|
339 displayed and where to display it. Using these two structures all
|
|
|
340 combinations of clipping and position can be accommodated. */
|
|
|
341
|
|
|
342 /* This represents an area to be displayed into. */
|
|
|
343 typedef struct display_box display_box;
|
|
|
344 struct display_box
|
|
|
345 {
|
|
|
346 int xpos; /* absolute horizontal position of area */
|
|
|
347 int ypos; /* absolute vertical position of area */
|
|
|
348 int width, height;
|
|
|
349 };
|
|
|
350
|
|
|
351 /* This represents the area from a glyph to be displayed. */
|
|
|
352 typedef struct display_glyph_area display_glyph_area;
|
|
|
353 struct display_glyph_area
|
|
|
354 {
|
|
|
355 int xoffset; /* horizontal offset of the glyph, +ve means
|
|
|
356 display the glyph with x offset by xoffset,
|
|
|
357 -ve means display starting xoffset into the
|
|
|
358 glyph. */
|
|
|
359 int yoffset; /* vertical offset of the glyph, +ve means
|
|
|
360 display the glyph with y offset by yoffset,
|
|
|
361 -ve means display starting xoffset into the
|
|
|
362 glyph. */
|
|
|
363 int width, height; /* width and height of glyph to display. */
|
|
|
364 };
|
|
|
365
|
|
|
366 /* It could be argued that the following two structs belong in
|
|
|
367 extents.h, but they're only used by redisplay and it simplifies
|
|
|
368 the header files to put them here. */
|
|
|
369
|
|
|
370 typedef struct
|
|
|
371 {
|
|
|
372 Dynarr_declare (EXTENT);
|
|
|
373 } EXTENT_dynarr;
|
|
|
374
|
|
|
375 struct font_metric_info
|
|
|
376 {
|
|
|
377 int width;
|
|
|
378 int height; /* always ascent + descent; for convenience */
|
|
|
379 int ascent;
|
|
|
380 int descent;
|
|
|
381
|
|
|
382 int proportional_p;
|
|
|
383 };
|
|
|
384
|
|
|
385 /* NOTE NOTE NOTE: Currently the positions in an extent fragment
|
|
|
386 structure are Bytind's, not Bufpos's. This could change. */
|
|
|
387
|
|
|
388 struct extent_fragment
|
|
|
389 {
|
|
|
390 Lisp_Object object; /* buffer or string */
|
|
|
391 struct frame *frm;
|
|
|
392 Bytind pos, end;
|
|
|
393 EXTENT_dynarr *extents;
|
|
|
394 glyph_block_dynarr *begin_glyphs, *end_glyphs;
|
|
|
395 unsigned int invisible:1;
|
|
|
396 unsigned int invisible_ellipses:1;
|
|
|
397 unsigned int previously_invisible:1;
|
|
|
398 unsigned int invisible_ellipses_already_displayed:1;
|
|
|
399 };
|
|
|
400
|
|
|
401 #define EDGE_TOP 1
|
|
|
402 #define EDGE_LEFT 2
|
|
|
403 #define EDGE_BOTTOM 4
|
|
|
404 #define EDGE_RIGHT 8
|
|
|
405 #define EDGE_ALL (EDGE_TOP | EDGE_LEFT | EDGE_BOTTOM | EDGE_RIGHT)
|
|
|
406
|
|
|
407
|
|
|
408 /*************************************************************************/
|
|
|
409 /* change flags */
|
|
|
410 /*************************************************************************/
|
|
|
411
|
|
|
412 /* Quick flags to signal redisplay. redisplay() sets them all to 0
|
|
|
413 when it finishes. If none of them are set when it starts, it
|
|
|
414 assumes that nothing needs to be done. Functions that make a change
|
|
|
415 that is (potentially) visible on the screen should set the
|
|
|
416 appropriate flag.
|
|
|
417
|
|
|
418 If any of these flags are set, redisplay will look more carefully
|
|
|
419 to see if anything has really changed. */
|
|
|
420
|
|
442
|
421 /* Nonzero if the contents of a buffer have changed since the last time
|
|
|
422 redisplay completed. */
|
|
428
|
423 extern int buffers_changed;
|
|
|
424 extern int buffers_changed_set;
|
|
|
425
|
|
|
426 /* Nonzero if head_clip or tail_clip of a buffer has changed
|
|
442
|
427 since last redisplay that finished. */
|
|
428
|
428 extern int clip_changed;
|
|
|
429 extern int clip_changed_set;
|
|
|
430
|
|
442
|
431 /* Nonzero if any extent has changed since the last time redisplay completed. */
|
|
428
|
432 extern int extents_changed;
|
|
|
433 extern int extents_changed_set;
|
|
|
434
|
|
442
|
435 /* Nonzero if any face has changed since the last time redisplay completed. */
|
|
428
|
436 extern int faces_changed;
|
|
|
437
|
|
442
|
438 /* Nonzero means one or more frames have been marked as garbaged. */
|
|
428
|
439 extern int frame_changed;
|
|
|
440
|
|
|
441 /* True if any of the builtin display glyphs (continuation,
|
|
|
442 hscroll, control-arrow, etc) is in need of updating
|
|
|
443 somewhere. */
|
|
|
444 extern int glyphs_changed;
|
|
|
445 extern int glyphs_changed_set;
|
|
|
446
|
|
|
447 /* True if any displayed subwindow is in need of updating
|
|
|
448 somewhere. */
|
|
|
449 extern int subwindows_changed;
|
|
|
450 extern int subwindows_changed_set;
|
|
|
451
|
|
|
452 /* True if any displayed subwindow is in need of updating
|
|
|
453 somewhere. */
|
|
|
454 extern int subwindows_state_changed;
|
|
|
455 extern int subwindows_state_changed_set;
|
|
|
456
|
|
|
457 /* True if an icon is in need of updating somewhere. */
|
|
|
458 extern int icon_changed;
|
|
|
459 extern int icon_changed_set;
|
|
|
460
|
|
|
461 /* True if a menubar is in need of updating somewhere. */
|
|
|
462 extern int menubar_changed;
|
|
|
463 extern int menubar_changed_set;
|
|
|
464
|
|
442
|
465 /* True iff we should redraw the modelines on the next redisplay. */
|
|
428
|
466 extern int modeline_changed;
|
|
|
467 extern int modeline_changed_set;
|
|
|
468
|
|
442
|
469 /* Nonzero if point has changed in some buffer since the last time
|
|
|
470 redisplay completed. */
|
|
428
|
471 extern int point_changed;
|
|
|
472 extern int point_changed_set;
|
|
|
473
|
|
442
|
474 /* Nonzero if some frame has changed its size. */
|
|
428
|
475 extern int size_changed;
|
|
|
476
|
|
442
|
477 /* Nonzero if some device has signaled that it wants to change size. */
|
|
428
|
478 extern int asynch_device_change_pending;
|
|
|
479
|
|
442
|
480 /* Nonzero if any toolbar has changed. */
|
|
428
|
481 extern int toolbar_changed;
|
|
|
482 extern int toolbar_changed_set;
|
|
|
483
|
|
442
|
484 /* Nonzero if any gutter has changed. */
|
|
428
|
485 extern int gutter_changed;
|
|
|
486 extern int gutter_changed_set;
|
|
|
487
|
|
442
|
488 /* Nonzero if any window has changed since the last time redisplay completed */
|
|
428
|
489 extern int windows_changed;
|
|
|
490
|
|
442
|
491 /* Nonzero if any frame's window structure has changed since the last
|
|
|
492 time redisplay completed. */
|
|
428
|
493 extern int windows_structure_changed;
|
|
|
494
|
|
|
495 /* These macros can be relatively expensive. Since they are often
|
|
|
496 called numerous times between each call to redisplay, we keep track
|
|
|
497 if each has already been called and don't bother doing most of the
|
|
|
498 work if it is currently set. */
|
|
|
499
|
|
|
500 #define MARK_TYPE_CHANGED(object) do { \
|
|
|
501 if (!object##_changed_set) { \
|
|
|
502 Lisp_Object MTC_devcons, MTC_concons; \
|
|
|
503 DEVICE_LOOP_NO_BREAK (MTC_devcons, MTC_concons) \
|
|
|
504 { \
|
|
|
505 Lisp_Object MTC_frmcons; \
|
|
|
506 struct device *MTC_d = XDEVICE (XCAR (MTC_devcons)); \
|
|
|
507 DEVICE_FRAME_LOOP (MTC_frmcons, MTC_d) \
|
|
|
508 { \
|
|
|
509 struct frame *MTC_f = XFRAME (XCAR (MTC_frmcons)); \
|
|
|
510 MTC_f->object##_changed = 1; \
|
|
|
511 MTC_f->modiff++; \
|
|
|
512 } \
|
|
|
513 MTC_d->object##_changed = 1; \
|
|
|
514 } \
|
|
|
515 object##_changed = 1; \
|
|
|
516 object##_changed_set = 1; } \
|
|
|
517 } while (0)
|
|
|
518
|
|
|
519 #define MARK_BUFFERS_CHANGED MARK_TYPE_CHANGED (buffers)
|
|
|
520 #define MARK_CLIP_CHANGED MARK_TYPE_CHANGED (clip)
|
|
|
521 #define MARK_EXTENTS_CHANGED MARK_TYPE_CHANGED (extents)
|
|
|
522 #define MARK_ICON_CHANGED MARK_TYPE_CHANGED (icon)
|
|
|
523 #define MARK_MENUBAR_CHANGED MARK_TYPE_CHANGED (menubar)
|
|
|
524 #define MARK_MODELINE_CHANGED MARK_TYPE_CHANGED (modeline)
|
|
|
525 #define MARK_POINT_CHANGED MARK_TYPE_CHANGED (point)
|
|
|
526 #define MARK_TOOLBAR_CHANGED MARK_TYPE_CHANGED (toolbar)
|
|
|
527 #define MARK_GUTTER_CHANGED MARK_TYPE_CHANGED (gutter)
|
|
|
528 #define MARK_GLYPHS_CHANGED MARK_TYPE_CHANGED (glyphs)
|
|
|
529 #define MARK_SUBWINDOWS_CHANGED MARK_TYPE_CHANGED (subwindows)
|
|
|
530 #define MARK_SUBWINDOWS_STATE_CHANGED MARK_TYPE_CHANGED (subwindows_state)
|
|
|
531
|
|
|
532
|
|
|
533 #define CLASS_RESET_CHANGED_FLAGS(p) do { \
|
|
|
534 (p)->buffers_changed = 0; \
|
|
|
535 (p)->clip_changed = 0; \
|
|
|
536 (p)->extents_changed = 0; \
|
|
|
537 (p)->faces_changed = 0; \
|
|
|
538 (p)->frame_changed = 0; \
|
|
|
539 (p)->icon_changed = 0; \
|
|
|
540 (p)->menubar_changed = 0; \
|
|
|
541 (p)->modeline_changed = 0; \
|
|
|
542 (p)->point_changed = 0; \
|
|
|
543 (p)->toolbar_changed = 0; \
|
|
|
544 (p)->gutter_changed = 0; \
|
|
|
545 (p)->glyphs_changed = 0; \
|
|
|
546 (p)->subwindows_changed = 0; \
|
|
|
547 (p)->subwindows_state_changed = 0; \
|
|
|
548 (p)->windows_changed = 0; \
|
|
|
549 (p)->windows_structure_changed = 0; \
|
|
|
550 } while (0)
|
|
|
551
|
|
|
552 #define GLOBAL_RESET_CHANGED_FLAGS do { \
|
|
|
553 buffers_changed = 0; \
|
|
|
554 clip_changed = 0; \
|
|
|
555 extents_changed = 0; \
|
|
|
556 frame_changed = 0; \
|
|
|
557 icon_changed = 0; \
|
|
|
558 menubar_changed = 0; \
|
|
|
559 modeline_changed = 0; \
|
|
|
560 point_changed = 0; \
|
|
|
561 toolbar_changed = 0; \
|
|
|
562 gutter_changed = 0; \
|
|
|
563 glyphs_changed = 0; \
|
|
|
564 subwindows_changed = 0; \
|
|
442
|
565 subwindows_state_changed = 0; \
|
|
428
|
566 windows_changed = 0; \
|
|
|
567 windows_structure_changed = 0; \
|
|
|
568 } while (0)
|
|
|
569
|
|
|
570 #define CLASS_REDISPLAY_FLAGS_CHANGEDP(p) \
|
|
|
571 ( (p)->buffers_changed || \
|
|
|
572 (p)->clip_changed || \
|
|
|
573 (p)->extents_changed || \
|
|
|
574 (p)->faces_changed || \
|
|
|
575 (p)->frame_changed || \
|
|
|
576 (p)->icon_changed || \
|
|
|
577 (p)->menubar_changed || \
|
|
|
578 (p)->modeline_changed || \
|
|
|
579 (p)->point_changed || \
|
|
|
580 (p)->toolbar_changed || \
|
|
|
581 (p)->gutter_changed || \
|
|
|
582 (p)->glyphs_changed || \
|
|
442
|
583 (p)->size_changed || \
|
|
428
|
584 (p)->subwindows_changed || \
|
|
|
585 (p)->subwindows_state_changed || \
|
|
|
586 (p)->windows_changed || \
|
|
|
587 (p)->windows_structure_changed )
|
|
|
588
|
|
|
589 #define GLOBAL_REDISPLAY_FLAGS_CHANGEDP \
|
|
|
590 ( buffers_changed || \
|
|
|
591 clip_changed || \
|
|
|
592 extents_changed || \
|
|
|
593 faces_changed || \
|
|
|
594 frame_changed || \
|
|
|
595 icon_changed || \
|
|
|
596 menubar_changed || \
|
|
|
597 modeline_changed || \
|
|
|
598 point_changed || \
|
|
|
599 toolbar_changed || \
|
|
|
600 gutter_changed || \
|
|
|
601 glyphs_changed || \
|
|
430
|
602 size_changed || \
|
|
428
|
603 subwindows_changed || \
|
|
|
604 subwindows_state_changed || \
|
|
|
605 windows_changed || \
|
|
|
606 windows_structure_changed )
|
|
|
607
|
|
|
608
|
|
|
609 /* Anytime a console, device or frame is added or deleted we need to reset
|
|
|
610 these flags. */
|
|
|
611 #define RESET_CHANGED_SET_FLAGS do { \
|
|
|
612 buffers_changed_set = 0; \
|
|
|
613 clip_changed_set = 0; \
|
|
|
614 extents_changed_set = 0; \
|
|
|
615 icon_changed_set = 0; \
|
|
|
616 menubar_changed_set = 0; \
|
|
|
617 modeline_changed_set = 0; \
|
|
|
618 point_changed_set = 0; \
|
|
|
619 toolbar_changed_set = 0; \
|
|
|
620 gutter_changed_set = 0; \
|
|
|
621 glyphs_changed_set = 0; \
|
|
|
622 subwindows_changed_set = 0; \
|
|
|
623 subwindows_state_changed_set = 0; \
|
|
|
624 } while (0)
|
|
|
625
|
|
|
626
|
|
|
627 /*************************************************************************/
|
|
|
628 /* redisplay global variables */
|
|
|
629 /*************************************************************************/
|
|
|
630
|
|
|
631 /* redisplay structure used by various utility routines. */
|
|
|
632 extern display_line_dynarr *cmotion_display_lines;
|
|
|
633
|
|
|
634 /* Nonzero means truncate lines in all windows less wide than the frame. */
|
|
|
635 extern int truncate_partial_width_windows;
|
|
|
636
|
|
|
637 /* Nonzero if we're in a display critical section. */
|
|
|
638 extern int in_display;
|
|
|
639
|
|
|
640 /* Nonzero means no need to redraw the entire frame on resuming
|
|
|
641 a suspended Emacs. This is useful on terminals with multiple pages,
|
|
|
642 where one page is used for Emacs and another for all else. */
|
|
|
643 extern int no_redraw_on_reenter;
|
|
|
644
|
|
442
|
645 /* Non-nil means flash the frame instead of ringing the bell. */
|
|
|
646 extern Lisp_Object Vvisible_bell;
|
|
428
|
647
|
|
|
648 /* Thickness of shadow border around 3D modelines. */
|
|
|
649 extern Lisp_Object Vmodeline_shadow_thickness;
|
|
|
650
|
|
|
651 /* Scroll if point lands on the bottom line and that line is partially
|
|
|
652 clipped. */
|
|
|
653 extern int scroll_on_clipped_lines;
|
|
|
654
|
|
|
655 extern Lisp_Object Vglobal_mode_string;
|
|
|
656
|
|
|
657 /* The following two variables are defined in emacs.c and are used
|
|
|
658 to convey information discovered on the command line way early
|
|
|
659 (before *anything* is initialized). */
|
|
|
660
|
|
|
661 /* If non-zero, a window-system was specified on the command line.
|
|
|
662 Defined in emacs.c. */
|
|
|
663 extern int display_arg;
|
|
|
664
|
|
|
665 /* Type of display specified. Defined in emacs.c. */
|
|
442
|
666 extern const char *display_use;
|
|
428
|
667
|
|
|
668 /* Nonzero means reading single-character input with prompt
|
|
|
669 so put cursor on minibuffer after the prompt. */
|
|
|
670
|
|
|
671 extern int cursor_in_echo_area;
|
|
|
672
|
|
|
673 extern Lisp_Object Qbar_cursor, Qcursor_in_echo_area, Vwindow_system;
|
|
|
674
|
|
442
|
675 extern Lisp_Object Qtop_bottom;
|
|
|
676
|
|
428
|
677
|
|
|
678 /*************************************************************************/
|
|
|
679 /* redisplay exported functions */
|
|
|
680 /*************************************************************************/
|
|
|
681 EXFUN (Fredraw_frame, 2);
|
|
|
682
|
|
|
683 int redisplay_text_width_string (struct window *w, int findex,
|
|
|
684 Bufbyte *nonreloc, Lisp_Object reloc,
|
|
|
685 Bytecount offset, Bytecount len);
|
|
|
686 int redisplay_frame_text_width_string (struct frame *f,
|
|
|
687 Lisp_Object face,
|
|
|
688 Bufbyte *nonreloc,
|
|
|
689 Lisp_Object reloc,
|
|
|
690 Bytecount offset, Bytecount len);
|
|
442
|
691 int redisplay_frame (struct frame *f, int preemption_check);
|
|
428
|
692 void redisplay (void);
|
|
|
693 struct display_block *get_display_block_from_line (struct display_line *dl,
|
|
|
694 enum display_type type);
|
|
|
695 layout_bounds calculate_display_line_boundaries (struct window *w,
|
|
|
696 int modeline);
|
|
|
697 Bufpos point_at_center (struct window *w, int type, Bufpos start,
|
|
|
698 Bufpos point);
|
|
|
699 int line_at_center (struct window *w, int type, Bufpos start, Bufpos point);
|
|
|
700 int window_half_pixpos (struct window *w);
|
|
|
701 void redisplay_echo_area (void);
|
|
|
702 void free_display_structs (struct window_mirror *mir);
|
|
|
703 void free_display_lines (display_line_dynarr *dla);
|
|
442
|
704 void mark_redisplay_structs (display_line_dynarr *dla);
|
|
428
|
705 void generate_displayable_area (struct window *w, Lisp_Object disp_string,
|
|
|
706 int xpos, int ypos, int width, int height,
|
|
|
707 display_line_dynarr* dl,
|
|
|
708 Bufpos start_pos, face_index default_face);
|
|
438
|
709 /* `generate_title_string' in frame.c needs this */
|
|
|
710 void generate_formatted_string_db (Lisp_Object format_str,
|
|
|
711 Lisp_Object result_str,
|
|
|
712 struct window *w,
|
|
|
713 struct display_line *dl,
|
|
|
714 struct display_block *db,
|
|
|
715 face_index findex,
|
|
|
716 int min_pixpos, int max_pixpos, int type);
|
|
428
|
717 int real_current_modeline_height (struct window *w);
|
|
|
718 int pixel_to_glyph_translation (struct frame *f, int x_coord,
|
|
|
719 int y_coord, int *col, int *row,
|
|
|
720 int *obj_x, int *obj_y,
|
|
|
721 struct window **w, Bufpos *bufpos,
|
|
|
722 Bufpos *closest, Charcount *modeline_closest,
|
|
|
723 Lisp_Object *obj1, Lisp_Object *obj2);
|
|
|
724 void glyph_to_pixel_translation (struct window *w, int char_x,
|
|
|
725 int char_y, int *pix_x, int *pix_y);
|
|
|
726 void mark_redisplay (void);
|
|
|
727 int point_in_line_start_cache (struct window *w, Bufpos point,
|
|
|
728 int min_past);
|
|
|
729 int point_would_be_visible (struct window *w, Bufpos startp,
|
|
|
730 Bufpos point);
|
|
|
731 Bufpos start_of_last_line (struct window *w, Bufpos startp);
|
|
|
732 Bufpos end_of_last_line (struct window *w, Bufpos startp);
|
|
|
733 Bufpos start_with_line_at_pixpos (struct window *w, Bufpos point,
|
|
|
734 int pixpos);
|
|
|
735 Bufpos start_with_point_on_display_line (struct window *w, Bufpos point,
|
|
|
736 int line);
|
|
|
737 int redisplay_variable_changed (Lisp_Object sym, Lisp_Object *val,
|
|
|
738 Lisp_Object in_object, int flags);
|
|
|
739 void redisplay_glyph_changed (Lisp_Object glyph, Lisp_Object property,
|
|
|
740 Lisp_Object locale);
|
|
|
741
|
|
|
742 #ifdef MEMORY_USAGE_STATS
|
|
|
743 int compute_display_line_dynarr_usage (display_line_dynarr *dyn,
|
|
|
744 struct overhead_stats *ovstats);
|
|
|
745 int compute_line_start_cache_dynarr_usage (line_start_cache_dynarr *dyn,
|
|
|
746 struct overhead_stats *ovstats);
|
|
|
747 #endif
|
|
|
748
|
|
|
749
|
|
|
750 /* defined in redisplay-output.c */
|
|
|
751 int get_next_display_block (layout_bounds bounds,
|
|
|
752 display_block_dynarr *dba, int start_pos,
|
|
|
753 int *next_start);
|
|
442
|
754 void redisplay_output_layout (Lisp_Object domain,
|
|
428
|
755 Lisp_Object image_instance,
|
|
|
756 struct display_box* db, struct display_glyph_area* dga,
|
|
|
757 face_index findex, int cursor_start, int cursor_width,
|
|
|
758 int cursor_height);
|
|
|
759 void redisplay_output_subwindow (struct window *w,
|
|
|
760 Lisp_Object image_instance,
|
|
|
761 struct display_box* db, struct display_glyph_area* dga,
|
|
|
762 face_index findex, int cursor_start, int cursor_width,
|
|
|
763 int cursor_height);
|
|
|
764 void redisplay_unmap_subwindows_maybe (struct frame* f, int x, int y, int width, int height);
|
|
|
765 void redisplay_output_pixmap (struct window *w,
|
|
|
766 Lisp_Object image_instance,
|
|
|
767 struct display_box* db, struct display_glyph_area* dga,
|
|
|
768 face_index findex, int cursor_start, int cursor_width,
|
|
|
769 int cursor_height, int offset_bitmap);
|
|
|
770 int redisplay_calculate_display_boxes (struct display_line *dl, int xpos,
|
|
|
771 int xoffset, int start_pixpos, int width,
|
|
|
772 struct display_box* dest,
|
|
|
773 struct display_glyph_area* src);
|
|
|
774 int redisplay_normalize_glyph_area (struct display_box* dest,
|
|
|
775 struct display_glyph_area* glyphsrc);
|
|
|
776 void redisplay_clear_to_window_end (struct window *w, int ypos1, int ypos2);
|
|
|
777 void redisplay_clear_region (Lisp_Object window, face_index findex, int x,
|
|
|
778 int y, int width, int height);
|
|
448
|
779 void redisplay_clear_top_of_window (struct window *w);
|
|
428
|
780 void redisplay_clear_bottom_of_window (struct window *w,
|
|
|
781 display_line_dynarr *ddla,
|
|
|
782 int min_start, int max_end);
|
|
|
783 void redisplay_update_line (struct window *w, int first_line,
|
|
|
784 int last_line, int update_values);
|
|
|
785 void redisplay_output_window (struct window *w);
|
|
|
786 void bevel_modeline (struct window *w, struct display_line *dl);
|
|
|
787 int redisplay_move_cursor (struct window *w, Bufpos new_point,
|
|
|
788 int no_output_end);
|
|
|
789 void redisplay_redraw_cursor (struct frame *f, int run_begin_end_meths);
|
|
|
790 void output_display_line (struct window *w, display_line_dynarr *cdla,
|
|
|
791 display_line_dynarr *ddla, int line,
|
|
|
792 int force_start, int force_end);
|
|
442
|
793 void sync_display_line_structs (struct window *w, int line, int do_blocks,
|
|
|
794 display_line_dynarr *cdla,
|
|
|
795 display_line_dynarr *ddla);
|
|
428
|
796
|
|
440
|
797 #endif /* INCLUDED_redisplay_h_ */
|
