annotate src/redisplay.h @ 853:2b6fa2618f76

[xemacs-hg @ 2002-05-28 08:44:22 by ben] merge my stderr-proc ws make-docfile.c: Fix places where we forget to check for EOF. code-init.el: Don't use CRLF conversion by default on process output. CMD.EXE and friends work both ways but Cygwin programs don't like the CRs. code-process.el, multicast.el, process.el: Removed. Improvements to call-process-internal: -- allows a buffer to be specified for input and stderr output -- use it on all systems -- implement C-g as documented -- clean up and comment call-process-region uses new call-process facilities; no temp file. remove duplicate funs in process.el. comment exactly how coding systems work and fix various problems. open-multicast-group now does similar coding-system frobbing to open-network-stream. dumped-lisp.el, faces.el, msw-faces.el: Fix some hidden errors due to code not being defined at the right time. xemacs.mak: Add -DSTRICT. ================================================================ ALLOW SEPARATION OF STDOUT AND STDERR IN PROCESSES ================================================================ Standard output and standard error can be processed separately in a process. Each can have its own buffer, its own mark in that buffer, and its filter function. You can specify a separate buffer for stderr in `start-process' to get things started, or use the new primitives: set-process-stderr-buffer process-stderr-buffer process-stderr-mark set-process-stderr-filter process-stderr-filter Also, process-send-region takes a 4th optional arg, a buffer. Currently always uses a pipe() under Unix to read the error output. (#### Would a PTY be better?) sysdep.h, sysproc.h, unexfreebsd.c, unexsunos4.c, nt.c, emacs.c, callproc.c, symsinit.h, sysdep.c, Makefile.in.in, process-unix.c: Delete callproc.c. Move child_setup() to process-unix.c. wait_for_termination() now only needed on a few really old systems. console-msw.h, event-Xt.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.h, process-nt.c, process-unix.c, process.c, process.h, procimpl.h: Rewrite the process methods to handle a separate channel for error input. Create Lstreams for reading in the error channel. Many process methods need change. In general the changes are fairly clear as they involve duplicating what's used for reading the normal stdout and changing for stderr -- although tedious, as such changes are required throughout the entire process code. Rewrote the code that reads process output to do two loops, one for stdout and one for stderr. gpmevent.c, tooltalk.c: set_process_filter takes an argument for stderr. ================================================================ NEW ERROR-TRAPPING MECHANISM ================================================================ Totally rewrite error trapping code to be unified and support more features. Basic function is call_trapping_problems(), which lets you specify, by means of flags, what sorts of problems you want trapped. these can include -- quit -- errors -- throws past the function -- creation of "display objects" (e.g. buffers) -- deletion of already-existing "display objects" (e.g. buffers) -- modification of already-existing buffers -- entering the debugger -- gc -- errors->warnings (ala suspended errors) etc. All other error funs rewritten in terms of this one. Various older mechanisms removed or rewritten. window.c, insdel.c, console.c, buffer.c, device.c, frame.c: When creating a display object, added call to note_object_created(), for use with trapping_problems mechanism. When deleting, call check_allowed_operation() and note_object deleted(). The trapping-problems code records the objects created since the call-trapping-problems began. Those objects can be deleted, but none others (i.e. previously existing ones). bytecode.c, cmdloop.c: internal_catch takes another arg. eval.c: Add long comments describing the "five lists" used to maintain state (backtrace, gcpro, specbind, etc.) in the Lisp engine. backtrace.h, eval.c: Implement trapping-problems mechanism, eliminate old mechanisms or redo in terms of new one. frame.c, gutter.c: Flush out the concept of "critical display section", defined by the in_display() var. Use an internal_bind() to get it reset, rather than just doing it at end, because there may be a non-local exit. event-msw.c, event-stream.c, console-msw.h, device.c, dialog-msw.c, frame.c, frame.h, intl.c, toolbar.c, menubar-msw.c, redisplay.c, alloc.c, menubar-x.c: Make use of new trapping-errors stuff and rewrite code based on old mechanisms. glyphs-widget.c, redisplay.h: Protect calling Lisp in redisplay. insdel.c: Protect hooks against deleting existing buffers. frame-msw.c: Use EQ, not EQUAL in hash tables whose keys are just numbers. Otherwise we run into stickiness in redisplay because internal_equal() can QUIT. ================================================================ SIGNAL, C-G CHANGES ================================================================ Here we change the way that C-g interacts with event reading. The idea is that a C-g occurring while we're reading a user event should be read as C-g, but elsewhere should be a QUIT. The former code did all sorts of bizarreness -- requiring that no QUIT occurs anywhere in event-reading code (impossible to enforce given the stuff called or Lisp code invoked), and having some weird system involving enqueue/dequeue of a C-g and interaction with Vquit_flag -- and it didn't work. Now, we simply enclose all code where we want C-g read as an event with {begin/end}_dont_check_for_quit(). This completely turns off the mechanism that checks (and may remove or alter) C-g in the read-ahead queues, so we just get the C-g normal. Signal.c documents this very carefully. cmdloop.c: Correct use of dont_check_for_quit to new scheme, remove old out-of-date comments. event-stream.c: Fix C-g handling to actually work. device-x.c: Disable quit checking when err out. signal.c: Cleanup. Add large descriptive comment. process-unix.c, process-nt.c, sysdep.c: Use QUIT instead of REALLY_QUIT. It's not necessary to use REALLY_QUIT and just confuses the issue. lisp.h: Comment quit handlers. ================================================================ CONS CHANGES ================================================================ free_cons() now takes a Lisp_Object not the result of XCONS(). car and cdr have been renamed so that they don't get used directly; go through XCAR(), XCDR() instead. alloc.c, dired.c, editfns.c, emodules.c, fns.c, glyphs-msw.c, glyphs-x.c, glyphs.c, keymap.c, minibuf.c, search.c, eval.c, lread.c, lisp.h: Correct free_cons calling convention: now takes Lisp_Object, not Lisp_Cons chartab.c: Eliminate direct use of ->car, ->cdr, should be black box. callint.c: Rewrote using EXTERNAL_LIST_LOOP to avoid use of Lisp_Cons. ================================================================ USE INTERNAL-BIND-* ================================================================ eval.c: Cleanups of these funs. alloc.c, fileio.c, undo.c, specifier.c, text.c, profile.c, lread.c, redisplay.c, menubar-x.c, macros.c: Rewrote to use internal_bind_int() and internal_bind_lisp_object() in place of whatever varied and cumbersome mechanisms were formerly there. ================================================================ SPECBIND SANITY ================================================================ backtrace.h: - Improved comments backtrace.h, bytecode.c, eval.c: Add new mechanism check_specbind_stack_sanity() for sanity checking code each time the catchlist or specbind stack change. Removed older prototype of same mechanism. ================================================================ MISC ================================================================ lisp.h, insdel.c, window.c, device.c, console.c, buffer.c: Fleshed out authorship. device-msw.c: Correct bad Unicode-ization. print.c: Be more careful when not initialized or in fatal error handling. search.c: Eliminate running_asynch_code, an FSF holdover. alloc.c: Added comments about gc-cons-threshold. dialog-x.c: Use begin_gc_forbidden() around code to build up a widget value tree, like in menubar-x.c. gui.c: Use Qunbound not Qnil as the default for gethash. lisp-disunion.h, lisp-union.h: Added warnings on use of VOID_TO_LISP(). lisp.h: Use ERROR_CHECK_STRUCTURES to turn on ERROR_CHECK_TRAPPING_PROBLEMS and ERROR_CHECK_TYPECHECK lisp.h: Add assert_with_message. lisp.h: Add macros for gcproing entire arrays. (You could do this before but it required manual twiddling the gcpro structure.) lisp.h: Add prototypes for new functions defined elsewhere.
author ben
date Tue, 28 May 2002 08:45:36 +0000
parents 6728e641994e
children 804517e16990
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 /* Redisplay data structures.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 Copyright (C) 1996 Chuck Thompson.
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
4 Copyright (C) 1995, 1996, 2002 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 under the terms of the GNU General Public License as published by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 /* Synched up with: Not in FSF. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
25 #ifndef INCLUDED_redisplay_h_
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
26 #define INCLUDED_redisplay_h_
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 /* Redisplay DASSERT types */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 #define DB_DISP_POS 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 #define DB_DISP_TEXT_LAYOUT 2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 #define DB_DISP_REDISPLAY 4
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 /* These are the possible return values from pixel_to_glyph_translation. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 #define OVER_MODELINE 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 #define OVER_TEXT 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36 #define OVER_OUTSIDE 2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 #define OVER_NOTHING 3
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 #define OVER_BORDER 4
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 #define OVER_TOOLBAR 5
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 #define OVER_V_DIVIDER 6
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 #define NO_BLOCK -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 /* Imagine that the text in the buffer is displayed on a piece of paper
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 the width of the frame and very very tall. The line start cache is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 an array of struct line_start_cache's, describing the start and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 end buffer positions for a contiguous set of lines on that piece
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 of paper. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 typedef struct line_start_cache line_start_cache;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 struct line_start_cache
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
53 Charbpos start, end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 int height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 typedef struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 Dynarr_declare (line_start_cache);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 } line_start_cache_dynarr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 /* The possible types of runes.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 #### The Lisp_Glyph type is broken. There should instead be a pixmap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 type. Currently the device-specific output routines have to worry
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 about whether the glyph is textual or not, etc. For Mule this is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 a big problem because you might need multiple fonts to display the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 text. It also eliminates optimizations that could come from glumping
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 the text of multiple text glyphs together -- this makes displaying
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 binary files (with lots of control chars, etc.) very very slow. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 #define RUNE_BLANK 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 #define RUNE_CHAR 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 #define RUNE_DGLYPH 2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 #define RUNE_HLINE 3
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 #define RUNE_VLINE 4
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 #define CURSOR_ON 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 #define CURSOR_OFF 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 #define NO_CURSOR 2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 #define NEXT_CURSOR 3
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 #define IGNORE_CURSOR 4
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 #define DEFAULT_INDEX (face_index) 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 #define MODELINE_INDEX (face_index) 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 /* A rune is a single display element, such as a printable character
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 or pixmap. Any single character in a buffer has one or more runes
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 (or zero, if the character is invisible) corresponding to it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 (Printable characters typically have one rune associated with them,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 but control characters have two -- a ^ and a letter -- and other
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 non-printing characters (those displayed in octal) have four. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 /* WARNING! In compare_runes (one of the most heavily used functions)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 two runes are compared. So please be careful with changes to this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 structure. See comments in compare_runes.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 #### This should really be made smaller.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 */
432
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
100
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 typedef struct rune rune;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 struct rune
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 face_index findex; /* face rune is displayed with. The
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 face_index is an index into a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 window-specific array of face cache
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 elements. Each face cache element
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 corresponds to one "merged face"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 (the result of merging all the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 faces that overlap the rune) and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 contains the instance values for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 each of the face properties in this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 particular window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
115 Charxpos charpos; /* buffer position this rune is displaying;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 for the modeline, the value here is a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 Charcount, but who's looking? */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
118 Charxpos endpos; /* if set this rune covers a range of pos;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
119 used in redisplay_move_cursor(). */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 /* #### Chuck, what does it mean for a rune
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 to cover a range of pos? I don't get
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 this. */
432
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
123
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
124
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 short xpos; /* horizontal starting position in pixels */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 short width; /* pixel width of rune */
432
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
127
3a7e78e1142d Import from CVS: tag r21-2-24
cvs
parents: 430
diff changeset
128
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 unsigned char cursor_type; /* is this rune covered by the cursor? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 unsigned char type; /* type of rune object */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 /* We used to do bitfields here, but if I
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 (JV) count correctly that doesn't matter
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133 for the size of the structure. All the bit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134 fiddling _does_ slow down redisplay by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135 about 10%. So don't do that */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137 union /* Information specific to the type of rune */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 {
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
139 /* #### Glyphs are rare. Is it really necessary to waste 8 bytes on every
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 rune for that?! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 /* DGLYPH */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 Lisp_Object glyph;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 Lisp_Object extent; /* extent rune is attached to, if any.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 If this is a rune in the modeline
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 then this might be nil. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148
819
6504113e7c2d [xemacs-hg @ 2002-04-25 18:03:23 by andyp]
andyp
parents: 771
diff changeset
149 int ascent; /* Ascent of this glyph, in pixels. */
6504113e7c2d [xemacs-hg @ 2002-04-25 18:03:23 by andyp]
andyp
parents: 771
diff changeset
150 int descent; /* Descent of this glyph, in pixels. */
6504113e7c2d [xemacs-hg @ 2002-04-25 18:03:23 by andyp]
andyp
parents: 771
diff changeset
151 int yoffset; /* Offset from line top to reach glyph top */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 int xoffset; /* Number of pixels that need to be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 chopped off the left of the glyph.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 This has the effect of shifting the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 glyph to the left while still clipping
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 at XPOS. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 } dglyph;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 /* CHAR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 Emchar ch; /* Character of this rune. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 } chr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 /* HLINE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168 short thickness; /* how thick to make hline */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 short yoffset; /* how far down from top of line to put top */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 } hline;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 } object; /* actual rune object */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 typedef struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 Dynarr_declare (rune);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 } rune_dynarr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 /* These must have distinct values. Note that the ordering actually
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 represents priority levels. TEXT has the lowest priority level. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 enum display_type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 TEXT,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 LEFT_OUTSIDE_MARGIN,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 LEFT_INSIDE_MARGIN,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 RIGHT_INSIDE_MARGIN,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 RIGHT_OUTSIDE_MARGIN,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 OVERWRITE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 /* A display block represents a run of text on a single line.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 Apparently there is only one display block per line for each
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 of the types listed in `enum display_type'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 A display block consists mostly of an array of runes, one per
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 atomic display element (printable character, pixmap, etc.). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 /* #### Yuckity yuckity yuck yuck yuck yuck yuck!!
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 Chuck, I think you should redo this. It should not be the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 responsibility of the device-specific code to worry about
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 the different faces. The generic stuff in redisplay-output.c
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 should glump things up into sub-blocks, each of which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
204 corresponds to a single pixmap or a single run of text in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205 the same font.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207 It might still make sense for the device-specific output routine
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208 to get passed an entire display line. That way, it can make
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 calls to XDrawText() (which draws multiple runs of single-font
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210 data) instead of XDrawString(). The reason for this is to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 reduce the amount of X traffic, which will help things significantly
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 on a slow line. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 typedef struct display_block display_block;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 struct display_block
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217 enum display_type type; /* type of display block */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219 int start_pos; /* starting pixel position of block */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220 int end_pos; /* ending pixel position of block */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 rune_dynarr *runes; /* Dynamic array of runes */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225 typedef struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227 Dynarr_declare (display_block);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228 } display_block_dynarr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 typedef struct layout_bounds_type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 int left_out;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 int left_in;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 int left_white;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 int right_white;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 int right_in;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 int right_out;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 } layout_bounds;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 typedef struct glyph_block glyph_block;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 struct glyph_block
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 Lisp_Object glyph;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 Lisp_Object extent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 /* The rest are only used by margin routines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 face_index findex;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 int active;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 int width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 typedef struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 Dynarr_declare (glyph_block);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 } glyph_block_dynarr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 /*************************************************************************/
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
257 /* display lines */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 /*************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
260 /* Modeline commentary: IMO the modeline is handled very badly, we
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261 special case virtually *everything* in the redisplay routines for
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
262 the modeline. The fact that dl->charpos can be either a buffer
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263 position or a char count highlights this. There is no abstraction at
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 all that I can find and it means that the code is made very ugly as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 a result. Either we should treat the modeline *entirely* separately,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 or we should abstract to something that applies equally well to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 modeline and to buffer text, the things are not enormously different
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 after all and handling them identically at some level would
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 eliminate some bugs that still exist (mainly to do with modeline
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270 handling). This problem doesn't help trying to implement gutters
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271 which are somewhere in between buffer text and modeline text.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 Redisplay commentary: Everything in redisplay is tied very tightly
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 to the things that are being displayed, and the context,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 e.g. buffers and windows. According to Chuck this is so that we can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276 get speed, which seems fine to me, however this usage is extended
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
277 too far down the redisplay routines IMO. At some level there should
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 be functions that know how to display strings with extents and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 faces, regardless of buffer etc. After all the window system does
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
280 not care. <andy@xemacs.org> */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 typedef struct display_line display_line;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 struct display_line
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 short ypos; /* vertical position in pixels
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 of the baseline for this line. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 unsigned short ascent, descent; /* maximum values for this line.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 The ascent is the number of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 pixels above the baseline, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 the descent is the number of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 pixels below the baseline.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 The descent includes the baseline
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 pixel-row itself, I think. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 unsigned short clip; /* amount of bottom of line to clip
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 in pixels.*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 unsigned short top_clip; /* amount of top of line to clip
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 in pixels.*/
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
298 Charxpos charpos; /* first buffer position on line */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
299 Charxpos end_charpos; /* last buffer position on line */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
300 Charcount offset; /* adjustment to charpos vals */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 Charcount num_chars; /* # of chars on line
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302 including expansion of tabs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 and control chars */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304 int cursor_elt; /* rune block of TEXT display
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305 block cursor is at or -1 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 char used_prop_data; /* can't incrementally update if line
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 used propagation data */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 layout_bounds bounds; /* line boundary positions */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311 char modeline; /* t if this line is a modeline */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
313 char line_continuation; /* t if this line continues to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
314 next display line. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
315
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 /* Dynamic array of display blocks */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 display_block_dynarr *display_blocks;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 /* Dynamic arrays of left and right glyph blocks */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 glyph_block_dynarr *left_glyphs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 glyph_block_dynarr *right_glyphs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 face_index left_margin_findex;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 face_index right_margin_findex;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325 face_index default_findex;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
326 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
327
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328 #define DISPLAY_LINE_HEIGHT(dl) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329 (dl->ascent + dl->descent - (dl->clip + dl->top_clip))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
330 #define DISPLAY_LINE_YPOS(dl) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
331 (dl->ypos - (dl->ascent - dl->top_clip))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332 #define DISPLAY_LINE_YEND(dl) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333 ((dl->ypos + dl->descent) - dl->clip)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 typedef struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 Dynarr_declare (display_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 } display_line_dynarr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340 /* The following two structures are used to represent an area to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 displayed and where to display it. Using these two structures all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342 combinations of clipping and position can be accommodated. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344 /* This represents an area to be displayed into. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345 typedef struct display_box display_box;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
346 struct display_box
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348 int xpos; /* absolute horizontal position of area */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 int ypos; /* absolute vertical position of area */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 int width, height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353 /* This represents the area from a glyph to be displayed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354 typedef struct display_glyph_area display_glyph_area;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
355 struct display_glyph_area
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 int xoffset; /* horizontal offset of the glyph, +ve means
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 display the glyph with x offset by xoffset,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359 -ve means display starting xoffset into the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
360 glyph. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361 int yoffset; /* vertical offset of the glyph, +ve means
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
362 display the glyph with y offset by yoffset,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363 -ve means display starting xoffset into the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364 glyph. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 int width, height; /* width and height of glyph to display. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 /* It could be argued that the following two structs belong in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 extents.h, but they're only used by redisplay and it simplifies
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370 the header files to put them here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 typedef struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 Dynarr_declare (EXTENT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 } EXTENT_dynarr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 struct font_metric_info
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 int width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 int height; /* always ascent + descent; for convenience */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 int ascent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 int descent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 int proportional_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 /* NOTE NOTE NOTE: Currently the positions in an extent fragment
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
388 structure are Bytexpos's, not Charxpos's. This could change. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 struct extent_fragment
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 Lisp_Object object; /* buffer or string */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 struct frame *frm;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
394 Bytexpos pos, end;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 EXTENT_dynarr *extents;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 glyph_block_dynarr *begin_glyphs, *end_glyphs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397 unsigned int invisible:1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398 unsigned int invisible_ellipses:1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 unsigned int previously_invisible:1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 unsigned int invisible_ellipses_already_displayed:1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
403 #define EDGE_TOP 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
404 #define EDGE_LEFT 2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405 #define EDGE_BOTTOM 4
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 #define EDGE_RIGHT 8
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 #define EDGE_ALL (EDGE_TOP | EDGE_LEFT | EDGE_BOTTOM | EDGE_RIGHT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410 /*************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 /* change flags */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412 /*************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 /* Quick flags to signal redisplay. redisplay() sets them all to 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 when it finishes. If none of them are set when it starts, it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416 assumes that nothing needs to be done. Functions that make a change
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 that is (potentially) visible on the screen should set the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418 appropriate flag.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 If any of these flags are set, redisplay will look more carefully
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 to see if anything has really changed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
423 /* Nonzero if the contents of a buffer have changed since the last time
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
424 redisplay completed. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 extern int buffers_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426 extern int buffers_changed_set;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 /* Nonzero if head_clip or tail_clip of a buffer has changed
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
429 since last redisplay that finished. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 extern int clip_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 extern int clip_changed_set;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
433 /* Nonzero if any extent has changed since the last time redisplay completed. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 extern int extents_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 extern int extents_changed_set;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
437 /* Nonzero if any face has changed since the last time redisplay completed. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 extern int faces_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
440 /* Nonzero means one or more frames have been marked as garbaged. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 extern int frame_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 /* True if any of the builtin display glyphs (continuation,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 hscroll, control-arrow, etc) is in need of updating
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
445 somewhere. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446 extern int glyphs_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447 extern int glyphs_changed_set;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 /* True if any displayed subwindow is in need of updating
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 somewhere. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 extern int subwindows_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 extern int subwindows_changed_set;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 /* True if any displayed subwindow is in need of updating
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455 somewhere. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 extern int subwindows_state_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 extern int subwindows_state_changed_set;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459 /* True if an icon is in need of updating somewhere. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460 extern int icon_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 extern int icon_changed_set;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 /* True if a menubar is in need of updating somewhere. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464 extern int menubar_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465 extern int menubar_changed_set;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
467 /* True iff we should redraw the modelines on the next redisplay. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 extern int modeline_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 extern int modeline_changed_set;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
471 /* Nonzero if point has changed in some buffer since the last time
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
472 redisplay completed. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 extern int point_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474 extern int point_changed_set;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
476 /* Nonzero if some frame has changed its size. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477 extern int size_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
479 /* Nonzero if some device has signaled that it wants to change size. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480 extern int asynch_device_change_pending;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
482 /* Nonzero if any toolbar has changed. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 extern int toolbar_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 extern int toolbar_changed_set;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
486 /* Nonzero if any gutter has changed. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 extern int gutter_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 extern int gutter_changed_set;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
490 /* Nonzero if any window has changed since the last time redisplay completed */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 extern int windows_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
493 /* Nonzero if any frame's window structure has changed since the last
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
494 time redisplay completed. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 extern int windows_structure_changed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 /* These macros can be relatively expensive. Since they are often
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 called numerous times between each call to redisplay, we keep track
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 if each has already been called and don't bother doing most of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 work if it is currently set. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 #define MARK_TYPE_CHANGED(object) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 if (!object##_changed_set) { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 Lisp_Object MTC_devcons, MTC_concons; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 DEVICE_LOOP_NO_BREAK (MTC_devcons, MTC_concons) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 Lisp_Object MTC_frmcons; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 struct device *MTC_d = XDEVICE (XCAR (MTC_devcons)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 DEVICE_FRAME_LOOP (MTC_frmcons, MTC_d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 struct frame *MTC_f = XFRAME (XCAR (MTC_frmcons)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 MTC_f->object##_changed = 1; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 MTC_f->modiff++; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 MTC_d->object##_changed = 1; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517 object##_changed = 1; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518 object##_changed_set = 1; } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 #define MARK_BUFFERS_CHANGED MARK_TYPE_CHANGED (buffers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522 #define MARK_CLIP_CHANGED MARK_TYPE_CHANGED (clip)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 #define MARK_EXTENTS_CHANGED MARK_TYPE_CHANGED (extents)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 #define MARK_ICON_CHANGED MARK_TYPE_CHANGED (icon)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 #define MARK_MENUBAR_CHANGED MARK_TYPE_CHANGED (menubar)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526 #define MARK_MODELINE_CHANGED MARK_TYPE_CHANGED (modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 #define MARK_POINT_CHANGED MARK_TYPE_CHANGED (point)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528 #define MARK_TOOLBAR_CHANGED MARK_TYPE_CHANGED (toolbar)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529 #define MARK_GUTTER_CHANGED MARK_TYPE_CHANGED (gutter)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 #define MARK_GLYPHS_CHANGED MARK_TYPE_CHANGED (glyphs)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 #define MARK_SUBWINDOWS_CHANGED MARK_TYPE_CHANGED (subwindows)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532 #define MARK_SUBWINDOWS_STATE_CHANGED MARK_TYPE_CHANGED (subwindows_state)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535 #define CLASS_RESET_CHANGED_FLAGS(p) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536 (p)->buffers_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 (p)->clip_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538 (p)->extents_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 (p)->faces_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540 (p)->frame_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 (p)->icon_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542 (p)->menubar_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
543 (p)->modeline_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 (p)->point_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
545 (p)->toolbar_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546 (p)->gutter_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 (p)->glyphs_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548 (p)->subwindows_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 (p)->subwindows_state_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550 (p)->windows_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551 (p)->windows_structure_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554 #define GLOBAL_RESET_CHANGED_FLAGS do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
555 buffers_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556 clip_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 extents_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558 frame_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559 icon_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
560 menubar_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561 modeline_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
562 point_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
563 toolbar_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
564 gutter_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
565 glyphs_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566 subwindows_changed = 0; \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
567 subwindows_state_changed = 0; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568 windows_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 windows_structure_changed = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 #define CLASS_REDISPLAY_FLAGS_CHANGEDP(p) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 ( (p)->buffers_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 (p)->clip_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 (p)->extents_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576 (p)->faces_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 (p)->frame_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 (p)->icon_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 (p)->menubar_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 (p)->modeline_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 (p)->point_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582 (p)->toolbar_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
583 (p)->gutter_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584 (p)->glyphs_changed || \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
585 (p)->size_changed || \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 (p)->subwindows_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 (p)->subwindows_state_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 (p)->windows_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 (p)->windows_structure_changed )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591 #define GLOBAL_REDISPLAY_FLAGS_CHANGEDP \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 ( buffers_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593 clip_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
594 extents_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595 faces_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
596 frame_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
597 icon_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
598 menubar_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599 modeline_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
600 point_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
601 toolbar_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
602 gutter_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
603 glyphs_changed || \
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
604 size_changed || \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
605 subwindows_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
606 subwindows_state_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
607 windows_changed || \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
608 windows_structure_changed )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
609
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
610
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
611 /* Anytime a console, device or frame is added or deleted we need to reset
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
612 these flags. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
613 #define RESET_CHANGED_SET_FLAGS do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614 buffers_changed_set = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 clip_changed_set = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
616 extents_changed_set = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
617 icon_changed_set = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 menubar_changed_set = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619 modeline_changed_set = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620 point_changed_set = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 toolbar_changed_set = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622 gutter_changed_set = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623 glyphs_changed_set = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624 subwindows_changed_set = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625 subwindows_state_changed_set = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
627
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
628
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
629 /*************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
630 /* redisplay global variables */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
631 /*************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
632
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
633 /* redisplay structure used by various utility routines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
634 extern display_line_dynarr *cmotion_display_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
635
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
636 /* Nonzero means truncate lines in all windows less wide than the frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
637 extern int truncate_partial_width_windows;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
638
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
639 /* Nonzero if we're in a display critical section. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
640 extern int in_display;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
642 /* Nonzero means no need to redraw the entire frame on resuming
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643 a suspended Emacs. This is useful on terminals with multiple pages,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 where one page is used for Emacs and another for all else. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 extern int no_redraw_on_reenter;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
647 /* Non-nil means flash the frame instead of ringing the bell. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
648 extern Lisp_Object Vvisible_bell;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 /* Thickness of shadow border around 3D modelines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
651 extern Lisp_Object Vmodeline_shadow_thickness;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
652
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
653 /* Scroll if point lands on the bottom line and that line is partially
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
654 clipped. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
655 extern int scroll_on_clipped_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
657 extern Lisp_Object Vglobal_mode_string;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659 /* The following two variables are defined in emacs.c and are used
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
660 to convey information discovered on the command line way early
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
661 (before *anything* is initialized). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
662
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663 /* If non-zero, a window-system was specified on the command line.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664 Defined in emacs.c. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
665 extern int display_arg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
666
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667 /* Type of display specified. Defined in emacs.c. */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
668 extern const Char_ASCII *display_use;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
670 /* Nonzero means reading single-character input with prompt
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
671 so put cursor on minibuffer after the prompt. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673 extern int cursor_in_echo_area;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
674
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
675 extern Lisp_Object Qbar_cursor, Qcursor_in_echo_area, Vwindow_system;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
677 extern Lisp_Object Qtop_bottom;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
678
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
679
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
680 /*************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681 /* redisplay exported functions */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682 /*************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
683 EXFUN (Fredraw_frame, 2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
685 int redisplay_text_width_string (struct window *w, int findex,
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
686 Intbyte *nonreloc, Lisp_Object reloc,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
687 Bytecount offset, Bytecount len);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688 int redisplay_frame_text_width_string (struct frame *f,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689 Lisp_Object face,
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
690 Intbyte *nonreloc,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
691 Lisp_Object reloc,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692 Bytecount offset, Bytecount len);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
693 int redisplay_frame (struct frame *f, int preemption_check);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
694 void redisplay_no_pre_idle_hook (void);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695 void redisplay (void);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
696 Lisp_Object eval_within_redisplay (Lisp_Object dont_trust_this_damn_sucker);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697 struct display_block *get_display_block_from_line (struct display_line *dl,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698 enum display_type type);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
699 layout_bounds calculate_display_line_boundaries (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700 int modeline);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
701 Charbpos point_at_center (struct window *w, int type, Charbpos start,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
702 Charbpos point);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
703 int line_at_center (struct window *w, int type, Charbpos start,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
704 Charbpos point);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
705 int window_half_pixpos (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706 void redisplay_echo_area (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707 void free_display_structs (struct window_mirror *mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
708 void free_display_lines (display_line_dynarr *dla);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
709 void mark_redisplay_structs (display_line_dynarr *dla);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 void generate_displayable_area (struct window *w, Lisp_Object disp_string,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711 int xpos, int ypos, int width, int height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712 display_line_dynarr* dl,
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
713 Charbpos start_pos, face_index default_face);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 432
diff changeset
714 /* `generate_title_string' in frame.c needs this */
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 432
diff changeset
715 void generate_formatted_string_db (Lisp_Object format_str,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 432
diff changeset
716 Lisp_Object result_str,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 432
diff changeset
717 struct window *w,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 432
diff changeset
718 struct display_line *dl,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 432
diff changeset
719 struct display_block *db,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 432
diff changeset
720 face_index findex,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 432
diff changeset
721 int min_pixpos, int max_pixpos, int type);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
722 int real_current_modeline_height (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
723 int pixel_to_glyph_translation (struct frame *f, int x_coord,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
724 int y_coord, int *col, int *row,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
725 int *obj_x, int *obj_y,
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
726 struct window **w, Charbpos *charbpos,
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
727 Charbpos *closest, Charcount *modeline_closest,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
728 Lisp_Object *obj1, Lisp_Object *obj2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
729 void glyph_to_pixel_translation (struct window *w, int char_x,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
730 int char_y, int *pix_x, int *pix_y);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
731 int point_in_line_start_cache (struct window *w, Charbpos point,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
732 int min_past);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
733 int point_would_be_visible (struct window *w, Charbpos startp,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
734 Charbpos point);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
735 Charbpos start_of_last_line (struct window *w, Charbpos startp);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
736 Charbpos end_of_last_line (struct window *w, Charbpos startp);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
737 Charbpos start_with_line_at_pixpos (struct window *w, Charbpos point,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
738 int pixpos);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
739 Charbpos start_with_point_on_display_line (struct window *w, Charbpos point,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 819
diff changeset
740 int line);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
741 int redisplay_variable_changed (Lisp_Object sym, Lisp_Object *val,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
742 Lisp_Object in_object, int flags);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 void redisplay_glyph_changed (Lisp_Object glyph, Lisp_Object property,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744 Lisp_Object locale);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746 #ifdef MEMORY_USAGE_STATS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
747 int compute_display_line_dynarr_usage (display_line_dynarr *dyn,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748 struct overhead_stats *ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749 int compute_line_start_cache_dynarr_usage (line_start_cache_dynarr *dyn,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
750 struct overhead_stats *ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
752
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
753
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754 /* defined in redisplay-output.c */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 int get_next_display_block (layout_bounds bounds,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756 display_block_dynarr *dba, int start_pos,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757 int *next_start);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
758 void redisplay_output_layout (Lisp_Object domain,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
759 Lisp_Object image_instance,
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
760 struct display_box* db,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
761 struct display_glyph_area* dga,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
762 face_index findex, int cursor_start,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
763 int cursor_width,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
764 int cursor_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 void redisplay_output_subwindow (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
766 Lisp_Object image_instance,
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
767 struct display_box* db,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
768 struct display_glyph_area* dga,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
769 face_index findex, int cursor_start,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
770 int cursor_width,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
771 int cursor_height);
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
772 void redisplay_unmap_subwindows_maybe (struct frame* f, int x, int y,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
773 int width, int height);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
774 void redisplay_output_pixmap (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
775 Lisp_Object image_instance,
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
776 struct display_box* db,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
777 struct display_glyph_area* dga,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
778 face_index findex, int cursor_start,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 450
diff changeset
779 int cursor_width,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
780 int cursor_height, int offset_bitmap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
781 int redisplay_calculate_display_boxes (struct display_line *dl, int xpos,
819
6504113e7c2d [xemacs-hg @ 2002-04-25 18:03:23 by andyp]
andyp
parents: 771
diff changeset
782 int xoffset, int yoffset, int start_pixpos,
6504113e7c2d [xemacs-hg @ 2002-04-25 18:03:23 by andyp]
andyp
parents: 771
diff changeset
783 int width, struct display_box* dest,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
784 struct display_glyph_area* src);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
785 int redisplay_normalize_glyph_area (struct display_box* dest,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
786 struct display_glyph_area* glyphsrc);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
787 void redisplay_clear_to_window_end (struct window *w, int ypos1, int ypos2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
788 void redisplay_clear_region (Lisp_Object window, face_index findex, int x,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
789 int y, int width, int height);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
790 void redisplay_clear_top_of_window (struct window *w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
791 void redisplay_clear_bottom_of_window (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
792 display_line_dynarr *ddla,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
793 int min_start, int max_end);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
794 void redisplay_update_line (struct window *w, int first_line,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795 int last_line, int update_values);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
796 void redisplay_output_window (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
797 void bevel_modeline (struct window *w, struct display_line *dl);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
798 int redisplay_move_cursor (struct window *w, Charbpos new_point,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799 int no_output_end);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
800 void redisplay_redraw_cursor (struct frame *f, int run_begin_end_meths);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801 void output_display_line (struct window *w, display_line_dynarr *cdla,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802 display_line_dynarr *ddla, int line,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803 int force_start, int force_end);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
804 void sync_display_line_structs (struct window *w, int line, int do_blocks,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
805 display_line_dynarr *cdla,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
806 display_line_dynarr *ddla);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
807
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
808 #endif /* INCLUDED_redisplay_h_ */