annotate src/dispnew.c @ 464:4ddaee1a9029

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Fri, 20 Dec 1991 07:15:37 +0000
parents 1eb88445014d
children 8b101799ff37
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
314
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 /* Updating of data structures for redisplay.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2 Copyright (C) 1985, 1986, 1987, 1988, 1990 Free Software Foundation, Inc.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4 This file is part of GNU Emacs.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 the Free Software Foundation; either version 1, or (at your option)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 any later version.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 GNU General Public License for more details.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 #include <signal.h>
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 #include "config.h"
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 #include <stdio.h>
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25 #include <ctype.h>
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 #ifdef NEED_TIME_H
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28 #include <time.h>
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 #else /* not NEED_TIME_H */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30 #ifdef HAVE_TIMEVAL
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 #include <sys/time.h>
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 #endif /* HAVE_TIMEVAL */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 #endif /* not NEED_TIME_H */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 #ifdef HAVE_TERMIO
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 #include <termio.h>
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 #ifdef TCOUTQ
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 #undef TIOCOUTQ
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 #define TIOCOUTQ TCOUTQ
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40 #endif /* TCOUTQ defined */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 #include <fcntl.h>
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 #else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 #ifndef VMS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 #include <sys/ioctl.h>
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 #endif /* not VMS */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 #endif /* not HAVE_TERMIO */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 /* Allow m- file to inhibit use of FIONREAD. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 #ifdef BROKEN_FIONREAD
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 #undef FIONREAD
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 /* Interupt input is not used if there is no FIONREAD. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 #ifndef FIONREAD
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 #undef SIGIO
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 #undef NULL
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 #include "termchar.h"
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 #include "termopts.h"
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62 #include "cm.h"
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63 #include "lisp.h"
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64 #include "dispextern.h"
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 #include "buffer.h"
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 #include "screen.h"
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67 #include "window.h"
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68 #include "commands.h"
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69 #include "disptab.h"
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70 #include "indent.h"
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
72 #ifdef HAVE_X_WINDOWS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
73 #include "xterm.h"
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74 #endif /* HAVE_X_WINDOWS */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
76 #define max(a, b) ((a) > (b) ? (a) : (b))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77 #define min(a, b) ((a) < (b) ? (a) : (b))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
78
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
79 #ifndef PENDING_OUTPUT_COUNT
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80 /* Get number of chars of output now in the buffer of a stdio stream.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81 This ought to be built in in stdio, but it isn't.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82 Some s- files override this because their stdio internals differ. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
83 #define PENDING_OUTPUT_COUNT(FILE) ((FILE)->_ptr - (FILE)->_base)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
84 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
86 /* Nonzero means do not assume anything about current
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87 contents of actual terminal screen */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89 int screen_garbaged;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91 /* Nonzero means last display completed. Zero means it was preempted. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93 int display_completed;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
95 /* Lisp variable visible-bell; enables use of screen-flash
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
96 instead of audible bell. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
97
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98 int visible_bell;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
99
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100 /* Invert the color of the whole screen, at a low level. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102 int inverse_video;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104 /* Line speed of the terminal. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
105
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
106 int baud_rate;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
107
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
108 /* nil or a symbol naming the window system under which emacs is
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
109 running ('x is the only current possibility). */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
110
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
111 Lisp_Object Vwindow_system;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
112
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113 /* Version number of X windows: 10, 11 or nil. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
114 Lisp_Object Vwindow_system_version;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
115
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
116 /* Vector of glyph definitions. Indexed by glyph number,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
117 the contents are a string which is how to output the glyph.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
119 If Vglyph_table is nil, a glyph is output by using its low 8 bits
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120 as a character code. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
121
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
122 Lisp_Object Vglyph_table;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124 /* Display table to use for vectors that don't specify their own. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126 Lisp_Object Vstandard_display_table;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128 /* Nonzero means reading single-character input with prompt
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129 so put cursor on minibuffer after the prompt. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131 int cursor_in_echo_area;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
132
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133 /* The currently selected screen.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
134 In a single-screen version, this variable always remains 0. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 SCREEN_PTR selected_screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 /* In a single-screen version, the information that would otherwise
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 exist inside a `struct screen' lives in the following variables instead. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 #ifndef MULTI_SCREEN
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 /* Desired terminal cursor position (to show position of point),
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144 origin zero */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146 int cursX, cursY;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 /* Description of current screen contents */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
150 struct screen_glyphs *current_glyphs;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
152 /* Description of desired screen contents */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
153
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
154 struct screen_glyphs *desired_glyphs;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
156 #endif /* not MULTI_SCREEN */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
158 /* This is a vector, made larger whenever it isn't large enough,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
159 which is used inside `update_screen' to hold the old contents
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160 of the SCREEN_PHYS_LINES of the screen being updated. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161 struct screen_glyphs **ophys_lines;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
162 /* Length of vector currently allocated. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
163 int ophys_lines_length;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
164
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165 FILE *termscript; /* Stdio stream being used for copy of all output. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167 struct cm Wcm; /* Structure for info on cursor positioning */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
168
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
169 extern short ospeed; /* Output speed (from sg_ospeed) */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 int in_display; /* 1 if in redisplay: can't handle SIGWINCH now. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173 int delayed_size_change; /* 1 means SIGWINCH happened when not safe. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 int delayed_screen_height; /* Remembered new screen height. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175 int delayed_screen_width; /* Remembered new screen width. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177 #ifdef MULTI_SCREEN
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
178
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
179 DEFUN ("redraw-screen", Fredraw_screen, Sredraw_screen, 1, 1, 0,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180 "Clear screen SCREEN and output again what is supposed to appear on it.")
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 (screen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182 Lisp_Object screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 SCREEN_PTR s;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
185
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186 CHECK_SCREEN (screen, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
187 s = XSCREEN (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188 update_begin (s);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
189 /* set_terminal_modes (); */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
190 clear_screen ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191 update_end (s);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192 fflush (stdout);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
193 clear_screen_records (s);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
194 windows_or_buffers_changed++;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195 /* Mark all windows as INaccurate,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196 so that every window will have its redisplay done. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197 mark_window_display_accurate (SCREEN_ROOT_WINDOW (s), 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
198 s->garbaged = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199 return Qnil;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
201
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
202 DEFUN ("redraw-display", Fredraw_display, Sredraw_display, 0, 0, "",
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
203 "Redraw all screens marked as having their images garbled.")
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
204 ()
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
205 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
206 Lisp_Object screen, tail;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
207
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
208 for (tail = Vscreen_list; CONSP (tail); tail = XCONS (tail)->cdr)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 screen = XCONS (tail)->car;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
211 if (XSCREEN (screen)->garbaged && XSCREEN (screen)->visible)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212 Fredraw_screen (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214 return Qnil;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 redraw_screen (s)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218 SCREEN_PTR s;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
220 Lisp_Object screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221 XSET (screen, Lisp_Screen, s);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
222 Fredraw_screen (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
224
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
225 #else /* not MULTI_SCREEN */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
226
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
227 DEFUN ("redraw-display", Fredraw_display, Sredraw_display, 0, 0, 0,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
228 "Clear screen and output again what is supposed to appear on it.")
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
229 ()
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
230 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
231 update_begin (0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
232 set_terminal_modes ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
233 clear_screen ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
234 update_end (0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
235 fflush (stdout);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
236 clear_screen_records (0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
237 windows_or_buffers_changed++;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
238 /* Mark all windows as INaccurate,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
239 so that every window will have its redisplay done. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
240 mark_window_display_accurate (XWINDOW (minibuf_window)->prev, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
241 return Qnil;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
242 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
243
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
244 #endif /* not MULTI_SCREEN */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
245
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
246 static struct screen_glyphs *
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
247 make_screen_glyphs (screen, empty)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
248 register SCREEN_PTR screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
249 int empty;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
250 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 register int i;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
252 register width = SCREEN_WIDTH (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
253 register height = SCREEN_HEIGHT (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
254 register struct screen_glyphs *new =
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
255 (struct screen_glyphs *) xmalloc (sizeof (struct screen_glyphs));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
256
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
257 SET_GLYPHS_SCREEN (new, screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
258 new->height = height;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
259 new->width = width;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260 new->used = (int *) xmalloc (height * sizeof (int));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 new->glyphs = (GLYPH **) xmalloc (height * sizeof (GLYPH *));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262 new->highlight = (char *) xmalloc (height * sizeof (char));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263 new->enable = (char *) xmalloc (height * sizeof (char));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
264 bzero (new->enable, height * sizeof (char));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
265 new->bufp = (int *) xmalloc (height * sizeof (int));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
266
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267 #ifdef HAVE_X_WINDOWS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268 if (SCREEN_IS_X (screen))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
269 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
270 new->nruns = (int *) xmalloc (height * sizeof (int));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271 new->face_list
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
272 = (struct run **) xmalloc (height * sizeof (struct run *));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
273 new->top_left_x = (short *) xmalloc (height * sizeof (short));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
274 new->top_left_y = (short *) xmalloc (height * sizeof (short));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
275 new->pix_width = (short *) xmalloc (height * sizeof (short));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
276 new->pix_height = (short *) xmalloc (height * sizeof (short));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
277 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
278 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
279
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280 if (empty)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
281 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
282 /* Make the buffer used by decode_mode_spec. This buffer is also
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
283 used as temporary storage when updating the screen. See scroll.c. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
284 unsigned int total_glyphs = (width + 2) * sizeof (GLYPH);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
285
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 new->total_contents = (GLYPH *) xmalloc (total_glyphs);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
287 bzero (new->total_contents, total_glyphs);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
288 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
290 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291 unsigned int total_glyphs = height * (width + 2) * sizeof (GLYPH);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
292
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
293 new->total_contents = (GLYPH *) xmalloc (total_glyphs);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
294 bzero (new->total_contents, total_glyphs);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
295 for (i = 0; i < height; i++)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
296 new->glyphs[i] = new->total_contents + i * (width + 2) + 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
297 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
298
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
299 return new;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
302 static void
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303 free_screen_glyphs (screen, glyphs)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
304 SCREEN_PTR screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
305 struct screen_glyphs *glyphs;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
306 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
307 if (glyphs->total_contents)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
308 free (glyphs->total_contents);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
309
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
310 free (glyphs->used);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
311 free (glyphs->glyphs);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
312 free (glyphs->highlight);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313 free (glyphs->enable);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314 free (glyphs->bufp);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
316 #ifdef HAVE_X_WINDOWS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
317 if (SCREEN_IS_X (screen))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
318 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
319 free (glyphs->nruns);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
320 free (glyphs->face_list);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
321 free (glyphs->top_left_x);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322 free (glyphs->top_left_y);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323 free (glyphs->pix_width);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
324 free (glyphs->pix_height);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
326 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
327
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
328 free (glyphs);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
329 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
331 static void
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
332 remake_screen_glyphs (screen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
333 SCREEN_PTR screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
334 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
335 if (SCREEN_CURRENT_GLYPHS (screen))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336 free_screen_glyphs (screen, SCREEN_CURRENT_GLYPHS (screen));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
337 if (SCREEN_DESIRED_GLYPHS (screen))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
338 free_screen_glyphs (screen, SCREEN_DESIRED_GLYPHS (screen));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
339 if (SCREEN_TEMP_GLYPHS (screen))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
340 free_screen_glyphs (screen, SCREEN_TEMP_GLYPHS (screen));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
341
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
342 if (SCREEN_MESSAGE_BUF (screen))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
343 SCREEN_MESSAGE_BUF (screen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
344 = (char *) xrealloc (SCREEN_MESSAGE_BUF (screen),
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
345 SCREEN_WIDTH (screen) + 1);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
346 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
347 SCREEN_MESSAGE_BUF (screen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
348 = (char *) xmalloc (SCREEN_WIDTH (screen) + 1);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
349
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
350 SCREEN_CURRENT_GLYPHS (screen) = make_screen_glyphs (screen, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
351 SCREEN_DESIRED_GLYPHS (screen) = make_screen_glyphs (screen, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
352 SCREEN_TEMP_GLYPHS (screen) = make_screen_glyphs (screen, 1);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
353 SET_SCREEN_GARBAGED (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
354 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
355
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
356 /* Return the hash code of contents of line VPOS in screen-matrix M. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
357
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
358 static int
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
359 line_hash_code (m, vpos)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
360 register struct screen_glyphs *m;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
361 int vpos;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
362 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
363 register GLYPH *body, *end;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364 register int h = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
365
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
366 if (!m->enable[vpos])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
367 return 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
368
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369 /* Give all lighlighted lines the same hash code
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
370 so as to encourage scrolling to leave them in place. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
371 if (m->highlight[vpos])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
372 return -1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
373
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
374 body = m->glyphs[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
375
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376 if (must_write_spaces)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
377 while (1)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
378 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
379 GLYPH g = *body++;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
380
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
381 if (g == 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
382 break;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
383 h = (((h << 4) + (h >> 24)) & 0x0fffffff) + g - SPACEGLYPH;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
384 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
385 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
386 while (1)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
387 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
388 GLYPH g = *body++;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
389
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
390 if (g == 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
391 break;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
392 h = (((h << 4) + (h >> 24)) & 0x0fffffff) + g;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
393 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
394
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
395 if (h)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
396 return h;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
397 return 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
398 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
399
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
400 /* Return number of characters in line in M at vpos VPOS,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
401 except don't count leading and trailing spaces
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
402 unless the terminal requires those to be explicitly output. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
403
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
404 static unsigned int
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
405 line_draw_cost (m, vpos)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
406 struct screen_glyphs *m;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
407 int vpos;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
408 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
409 register GLYPH *beg = m->glyphs[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
410 register GLYPH *end = m->glyphs[vpos] + m->used[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
411 register int i;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
412 register int tlen = GLYPH_TABLE_LENGTH;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
413 register Lisp_Object *tbase = GLYPH_TABLE_BASE;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
414
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
415 /* Ignore trailing and leading spaces if we can. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
416 if (!must_write_spaces)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
417 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
418 while ((end != beg) && (*end == SPACEGLYPH))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
419 --end;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
420 if (end == beg)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
421 return (0); /* All blank line. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
422
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
423 while (*beg == SPACEGLYPH)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
424 ++beg;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
426
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
427 /* If we don't have a glyph-table, each glyph is one character,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
428 so return the number of glyphs. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429 if (tbase == 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
430 return end - beg;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
431
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432 /* Otherwise, scan the glyphs and accumulate their total size in I. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
433 i = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
434 while ((beg <= end) && *beg)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
435 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
436 register GLYPH g = *beg++;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
437
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
438 if (GLYPH_SIMPLE_P (tbase, tlen, g))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
439 i += 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
440 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
441 i += GLYPH_LENGTH (tbase, g);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
442 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
443 return i;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
444 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
445
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
446 /* The functions on this page are the interface from xdisp.c to redisplay.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
447
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
448 The only other interface into redisplay is through setting
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
449 SCREEN_CURSOR_X (screen) and SCREEN_CURSOR_Y (screen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
450 and SET_SCREEN_GARBAGED (screen). */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
451
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
452 /* cancel_line eliminates any request to display a line at position `vpos' */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
453
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
454 cancel_line (vpos, screen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
455 int vpos;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
456 register SCREEN_PTR screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
457 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
458 SCREEN_DESIRED_GLYPHS (screen)->enable[vpos] = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
459 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
460
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
461 clear_screen_records (screen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
462 register SCREEN_PTR screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
463 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
464 bzero (SCREEN_CURRENT_GLYPHS (screen)->enable, SCREEN_HEIGHT (screen));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
465 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
466
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
467 /* Prepare to display on line VPOS starting at HPOS within it. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
468
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
469 void
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
470 get_display_line (screen, vpos, hpos)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
471 register SCREEN_PTR screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
472 int vpos;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
473 register int hpos;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
474 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
475 register struct screen_glyphs *glyphs;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
476 register struct screen_glyphs *desired_glyphs = SCREEN_DESIRED_GLYPHS (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
477 register GLYPH *p;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
478
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
479 if (vpos < 0 || (! SCREEN_VISIBLE_P (screen)))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
480 abort ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
481
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
482 if ((desired_glyphs->enable[vpos]) && desired_glyphs->used[vpos] > hpos)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
483 abort ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
484
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
485 if (! desired_glyphs->enable[vpos])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
486 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
487 desired_glyphs->used[vpos] = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
488 desired_glyphs->highlight[vpos] = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
489 desired_glyphs->enable[vpos] = 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
490 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
491
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
492 if (hpos > desired_glyphs->used[vpos])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
493 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
494 GLYPH *g = desired_glyphs->glyphs[vpos] + desired_glyphs->used[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
495 GLYPH *end = desired_glyphs->glyphs[vpos] + hpos;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
496
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
497 desired_glyphs->used[vpos] = hpos;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
498 while (g != end)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
499 *g++ = SPACEGLYPH;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
500 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
501 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
502
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
503 /* Like bcopy except never gets confused by overlap. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
504
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
505 void
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
506 safe_bcopy (from, to, size)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
507 char *from, *to;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
508 int size;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
509 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
510 register char *endf;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
511 register char *endt;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
512
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513 if (size == 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514 return;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
515
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
516 /* If destination is higher in memory, and overlaps source zone,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
517 copy from the end. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
518 if (from < to && from + size > to)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
519 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
520 endf = from + size;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
521 endt = to + size;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
522
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
523 /* If TO - FROM is large, then we should break the copy into
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
524 nonoverlapping chunks of TO - FROM bytes each. However, if
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
525 TO - FROM is small, then the bcopy function call overhead
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
526 makes this not worth it. The crossover point could be about
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
527 anywhere. Since I don't think the obvious copy loop is ever
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
528 too bad, I'm trying to err in its favor. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529 if (to - from < 64)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
530 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
531 do
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
532 *--endt = *--endf;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
533 while (endf != from);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
534 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
535 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
536 {
352
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
537 /* Since TO - FROM >= 64, the overlap is less than SIZE,
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
538 so we can always safely do this loop once. */
314
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
539 while (endt > to)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
540 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
541 endt -= (to - from);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
542 endf -= (to - from);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
543
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
544 bcopy (endf, endt, to - from);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
545 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
546
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
547 /* If TO - FROM wasn't a multiple of SIZE, there will be a
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
548 little left over. The amount left over is
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
549 (endt + (to - from)) - to, which is endt - from. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
550 bcopy (from, to, endt - from);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
551 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
552 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
553 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
554 bcopy (from, to, size);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
555 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
556
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
557 #if 0
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
558 void
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
559 safe_bcopy (from, to, size)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
560 char *from, *to;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
561 int size;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
562 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
563 register char *endf;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
564 register char *endt;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
565
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
566 if (size == 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
567 return;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
568
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
569 /* If destination is higher in memory, and overlaps source zone,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
570 copy from the end. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
571 if (from < to && from + size > to)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
572 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
573 endf = from + size;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
574 endt = to + size;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
575
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
576 do
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
577 *--endt = *--endf;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
578 while (endf != from);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
579
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
580 return;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
581 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
582
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
583 bcopy (from, to, size);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
584 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
585 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
586
352
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
587 /* Rotate a vector of SIZE bytes right, by DISTANCE bytes.
314
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
588 DISTANCE may be negative. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
589
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
590 static void
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
591 rotate_vector (vector, size, distance)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
592 char *vector;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
593 int size;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
594 int distance;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
595 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
596 char *temp = (char *) alloca (size);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
597
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
598 if (distance < 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
599 distance += size;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
600
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
601 bcopy (vector, temp + distance, size - distance);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
602 bcopy (vector + size - distance, temp, distance);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
603 bcopy (temp, vector, size);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
604 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
605
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
606 /* Scroll lines from vpos FROM up to but not including vpos END
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
607 down by AMOUNT lines (AMOUNT may be negative).
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
608 Returns nonzero if done, zero if terminal cannot scroll them. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
609
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
610 int
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
611 scroll_screen_lines (screen, from, end, amount)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
612 register SCREEN_PTR screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
613 int from, end, amount;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
614 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
615 register int i;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
616 register struct screen_glyphs *current_screen
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
617 = SCREEN_CURRENT_GLYPHS (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
618
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
619 if (!line_ins_del_ok)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
620 return 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
621
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
622 if (amount == 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
623 return 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
624
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
625 if (amount > 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
626 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
627 update_begin (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
628 set_terminal_window (end + amount);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
629 if (!scroll_region_ok)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
630 ins_del_lines (end, -amount);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
631 ins_del_lines (from, amount);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
632 set_terminal_window (0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
633
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
634 rotate_vector (current_screen->glyphs + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
635 sizeof (GLYPH *) * (end + amount - from),
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
636 amount * sizeof (GLYPH *));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
637
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
638 safe_bcopy (current_screen->used + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
639 current_screen->used + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
640 (end - from) * sizeof current_screen->used[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
641
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
642 safe_bcopy (current_screen->highlight + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
643 current_screen->highlight + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
644 (end - from) * sizeof current_screen->highlight[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
645
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
646 safe_bcopy (current_screen->enable + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
647 current_screen->enable + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
648 (end - from) * sizeof current_screen->enable[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
649
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
650 /* Mark the lines made empty by scrolling as enabled, empty and
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
651 normal video. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
652 bzero (current_screen->used + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
653 amount * sizeof current_screen->used[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
654 bzero (current_screen->highlight + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
655 amount * sizeof current_screen->highlight[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
656 for (i = from; i < from + amount; i++)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
657 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
658 current_screen->glyphs[i][0] = '\0';
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
659 current_screen->enable[i] = 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
660 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
661
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
662 safe_bcopy (current_screen->bufp + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
663 current_screen->bufp + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
664 (end - from) * sizeof current_screen->bufp[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
665
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
666 #ifdef HAVE_X_WINDOWS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
667 if (SCREEN_IS_X (screen))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
668 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
669 safe_bcopy (current_screen->nruns + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
670 current_screen->nruns + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
671 (end - from) * sizeof current_screen->nruns[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
672
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
673 safe_bcopy (current_screen->face_list + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
674 current_screen->face_list + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
675 (end - from) * sizeof current_screen->face_list[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
676
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
677 safe_bcopy (current_screen->top_left_x + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
678 current_screen->top_left_x + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
679 (end - from) * sizeof current_screen->top_left_x[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
680
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
681 safe_bcopy (current_screen->top_left_y + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
682 current_screen->top_left_y + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
683 (end - from) * sizeof current_screen->top_left_y[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
684
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
685 safe_bcopy (current_screen->pix_width + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
686 current_screen->pix_width + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
687 (end - from) * sizeof current_screen->pix_width[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
688
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
689 safe_bcopy (current_screen->pix_height + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
690 current_screen->pix_height + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
691 (end - from) * sizeof current_screen->pix_height[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
692 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
693 #endif /* HAVE_X_WINDOWS */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
694
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
695 update_end (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
696 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
697 if (amount < 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
698 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
699 update_begin (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
700 set_terminal_window (end);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
701 ins_del_lines (from + amount, amount);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
702 if (!scroll_region_ok)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
703 ins_del_lines (end + amount, -amount);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
704 set_terminal_window (0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
705
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
706 rotate_vector (current_screen->glyphs + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
707 sizeof (GLYPH *) * (end - from - amount),
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
708 amount * sizeof (GLYPH *));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
709
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
710 safe_bcopy (current_screen->used + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
711 current_screen->used + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
712 (end - from) * sizeof current_screen->used[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
713
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
714 safe_bcopy (current_screen->highlight + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
715 current_screen->highlight + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
716 (end - from) * sizeof current_screen->highlight[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
717
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
718 safe_bcopy (current_screen->enable + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
719 current_screen->enable + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
720 (end - from) * sizeof current_screen->enable[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
721
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
722 /* Mark the lines made empty by scrolling as enabled, empty and
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
723 normal video. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
724 bzero (current_screen->used + end + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
725 - amount * sizeof current_screen->used[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
726 bzero (current_screen->highlight + end + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
727 - amount * sizeof current_screen->highlight[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
728 for (i = end + amount; i < end; i++)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
729 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
730 current_screen->glyphs[i][0] = '\0';
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
731 current_screen->enable[i] = 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
732 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
733
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
734 safe_bcopy (current_screen->bufp + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
735 current_screen->bufp + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
736 (end - from) * sizeof current_screen->bufp[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
737
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
738 #ifdef HAVE_X_WINDOWS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
739 if (SCREEN_IS_X (screen))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
740 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
741 safe_bcopy (current_screen->nruns + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
742 current_screen->nruns + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
743 (end - from) * sizeof current_screen->nruns[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
744
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
745 safe_bcopy (current_screen->face_list + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
746 current_screen->face_list + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
747 (end - from) * sizeof current_screen->face_list[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
748
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
749 safe_bcopy (current_screen->top_left_x + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
750 current_screen->top_left_x + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
751 (end - from) * sizeof current_screen->top_left_x[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
752
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
753 safe_bcopy (current_screen->top_left_y + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
754 current_screen->top_left_y + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
755 (end - from) * sizeof current_screen->top_left_y[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
756
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
757 safe_bcopy (current_screen->pix_width + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
758 current_screen->pix_width + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
759 (end - from) * sizeof current_screen->pix_width[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
760
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
761 safe_bcopy (current_screen->pix_height + from,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
762 current_screen->pix_height + from + amount,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
763 (end - from) * sizeof current_screen->pix_height[0]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
764 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
765 #endif /* HAVE_X_WINDOWS */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
766
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
767 update_end (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
768 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
769 return 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
770 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
771
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
772 /* After updating a window W that isn't the full screen wide,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
773 copy all the columns that W does not occupy
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
774 into the SCREEN_DESIRED_GLYPHS (screen) from the SCREEN_PHYS_GLYPHS (screen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
775 so that update_screen will not change those columns. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
776
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
777 preserve_other_columns (w)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
778 struct window *w;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
779 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
780 register int vpos;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
781 register struct screen_glyphs *current_screen, *desired_screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
782 register SCREEN_PTR screen = XSCREEN (w->screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
783 int start = XFASTINT (w->left);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
784 int end = XFASTINT (w->left) + XFASTINT (w->width);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
785 int bot = XFASTINT (w->top) + XFASTINT (w->height);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
786
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
787 current_screen = SCREEN_CURRENT_GLYPHS (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
788 desired_screen = SCREEN_DESIRED_GLYPHS (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
789
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
790 for (vpos = XFASTINT (w->top); vpos < bot; vpos++)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
791 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
792 if (current_screen->enable[vpos] && desired_screen->enable[vpos])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
793 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
794 if (start > 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
795 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
796 int len;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
797
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
798 bcopy (current_screen->glyphs[vpos],
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
799 desired_screen->glyphs[vpos], start);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
800 len = min (start, current_screen->used[vpos]);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
801 if (desired_screen->used[vpos] < len)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
802 desired_screen->used[vpos] = len;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
803 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
804 if (current_screen->used[vpos] > end
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
805 && desired_screen->used[vpos] < current_screen->used[vpos])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
806 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
807 while (desired_screen->used[vpos] < end)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
808 desired_screen->glyphs[vpos][desired_screen->used[vpos]++]
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
809 = SPACEGLYPH;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
810 bcopy (current_screen->glyphs[vpos] + end,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
811 desired_screen->glyphs[vpos] + end,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
812 current_screen->used[vpos] - end);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
813 desired_screen->used[vpos] = current_screen->used[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
814 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
815 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
816 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
817 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
818
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
819 #if 0
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
820
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
821 /* If window w does not need to be updated and isn't the full screen wide,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
822 copy all the columns that w does occupy
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
823 into the SCREEN_DESIRED_LINES (screen) from the SCREEN_PHYS_LINES (screen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
824 so that update_screen will not change those columns.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
825
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
826 Have not been able to figure out how to use this correctly. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
827
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
828 preserve_my_columns (w)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
829 struct window *w;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
830 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
831 register int vpos, fin;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
832 register struct screen_glyphs *l1, *l2;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
833 register SCREEN_PTR screen = XSCREEN (w->screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
834 int start = XFASTINT (w->left);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
835 int end = XFASTINT (w->left) + XFASTINT (w->width);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
836 int bot = XFASTINT (w->top) + XFASTINT (w->height);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
837
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
838 for (vpos = XFASTINT (w->top); vpos < bot; vpos++)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
839 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
840 if ((l1 = SCREEN_DESIRED_GLYPHS (screen)->glyphs[vpos + 1])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
841 && (l2 = SCREEN_PHYS_GLYPHS (screen)->glyphs[vpos + 1]))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
842 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
843 if (l2->length > start && l1->length < l2->length)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
844 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
845 fin = l2->length;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
846 if (fin > end) fin = end;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
847 while (l1->length < start)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
848 l1->body[l1->length++] = ' ';
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
849 bcopy (l2->body + start, l1->body + start, fin - start);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
850 l1->length = fin;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
851 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
852 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
853 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
854 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
855
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
856 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
857
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
858 /* On discovering that the redisplay for a window was no good,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
859 cancel the columns of that window, so that when the window is
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
860 displayed over again get_display_line will not complain. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
861
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
862 cancel_my_columns (w)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
863 struct window *w;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
864 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
865 register int vpos;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
866 register SCREEN_PTR screen = XSCREEN (w->screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
867 register struct screen_glyphs *desired_glyphs = screen->desired_glyphs;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
868 register int start = XFASTINT (w->left);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
869 register int bot = XFASTINT (w->top) + XFASTINT (w->height);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
870
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
871 for (vpos = XFASTINT (w->top); vpos < bot; vpos++)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
872 if (desired_glyphs->enable[vpos]
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
873 && desired_glyphs->used[vpos] >= start)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
874 desired_glyphs->used[vpos] = start;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
875 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
876
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
877 /* These functions try to perform directly and immediately on the screen
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
878 the necessary output for one change in the buffer.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
879 They may return 0 meaning nothing was done if anything is difficult,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
880 or 1 meaning the output was performed properly.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
881 They assume that the screen was up to date before the buffer
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
882 change being displayed. THey make various other assumptions too;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
883 see command_loop_1 where these are called. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
884
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
885 int
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
886 direct_output_for_insert (g)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
887 int g;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
888 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
889 register SCREEN_PTR screen = selected_screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
890 register struct screen_glyphs *current_screen
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
891 = SCREEN_CURRENT_GLYPHS (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
892
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
893 #ifndef COMPILER_REGISTER_BUG
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
894 register
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
895 #endif /* COMPILER_REGISTER_BUG */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
896 struct window *w = XWINDOW (selected_window);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
897 #ifndef COMPILER_REGISTER_BUG
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
898 register
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
899 #endif /* COMPILER_REGISTER_BUG */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
900 int hpos = SCREEN_CURSOR_X (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
901 #ifndef COMPILER_REGISTER_BUG
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
902 register
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
903 #endif /* COMPILER_REGISTER_BUG */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
904 int vpos = SCREEN_CURSOR_Y (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
905
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
906 /* Give up if about to continue line */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
907 if (hpos - XFASTINT (w->left) + 1 + 1 >= XFASTINT (w->width)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
908
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
909 /* Avoid losing if cursor is in invisible text off left margin */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
910 || (XINT (w->hscroll) && hpos == XFASTINT (w->left))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
911
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
912 /* Give up if cursor outside window (in minibuf, probably) */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
913 || SCREEN_CURSOR_Y (screen) < XFASTINT (w->top)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
914 || SCREEN_CURSOR_Y (screen) >= XFASTINT (w->top) + XFASTINT (w->height)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
915
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
916 /* Give up if cursor not really at SCREEN_CURSOR_X, SCREEN_CURSOR_Y */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
917 || !display_completed
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
918
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
919 /* Give up if buffer appears in two places. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
920 || buffer_shared > 1
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
921
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
922 /* Give up if w is minibuffer and a message is being displayed there */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
923 || (MINI_WINDOW_P (w) && echo_area_glyphs))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
924 return 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
925
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
926 current_screen->glyphs[vpos][hpos] = g;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
927 unchanged_modified = MODIFF;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
928 beg_unchanged = GPT - BEG;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
929 XFASTINT (w->last_point) = point;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
930 XFASTINT (w->last_point_x) = hpos;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
931 XFASTINT (w->last_modified) = MODIFF;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
932
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
933 reassert_line_highlight (0, vpos);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
934 write_glyphs (&current_screen->glyphs[vpos][hpos], 1);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
935 fflush (stdout);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
936 ++SCREEN_CURSOR_X (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
937 if (hpos == current_screen->used[vpos])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
938 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
939 current_screen->used[vpos] = hpos + 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
940 current_screen->glyphs[vpos][hpos + 1] = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
941 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
942
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
943 return 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
944 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
945
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
946 int
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
947 direct_output_forward_char (n)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
948 int n;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
949 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
950 register SCREEN_PTR screen = selected_screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
951 register struct window *w = XWINDOW (selected_window);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
952
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
953 /* Avoid losing if cursor is in invisible text off left margin */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
954 if (XINT (w->hscroll) && SCREEN_CURSOR_X (screen) == XFASTINT (w->left))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
955 return 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
956
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
957 SCREEN_CURSOR_X (screen) += n;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
958 XFASTINT (w->last_point_x) = SCREEN_CURSOR_X (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
959 XFASTINT (w->last_point) = point;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
960 cursor_to (SCREEN_CURSOR_Y (screen), SCREEN_CURSOR_X (screen));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
961 fflush (stdout);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
962 return 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
963 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
964
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
965 static void update_line ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
966
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
967 /* Update screen S based on the data in SCREEN_DESIRED_GLYPHS.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
968 Value is nonzero if redisplay stopped due to pending input.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
969 FORCE nonzero means do not stop for pending input. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
970
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
971 int
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
972 update_screen (s, force, inhibit_hairy_id)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
973 SCREEN_PTR s;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
974 int force;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
975 int inhibit_hairy_id;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
976 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
977 register struct screen_glyphs *current_screen = SCREEN_CURRENT_GLYPHS (s);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
978 register struct screen_glyphs *desired_screen = SCREEN_DESIRED_GLYPHS (s);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
979 register int i;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
980 int pause;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
981 int preempt_count = baud_rate / 2400 + 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
982 extern input_pending;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
983 #ifdef HAVE_X_WINDOWS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
984 register int downto, leftmost;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
985 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
986
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
987 if (SCREEN_HEIGHT (s) == 0) abort (); /* Some bug zeros some core */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
988
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
989 detect_input_pending ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
990 if (input_pending && !force)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
991 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
992 pause = 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
993 goto do_pause;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
994 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
995
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
996 update_begin (s);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
997
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
998 if (!line_ins_del_ok)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
999 inhibit_hairy_id = 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1000
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1001 /* Don't compute for i/d line if just want cursor motion. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1002 for (i = 0; i < SCREEN_HEIGHT (s); i++)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1003 if (desired_screen->enable[i])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1004 break;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1005
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1006 /* Try doing i/d line, if not yet inhibited. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1007 if (!inhibit_hairy_id && i < SCREEN_HEIGHT (s))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1008 force |= scrolling (s);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1009
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1010 /* Update the individual lines as needed. Do bottom line first. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1011
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1012 if (desired_screen->enable[SCREEN_HEIGHT (s) - 1])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1013 update_line (s, SCREEN_HEIGHT (s) - 1);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1014
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1015 #ifdef HAVE_X_WINDOWS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1016 if (SCREEN_IS_X (s))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1017 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1018 leftmost = downto = s->display.x->internal_border_width;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1019 if (desired_screen->enable[0])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1020 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1021 current_screen->top_left_x[SCREEN_HEIGHT (s) - 1] = leftmost;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1022 current_screen->top_left_y[SCREEN_HEIGHT (s) - 1]
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1023 = PIXEL_HEIGHT (s) - s->display.x->internal_border_width
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1024 - LINE_HEIGHT(s, SCREEN_HEIGHT (s) - 1);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1025 current_screen->top_left_x[0] = leftmost;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1026 current_screen->top_left_y[0] = downto;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1027 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1028 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1029 #endif /* HAVE_X_WINDOWS */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1030
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1031 /* Now update the rest of the lines. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1032 for (i = 0; i < SCREEN_HEIGHT (s) - 1 && (force || !input_pending); i++)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1033 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1034 if (desired_screen->enable[i])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1035 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1036 if (SCREEN_IS_TERMCAP (s))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1037 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1038 /* Flush out every so many lines.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1039 Also flush out if likely to have more than 1k buffered
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1040 otherwise. I'm told that some telnet connections get
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1041 really screwed by more than 1k output at once. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1042 int outq = PENDING_OUTPUT_COUNT (stdout);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1043 if (outq > 900
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1044 || (outq > 20 && ((i - 1) % preempt_count == 0)))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1045 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1046 fflush (stdout);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1047 if (preempt_count == 1)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1048 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1049 #ifdef TIOCOUTQ
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1050 if (ioctl (0, TIOCOUTQ, &outq) < 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1051 /* Probably not a tty. Ignore the error and reset
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1052 * the outq count. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1053 outq = PENDING_OUTPUT_COUNT (stdout);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1054 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1055 outq *= 10;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1056 sleep (outq / baud_rate);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1057 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1058 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1059 if ((i - 1) % preempt_count == 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1060 detect_input_pending ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1061 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1062
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1063 update_line (s, i);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1064 #ifdef HAVE_X_WINDOWS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1065 if (SCREEN_IS_X (s))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1066 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1067 current_screen->top_left_y[i] = downto;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1068 current_screen->top_left_x[i] = leftmost;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1069 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1070 #endif /* HAVE_X_WINDOWS */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1071 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1072
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1073 if (SCREEN_IS_X (s))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1074 downto += LINE_HEIGHT(s, i);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1075 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1076 pause = (i < SCREEN_HEIGHT (s) - 1) ? i : 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1077
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1078 /* Now just clean up termcap drivers and set cursor, etc. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1079 if (!pause)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1080 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1081
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1082 if (s == selected_screen && cursor_in_echo_area < 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1083 cursor_to (SCREEN_HEIGHT (s) - 1, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1084 else if (s == selected_screen && cursor_in_echo_area
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1085 && !desired_screen->used[SCREEN_HEIGHT (s) - 1])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1086 cursor_to (SCREEN_HEIGHT (s), 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1087 else if (cursor_in_echo_area)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1088 cursor_to (SCREEN_HEIGHT (s) - 1,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1089 min (SCREEN_WIDTH (s) - 1,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1090 desired_screen->used[SCREEN_HEIGHT (s) - 1]));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1091 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1092 cursor_to (SCREEN_CURSOR_Y (s), max (min (SCREEN_CURSOR_X (s),
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1093 SCREEN_WIDTH (s) - 1), 0));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1094 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1095
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1096 update_end (s);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1097
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1098 if (termscript)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1099 fflush (termscript);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1100 fflush (stdout);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1101
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1102 /* Here if output is preempted because input is detected. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1103 do_pause:
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1104
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1105 if (SCREEN_HEIGHT (s) == 0) abort (); /* Some bug zeros some core */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1106 display_completed = !pause;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1107
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1108 bzero (desired_screen->enable, SCREEN_HEIGHT (s));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1109 return pause;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1110 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1111
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1112 /* Called when about to quit, to check for doing so
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1113 at an improper time. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1114
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1115 void
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1116 quit_error_check ()
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1117 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1118 if (SCREEN_DESIRED_GLYPHS (selected_screen) == 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1119 return;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1120 if (SCREEN_DESIRED_GLYPHS (selected_screen)->enable[0])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1121 abort ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1122 if (SCREEN_DESIRED_GLYPHS (selected_screen)->enable[SCREEN_HEIGHT (selected_screen) - 1])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1123 abort ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1124 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1125
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1126 /* Decide what insert/delete line to do, and do it */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1127
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1128 extern void scrolling_1 ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1129
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1130 scrolling (screen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1131 SCREEN_PTR screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1132 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1133 int unchanged_at_top, unchanged_at_bottom;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1134 int window_size;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1135 int changed_lines;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1136 int *old_hash = (int *) alloca (SCREEN_HEIGHT (screen) * sizeof (int));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1137 int *new_hash = (int *) alloca (SCREEN_HEIGHT (screen) * sizeof (int));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1138 int *draw_cost = (int *) alloca (SCREEN_HEIGHT (screen) * sizeof (int));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1139 register int i;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1140 int free_at_end_vpos = SCREEN_HEIGHT (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1141 register struct screen_glyphs *current_screen = SCREEN_CURRENT_GLYPHS (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1142 register struct screen_glyphs *desired_screen = SCREEN_DESIRED_GLYPHS (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1143
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1144 /* Compute hash codes of all the lines.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1145 Also calculate number of changed lines,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1146 number of unchanged lines at the beginning,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1147 and number of unchanged lines at the end. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1148
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1149 changed_lines = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1150 unchanged_at_top = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1151 unchanged_at_bottom = SCREEN_HEIGHT (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1152 for (i = 0; i < SCREEN_HEIGHT (screen); i++)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1153 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1154 /* Give up on this scrolling if some old lines are not enabled. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1155 if (!current_screen->enable[i])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1156 return 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1157 old_hash[i] = line_hash_code (current_screen, i);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1158 if (! desired_screen->enable[i])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1159 new_hash[i] = old_hash[i];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1160 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1161 new_hash[i] = line_hash_code (desired_screen, i);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1162
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1163 if (old_hash[i] != new_hash[i])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1164 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1165 changed_lines++;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1166 unchanged_at_bottom = SCREEN_HEIGHT (screen) - i - 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1167 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1168 else if (i == unchanged_at_top)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1169 unchanged_at_top++;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1170 draw_cost[i] = line_draw_cost (desired_screen, i);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1171 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1172
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1173 /* If changed lines are few, don't allow preemption, don't scroll. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1174 if (changed_lines < baud_rate / 2400
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1175 || unchanged_at_bottom == SCREEN_HEIGHT (screen))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1176 return 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1177
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1178 window_size = (SCREEN_HEIGHT (screen) - unchanged_at_top
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1179 - unchanged_at_bottom);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1180
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1181 if (scroll_region_ok)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1182 free_at_end_vpos -= unchanged_at_bottom;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1183 else if (memory_below_screen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1184 free_at_end_vpos = -1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1185
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1186 /* If large window, fast terminal and few lines in common between
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1187 current screen and desired screen, don't bother with i/d calc. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1188 if (window_size >= 18 && baud_rate > 2400
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1189 && (window_size >=
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1190 10 * scrolling_max_lines_saved (unchanged_at_top,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1191 SCREEN_HEIGHT (screen) - unchanged_at_bottom,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1192 old_hash, new_hash, draw_cost)))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1193 return 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1194
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1195 scrolling_1 (screen, window_size, unchanged_at_top, unchanged_at_bottom,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1196 draw_cost + unchanged_at_top - 1,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1197 old_hash + unchanged_at_top - 1,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1198 new_hash + unchanged_at_top - 1,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1199 free_at_end_vpos - unchanged_at_top);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1200
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1201 return 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1202 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1203
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1204 /* Return the offset in its buffer of the character at location col, line
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1205 in the given window. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1206 int
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1207 buffer_posn_from_coords (window, col, line)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1208 struct window *window;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1209 int col, line;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1210 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1211 int window_left = XFASTINT (window->left);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1212
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1213 /* The actual width of the window is window->width less one for the
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1214 \ which ends wrapped lines, and less one if it's not the
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1215 rightmost window. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1216 int window_width = (XFASTINT (window->width) - 1
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1217 - (XFASTINT (window->width) + window_left
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1218 != SCREEN_WIDTH (XSCREEN (window->screen))));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1219
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1220 /* The screen's list of buffer positions of line starts. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1221 int *bufp = SCREEN_CURRENT_GLYPHS (XSCREEN (window->screen))->bufp;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1222
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1223 /* Since compute_motion will only operate on the current buffer,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1224 we need to save the old one and restore it when we're done. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1225 struct buffer *old_current_buffer = current_buffer;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1226 int posn;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1227
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1228 current_buffer = XBUFFER (window->buffer);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1229
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1230 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1231 /* compute_motion will find the buffer position corresponding to a
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1232 screen position, given a buffer position to start at and its
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1233 screen position, by scanning from the start to the goal. In
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1234 order to make this faster, we need to choose a starting buffer
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1235 position with a known screen position as close to the goal as
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1236 possible.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1237
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1238 The bufp array in the screen_glyphs structure gives the buffer
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1239 position of the first character on each screen line. This
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1240 would be a perfect starting location, except that there's no
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1241 way to know if this character really starts flush with the
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1242 beginning of the line or if it is being continued from the
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1243 previous line; characters like ?\M-x display as \370 and can
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1244 wrap off the end of one line onto the next.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1245
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1246 So what we do is start on the target line, and scan upwards
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1247 until we find a screen line that starts right after a newline
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1248 in the buffer, or at the top of the window; both of these
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1249 assure us that the character at bufp starts flush with the
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1250 beginning of the line. */
352
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1251 int start_line;
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1252
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1253 #if 0
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1254 /* Unfortunately, the bufp array doesn't seem to be updated properly. */
314
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1255
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1256 /* Only works for the leftmost window on a line. bufp is useless
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1257 for the others. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1258 if (window_left == 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1259 {
352
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1260 for (start_line = line; start_line > 0; start_line--)
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1261 if (FETCH_CHAR (bufp[XFASTINT (window->top) + start_line]-1)
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1262 == '\n')
314
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1263 break;
352
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1264 posn = bufp[XFASTINT (window->top) + start_line];
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1265 }
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1266 else
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1267 #endif
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1268 {
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1269 start_line = 0;
451
1eb88445014d *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 352
diff changeset
1270 posn = marker_position (window->start);
314
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1271 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1272
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1273 posn
352
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1274 = compute_motion (posn, start_line, window_left,
cd7ffb1fcb45 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 314
diff changeset
1275 ZV, line, col - window_left,
314
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1276 window_width, XINT (window->hscroll), 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1277 ->bufpos;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1278 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1279
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1280 current_buffer = old_current_buffer;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1281
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1282 return posn;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1283 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1284
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1285 static int
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1286 count_blanks (r)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1287 register GLYPH *r;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1288 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1289 register GLYPH *p = r;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1290 while (*r++ == SPACEGLYPH);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1291 return r - p - 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1292 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1293
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1294 static int
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1295 count_match (str1, str2)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1296 GLYPH *str1, *str2;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1297 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1298 register GLYPH *p1 = str1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1299 register GLYPH *p2 = str2;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1300 while (*p1++ == *p2++);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1301 return p1 - str1 - 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1302 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1303
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1304 /* Char insertion/deletion cost vector, from term.c */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1305 extern int *char_ins_del_vector;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1306
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1307 #define char_ins_del_cost(s) (&char_ins_del_vector[SCREEN_HEIGHT((s))])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1308
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1309 static void
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1310 update_line (screen, vpos)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1311 register SCREEN_PTR screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1312 int vpos;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1313 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1314 register GLYPH *obody, *nbody, *op1, *op2, *np1, *temp;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1315 int tem;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1316 int osp, nsp, begmatch, endmatch, olen, nlen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1317 int save;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1318 register struct screen_glyphs *current_screen
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1319 = SCREEN_CURRENT_GLYPHS (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1320 register struct screen_glyphs *desired_screen
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1321 = SCREEN_DESIRED_GLYPHS (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1322
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1323 if (desired_screen->highlight[vpos]
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1324 != (current_screen->enable[vpos] && current_screen->highlight[vpos]))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1325 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1326 change_line_highlight (desired_screen->highlight[vpos], vpos,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1327 (current_screen->enable[vpos] ?
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1328 current_screen->used[vpos] : 0));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1329 current_screen->enable[vpos] = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1330 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1331 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1332 reassert_line_highlight (desired_screen->highlight[vpos], vpos);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1333
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1334 if (! current_screen->enable[vpos])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1335 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1336 olen = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1337 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1338 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1339 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1340 obody = current_screen->glyphs[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1341 olen = current_screen->used[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1342 if (! current_screen->highlight[vpos])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1343 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1344 if (!must_write_spaces)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1345 while (obody[olen - 1] == SPACEGLYPH && olen > 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1346 olen--;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1347 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1348 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1349 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1350 /* For an inverse-video line, remember we gave it
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1351 spaces all the way to the screen edge
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1352 so that the reverse video extends all the way across. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1353
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1354 while (olen < SCREEN_WIDTH (screen) - 1)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1355 obody[olen++] = SPACEGLYPH;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1356 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1357 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1358
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1359 /* One way or another, this will enable the line being updated. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1360 current_screen->enable[vpos] = 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1361 current_screen->used[vpos] = desired_screen->used[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1362 current_screen->highlight[vpos] = desired_screen->highlight[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1363 current_screen->bufp[vpos] = desired_screen->bufp[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1364
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1365 #ifdef HAVE_X_WINDOWS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1366 if (SCREEN_IS_X (screen))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1367 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1368 current_screen->pix_width[vpos]
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1369 = current_screen->used[vpos]
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1370 * FONT_WIDTH (screen->display.x->font);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1371 current_screen->pix_height[vpos]
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1372 = FONT_HEIGHT (screen->display.x->font);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1373 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1374 #endif /* HAVE_X_WINDOWS */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1375
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1376 if (!desired_screen->enable[vpos])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1377 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1378 nlen = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1379 goto just_erase;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1380 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1381
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1382 nbody = desired_screen->glyphs[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1383 nlen = desired_screen->used[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1384
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1385 /* Pretend trailing spaces are not there at all,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1386 unless for one reason or another we must write all spaces. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1387 if (! desired_screen->highlight[vpos])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1388 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1389 if (!must_write_spaces)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1390 /* We know that the previous character byte contains 0. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1391 while (nbody[nlen - 1] == SPACEGLYPH)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1392 nlen--;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1393 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1394 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1395 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1396 /* For an inverse-video line, give it extra trailing spaces
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1397 all the way to the screen edge
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1398 so that the reverse video extends all the way across. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1399
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1400 while (nlen < SCREEN_WIDTH (screen) - 1)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1401 nbody[nlen++] = SPACEGLYPH;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1402 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1403
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1404 /* If there's no i/d char, quickly do the best we can without it. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1405 if (!char_ins_del_ok)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1406 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1407 int i,j;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1408
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1409 for (i = 0; i < nlen; i++)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1410 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1411 if (i >= olen || nbody[i] != obody[i]) /* A non-matching char. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1412 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1413 cursor_to (vpos, i);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1414 for (j = 1; (i + j < nlen &&
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1415 (i + j >= olen || nbody[i+j] != obody[i+j]));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1416 j++);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1417
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1418 /* Output this run of non-matching chars. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1419 write_glyphs (nbody + i, j);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1420 i += j - 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1421
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1422 /* Now find the next non-match. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1423 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1424 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1425
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1426 /* Clear the rest of the line, or the non-clear part of it. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1427 if (olen > nlen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1428 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1429 cursor_to (vpos, nlen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1430 clear_end_of_line (olen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1431 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1432
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1433 /* Exchange contents between current_screen and new_screen. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1434 temp = desired_screen->glyphs[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1435 desired_screen->glyphs[vpos] = current_screen->glyphs[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1436 current_screen->glyphs[vpos] = temp;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1437
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1438 return;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1439 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1440
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1441 if (!olen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1442 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1443 nsp = (must_write_spaces || desired_screen->highlight[vpos])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1444 ? 0 : count_blanks (nbody);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1445 if (nlen > nsp)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1446 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1447 cursor_to (vpos, nsp);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1448 write_glyphs (nbody + nsp, nlen - nsp);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1449 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1450
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1451 /* Exchange contents between current_screen and new_screen. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1452 temp = desired_screen->glyphs[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1453 desired_screen->glyphs[vpos] = current_screen->glyphs[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1454 current_screen->glyphs[vpos] = temp;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1455
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1456 return;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1457 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1458
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1459 obody[olen] = 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1460 save = nbody[nlen];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1461 nbody[nlen] = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1462
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1463 /* Compute number of leading blanks in old and new contents. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1464 osp = count_blanks (obody);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1465 if (!desired_screen->highlight[vpos])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1466 nsp = count_blanks (nbody);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1467 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1468 nsp = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1469
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1470 /* Compute number of matching chars starting with first nonblank. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1471 begmatch = count_match (obody + osp, nbody + nsp);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1472
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1473 /* Spaces in new match implicit space past the end of old. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1474 /* A bug causing this to be a no-op was fixed in 18.29. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1475 if (!must_write_spaces && osp + begmatch == olen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1476 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1477 np1 = nbody + nsp;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1478 while (np1[begmatch] == SPACEGLYPH)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1479 begmatch++;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1480 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1481
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1482 /* Avoid doing insert/delete char
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1483 just cause number of leading spaces differs
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1484 when the following text does not match. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1485 if (begmatch == 0 && osp != nsp)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1486 osp = nsp = min (osp, nsp);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1487
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1488 /* Find matching characters at end of line */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1489 op1 = obody + olen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1490 np1 = nbody + nlen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1491 op2 = op1 + begmatch - min (olen - osp, nlen - nsp);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1492 while (op1 > op2 && op1[-1] == np1[-1])
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1493 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1494 op1--;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1495 np1--;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1496 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1497 endmatch = obody + olen - op1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1498
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1499 /* Put correct value back in nbody[nlen].
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1500 This is important because direct_output_for_insert
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1501 can write into the line at a later point.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1502 If this screws up the zero at the end of the line, re-establish it. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1503 nbody[nlen] = save;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1504 obody[olen] = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1505
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1506 /* tem gets the distance to insert or delete.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1507 endmatch is how many characters we save by doing so.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1508 Is it worth it? */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1509
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1510 tem = (nlen - nsp) - (olen - osp);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1511 if (endmatch && tem
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1512 && (!char_ins_del_ok || endmatch <= char_ins_del_cost (screen)[tem]))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1513 endmatch = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1514
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1515 /* nsp - osp is the distance to insert or delete.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1516 If that is nonzero, begmatch is known to be nonzero also.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1517 begmatch + endmatch is how much we save by doing the ins/del.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1518 Is it worth it? */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1519
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1520 if (nsp != osp
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1521 && (!char_ins_del_ok
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1522 || begmatch + endmatch <= char_ins_del_cost (screen)[nsp - osp]))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1523 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1524 begmatch = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1525 endmatch = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1526 osp = nsp = min (osp, nsp);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1527 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1528
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1529 /* Now go through the line, inserting, writing and
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1530 deleting as appropriate. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1531
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1532 if (osp > nsp)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1533 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1534 cursor_to (vpos, nsp);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1535 delete_glyphs (osp - nsp);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1536 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1537 else if (nsp > osp)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1538 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1539 /* If going to delete chars later in line
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1540 and insert earlier in the line,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1541 must delete first to avoid losing data in the insert */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1542 if (endmatch && nlen < olen + nsp - osp)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1543 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1544 cursor_to (vpos, nlen - endmatch + osp - nsp);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1545 delete_glyphs (olen + nsp - osp - nlen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1546 olen = nlen - (nsp - osp);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1547 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1548 cursor_to (vpos, osp);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1549 insert_glyphs ((char *)0, nsp - osp);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1550 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1551 olen += nsp - osp;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1552
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1553 tem = nsp + begmatch + endmatch;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1554 if (nlen != tem || olen != tem)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1555 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1556 cursor_to (vpos, nsp + begmatch);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1557 if (!endmatch || nlen == olen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1558 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1559 /* If new text being written reaches right margin,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1560 there is no need to do clear-to-eol at the end.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1561 (and it would not be safe, since cursor is not
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1562 going to be "at the margin" after the text is done) */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1563 if (nlen == SCREEN_WIDTH (screen))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1564 olen = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1565 write_glyphs (nbody + nsp + begmatch, nlen - tem);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1566
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1567 #ifdef obsolete
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1568
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1569 /* the following code loses disastrously if tem == nlen.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1570 Rather than trying to fix that case, I am trying the simpler
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1571 solution found above. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1572
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1573 /* If the text reaches to the right margin,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1574 it will lose one way or another (depending on AutoWrap)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1575 to clear to end of line after outputting all the text.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1576 So pause with one character to go and clear the line then. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1577 if (nlen == SCREEN_WIDTH (screen) && fast_clear_end_of_line && olen > nlen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1578 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1579 /* endmatch must be zero, and tem must equal nsp + begmatch */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1580 write_glyphs (nbody + tem, nlen - tem - 1);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1581 clear_end_of_line (olen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1582 olen = 0; /* Don't let it be cleared again later */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1583 write_glyphs (nbody + nlen - 1, 1);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1584 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1585 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1586 write_glyphs (nbody + nsp + begmatch, nlen - tem);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1587 #endif /* OBSOLETE */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1588
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1589 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1590 else if (nlen > olen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1591 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1592 write_glyphs (nbody + nsp + begmatch, olen - tem);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1593 insert_glyphs (nbody + nsp + begmatch + olen - tem, nlen - olen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1594 olen = nlen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1595 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1596 else if (olen > nlen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1597 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1598 write_glyphs (nbody + nsp + begmatch, nlen - tem);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1599 delete_glyphs (olen - nlen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1600 olen = nlen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1601 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1602 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1603
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1604 just_erase:
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1605 /* If any unerased characters remain after the new line, erase them. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1606 if (olen > nlen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1607 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1608 cursor_to (vpos, nlen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1609 clear_end_of_line (olen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1610 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1611
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1612 /* Exchange contents between current_screen and new_screen. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1613 temp = desired_screen->glyphs[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1614 desired_screen->glyphs[vpos] = current_screen->glyphs[vpos];
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1615 current_screen->glyphs[vpos] = temp;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1616 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1617
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1618 DEFUN ("open-termscript", Fopen_termscript, Sopen_termscript,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1619 1, 1, "FOpen termscript file: ",
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1620 "Start writing all terminal output to FILE as well as the terminal.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1621 FILE = nil means just close any termscript file currently open.")
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1622 (file)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1623 Lisp_Object file;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1624 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1625 if (termscript != 0) fclose (termscript);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1626 termscript = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1627
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1628 if (! NULL (file))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1629 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1630 file = Fexpand_file_name (file, Qnil);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1631 termscript = fopen (XSTRING (file)->data, "w");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1632 if (termscript == 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1633 report_file_error ("Opening termscript", Fcons (file, Qnil));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1634 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1635 return Qnil;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1636 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1637
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1638
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1639 #ifdef SIGWINCH
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1640 window_change_signal ()
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1641 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1642 int width, height;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1643 extern int errno;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1644 int old_errno = errno;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1645
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1646 get_screen_size (&width, &height);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1647
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1648 /* The screen size change obviously applies to a termcap-controlled
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1649 screen. Find such a screen in the list, and assume it's the only
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1650 one (since the redisplay code always writes to stdout, not a
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1651 FILE * specified in the screen structure). Record the new size,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1652 but don't reallocate the data structures now. Let that be done
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1653 later outside of the signal handler. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1654
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1655 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1656 Lisp_Object tail;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1657
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1658 for (tail = Vscreen_list; CONSP (tail); tail = XCONS (tail)->cdr)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1659 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1660 SCREEN_PTR s = XSCREEN (XCONS (tail)->car);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1661
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1662 if (s->output_method == output_termcap)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1663 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1664 ++in_display;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1665 change_screen_size (s, height, width, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1666 --in_display;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1667 break;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1668 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1669 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1670 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1671
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1672 signal (SIGWINCH, window_change_signal);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1673 errno = old_errno;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1674 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1675 #endif /* SIGWINCH */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1676
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1677
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1678 /* Do any change in screen size that was requested by a signal. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1679
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1680 do_pending_window_change ()
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1681 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1682 /* If window_change_signal should have run before, run it now. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1683 while (delayed_size_change)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1684 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1685 Lisp_Object tail;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1686
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1687 delayed_size_change = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1688
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1689 for (tail = Vscreen_list; CONSP (tail); tail = XCONS (tail)->cdr)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1690 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1691 SCREEN_PTR s = XSCREEN (XCONS (tail)->car);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1692 int height = SCREEN_NEW_HEIGHT (s);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1693 int width = SCREEN_NEW_WIDTH (s);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1694
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1695 SCREEN_NEW_HEIGHT (s) = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1696 SCREEN_NEW_WIDTH (s) = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1697
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1698 if (height != 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1699 change_screen_size (s, height, width, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1700 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1701 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1702 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1703
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1704
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1705 /* Change the screen height and/or width. Values may be given as zero to
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1706 indicate no change is to take place. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1707
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1708 change_screen_size (screen, newlength, newwidth, pretend)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1709 register SCREEN_PTR screen;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1710 register int newlength, newwidth, pretend;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1711 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1712 /* If we can't deal with the change now, queue it for later. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1713 if (in_display)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1714 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1715 SCREEN_NEW_HEIGHT (screen) = newlength;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1716 SCREEN_NEW_WIDTH (screen) = newwidth;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1717 delayed_size_change = 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1718 return;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1719 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1720
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1721 /* This size-change overrides any pending one for this screen. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1722 SCREEN_NEW_HEIGHT (screen) = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1723 SCREEN_NEW_WIDTH (screen) = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1724
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1725 if ((newlength == 0 || newlength == SCREEN_HEIGHT (screen))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1726 && (newwidth == 0 || newwidth == SCREEN_WIDTH (screen)))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1727 return;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1728
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1729 if (newlength && newlength != SCREEN_HEIGHT (screen))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1730 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1731 if (XSCREEN (WINDOW_SCREEN (XWINDOW (SCREEN_MINIBUF_WINDOW (screen))))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1732 == screen
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1733 && ! EQ (SCREEN_MINIBUF_WINDOW (screen),
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1734 SCREEN_ROOT_WINDOW (screen)))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1735 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1736 /* Screen has both root and minibuffer. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1737 set_window_height (SCREEN_ROOT_WINDOW (screen),
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1738 newlength - 1, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1739 XFASTINT (XWINDOW (SCREEN_MINIBUF_WINDOW (screen))->top)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1740 = newlength - 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1741 set_window_height (SCREEN_MINIBUF_WINDOW (screen), 1, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1742 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1743 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1744 /* Screen has just one top-level window. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1745 set_window_height (SCREEN_ROOT_WINDOW (screen), newlength, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1746
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1747 if (SCREEN_IS_TERMCAP (screen) == output_termcap && !pretend)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1748 ScreenRows = newlength;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1749
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1750 #if 0
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1751 if (screen->output_method == output_termcap)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1752 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1753 screen_height = newlength;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1754 if (!pretend)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1755 ScreenRows = newlength;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1756 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1757 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1758 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1759
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1760 if (newwidth && newwidth != SCREEN_WIDTH (screen))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1761 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1762 set_window_width (SCREEN_ROOT_WINDOW (screen), newwidth, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1763 if (XSCREEN (WINDOW_SCREEN (XWINDOW (SCREEN_MINIBUF_WINDOW (screen))))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1764 == screen)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1765 set_window_width (SCREEN_MINIBUF_WINDOW (screen), newwidth, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1766 SCREEN_WIDTH (screen) = newwidth;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1767
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1768 if (SCREEN_IS_TERMCAP (screen) && !pretend)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1769 ScreenCols = newwidth;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1770 #if 0
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1771 if (screen->output_method == output_termcap)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1772 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1773 screen_width = newwidth;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1774 if (!pretend)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1775 ScreenCols = newwidth;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1776 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1777 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1778 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1779
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1780 if (newlength)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1781 SCREEN_HEIGHT (screen) = newlength;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1782
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1783 remake_screen_glyphs (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1784 calculate_costs (screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1785 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1786
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1787 DEFUN ("send-string-to-terminal", Fsend_string_to_terminal,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1788 Ssend_string_to_terminal, 1, 1, 0,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1789 "Send STRING to the terminal without alteration.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1790 Control characters in STRING will have terminal-dependent effects.")
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1791 (str)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1792 Lisp_Object str;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1793 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1794 CHECK_STRING (str, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1795 fwrite (XSTRING (str)->data, 1, XSTRING (str)->size, stdout);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1796 fflush (stdout);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1797 if (termscript)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1798 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1799 fwrite (XSTRING (str)->data, 1, XSTRING (str)->size, termscript);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1800 fflush (termscript);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1801 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1802 return Qnil;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1803 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1804
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1805 DEFUN ("ding", Fding, Sding, 0, 1, 0,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1806 "Beep, or flash the screen.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1807 Also, unless an argument is given,\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1808 terminate any keyboard macro currently executing.")
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1809 (arg)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1810 Lisp_Object arg;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1811 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1812 if (!NULL (arg))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1813 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1814 ring_bell ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1815 fflush (stdout);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1816 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1817 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1818 bitch_at_user ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1819
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1820 return Qnil;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1821 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1822
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1823 bitch_at_user ()
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1824 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1825 if (noninteractive)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1826 putchar (07);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1827 else if (!INTERACTIVE) /* Stop executing a keyboard macro. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1828 error ("Keyboard macro terminated by a command ringing the bell");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1829 else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1830 ring_bell ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1831 fflush (stdout);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1832 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1833
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1834 DEFUN ("sleep-for", Fsleep_for, Ssleep_for, 1, 2, 0,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1835 "Pause, without updating display, for ARG seconds.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1836 Optional second arg non-nil means ARG is measured in milliseconds.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1837 \(Not all operating systems support milliseconds.)")
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1838 (n, millisec)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1839 Lisp_Object n, millisec;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1840 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1841 #ifndef subprocesses
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1842 #ifdef HAVE_TIMEVAL
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1843 struct timeval timeout, end_time, garbage1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1844 #endif /* HAVE_TIMEVAL */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1845 #endif /* no subprocesses */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1846 int usec = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1847 int sec;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1848
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1849 CHECK_NUMBER (n, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1850 sec = XINT (n);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1851 if (sec <= 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1852 return Qnil;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1853
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1854 if (!NULL (millisec))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1855 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1856 #ifndef HAVE_TIMEVAL
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1857 error ("millisecond sit-for not supported on %s", SYSTEM_TYPE);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1858 #else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1859 usec = sec % 1000 * 1000;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1860 sec /= 1000;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1861 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1862 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1863
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1864 #ifdef subprocesses
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1865 wait_reading_process_input (sec, usec, 0, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1866 #else /* No subprocesses */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1867 immediate_quit = 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1868 QUIT;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1869
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1870 #ifdef VMS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1871 sys_sleep (sec);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1872 #else /* not VMS */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1873 /* The reason this is done this way
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1874 (rather than defined (H_S) && defined (H_T))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1875 is because the VMS preprocessor doesn't grok `defined' */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1876 #ifdef HAVE_SELECT
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1877 #ifdef HAVE_TIMEVAL
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1878 gettimeofday (&end_time, &garbage1);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1879 end_time.tv_sec += sec;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1880 end_time.tv_usec += usec;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1881 if (end_time.tv_usec >= 1000000)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1882 end_time.tv_sec++, end_time.tv_usec -= 1000000;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1883
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1884 while (1)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1885 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1886 gettimeofday (&timeout, &garbage1);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1887 timeout.tv_sec = end_time.tv_sec - timeout.tv_sec;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1888 timeout.tv_usec = end_time.tv_usec - timeout.tv_usec;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1889 if (timeout.tv_usec < 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1890 timeout.tv_usec += 1000000, timeout.tv_sec--;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1891 if (timeout.tv_sec < 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1892 break;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1893 if (!select (1, 0, 0, 0, &timeout))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1894 break;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1895 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1896 #else /* not HAVE_TIMEVAL */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1897 /* Is it safe to quit out of `sleep'? I'm afraid to trust it. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1898 sleep (sec);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1899 #endif /* HAVE_TIMEVAL */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1900 #else /* not HAVE_SELECT */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1901 sleep (sec);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1902 #endif /* HAVE_SELECT */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1903 #endif /* not VMS */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1904
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1905 immediate_quit = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1906 #endif /* no subprocesses */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1907
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1908 return Qnil;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1909 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1910
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1911 DEFUN ("sit-for", Fsit_for, Ssit_for, 1, 3, 0,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1912 "Perform redisplay, then wait for ARG seconds or until input is available.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1913 Optional second arg non-nil means ARG counts in milliseconds.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1914 Optional third arg non-nil means don't redisplay, just wait for input.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1915 Redisplay is preempted as always if input arrives, and does not happen\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1916 if input is available before it starts.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1917 Value is t if waited the full time with no input arriving.")
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1918 (n, millisec, nodisp)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1919 Lisp_Object n, millisec, nodisp;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1920 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1921 #ifndef subprocesses
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1922 #ifdef HAVE_TIMEVAL
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1923 struct timeval timeout;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1924 #else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1925 int timeout_sec;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1926 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1927 int waitchannels;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1928 #endif /* no subprocesses */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1929 int usec = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1930 int sec;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1931
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1932 CHECK_NUMBER (n, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1933
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1934 if (detect_input_pending ())
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1935 return Qnil;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1936
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1937 if (EQ (nodisp, Qnil))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1938 redisplay_preserve_echo_area ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1939
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1940 sec = XINT (n);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1941 if (sec <= 0)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1942 return Qt;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1943
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1944 if (!NULL (millisec))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1945 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1946 #ifndef HAVE_TIMEVAL
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1947 error ("millisecond sleep-for not supported on %s", SYSTEM_TYPE);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1948 #else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1949 usec = sec % 1000 * 1000;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1950 sec /= 1000;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1951 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1952 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1953
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1954 #ifdef subprocesses
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1955 #ifdef SIGIO
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1956 gobble_input ();
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1957 #endif /* SIGIO */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1958 wait_reading_process_input (sec, usec, 1, 1);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1959 #else /* no subprocesses */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1960 immediate_quit = 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1961 QUIT;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1962
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1963 waitchannels = 1;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1964 #ifdef VMS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1965 input_wait_timeout (XINT (n));
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1966 #else /* not VMS */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1967 #ifndef HAVE_TIMEVAL
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1968 timeout_sec = sec;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1969 select (1, &waitchannels, 0, 0, &timeout_sec);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1970 #else /* HAVE_TIMEVAL */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1971 timeout.tv_sec = sec;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1972 timeout.tv_usec = usec;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1973 select (1, &waitchannels, 0, 0, &timeout);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1974 #endif /* HAVE_TIMEVAL */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1975 #endif /* not VMS */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1976
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1977 immediate_quit = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1978 #endif /* no subprocesses */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1979
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1980 return detect_input_pending () ? Qnil : Qt;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1981 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1982
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1983 DEFUN ("sleep-for-millisecs", Fsleep_for_millisecs, Ssleep_for_millisecs,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1984 1, 1, 0,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1985 "Pause, without updating display, for ARG milliseconds.")
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1986 (n)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1987 Lisp_Object n;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1988 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1989 #ifndef HAVE_TIMEVAL
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1990 error ("sleep-for-millisecs not supported on %s", SYSTEM_TYPE);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1991 #else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1992 CHECK_NUMBER (n, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1993 wait_reading_process_input (XINT (n) / 1000, XINT (n) % 1000 * 1000,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1994 0, 0);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1995 return Qnil;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1996 #endif /* HAVE_TIMEVAL */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1997 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1998
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1999 char *terminal_type;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2000
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2001 /* Initialization done when Emacs fork is started, before doing stty. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2002 /* Determine terminal type and set terminal_driver */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2003 /* Then invoke its decoding routine to set up variables
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2004 in the terminal package */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2005
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2006 init_display ()
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2007 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2008 #ifdef HAVE_X_WINDOWS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2009 extern int display_arg;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2010 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2011
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2012 meta_key = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2013 inverse_video = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2014 cursor_in_echo_area = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2015 terminal_type = (char *) 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2016
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2017 /* If the DISPLAY environment variable is set, try to use X, and
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2018 die with an error message if that doesn't work. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2019
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2020 /* Check if we're using a window system here before trying to
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2021 initialize the terminal. If we check the terminal first,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2022
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2023 If someone has indicated that they want
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2024 to use a window system, we shouldn't bother initializing the
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2025 terminal. This is especially important when the terminal is so
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2026 dumb that emacs gives up before and doesn't bother using the window
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2027 system. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2028
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2029 #ifdef HAVE_X_WINDOWS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2030 if (!inhibit_window_system && (display_arg || egetenv ("DISPLAY")))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2031 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2032 Vwindow_system = intern ("x");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2033 #ifdef HAVE_X11
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2034 Vwindow_system_version = make_number (11);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2035 #else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2036 Vwindow_system_version = make_number (10);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2037 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2038 return;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2039 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2040 #endif /* HAVE_X_WINDOWS */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2041
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2042 /* If no window system has been specified, try to use the terminal. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2043 if (! isatty (0))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2044 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2045 fprintf (stderr, "emacs: standard input is not a tty\n");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2046 exit (1);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2047 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2048
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2049 /* Look at the TERM variable */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2050 terminal_type = (char *) getenv ("TERM");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2051 if (!terminal_type)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2052 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2053 #ifdef VMS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2054 fprintf (stderr, "Please specify your terminal type.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2055 For types defined in VMS, use set term /device=TYPE.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2056 For types not defined in VMS, use define emacs_term \"TYPE\".\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2057 \(The quotation marks are necessary since terminal types are lower case.)\n");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2058 #else
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2059 fprintf (stderr, "Please set the environment variable TERM; see tset(1).\n");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2060 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2061 exit (1);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2062 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2063
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2064 #ifdef VMS
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2065 /* VMS DCL tends to upcase things, so downcase term type.
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2066 Hardly any uppercase letters in terminal types; should be none. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2067 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2068 char *new = (char *) xmalloc (strlen (terminal_type) + 1);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2069 char *p;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2070
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2071 strcpy (new, terminal_type);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2072
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2073 for (p = new; *p; p++)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2074 if (isupper (*p))
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2075 *p = tolower (*p);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2076
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2077 terminal_type = new;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2078 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2079 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2080
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2081 term_init (terminal_type);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2082
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2083 remake_screen_glyphs (selected_screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2084 calculate_costs (selected_screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2085
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2086 /* X and Y coordinates of the cursor between updates. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2087 SCREEN_CURSOR_X (selected_screen) = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2088 SCREEN_CURSOR_Y (selected_screen) = 0;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2089
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2090 #ifdef SIGWINCH
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2091 #ifndef CANNOT_DUMP
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2092 if (initialized)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2093 #endif /* CANNOT_DUMP */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2094 signal (SIGWINCH, window_change_signal);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2095 #endif /* SIGWINCH */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2096 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2097
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2098 syms_of_display ()
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2099 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2100 #ifdef MULTI_SCREEN
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2101 defsubr (&Sredraw_screen);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2102 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2103 defsubr (&Sredraw_display);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2104 defsubr (&Sopen_termscript);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2105 defsubr (&Sding);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2106 defsubr (&Ssit_for);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2107 defsubr (&Ssleep_for);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2108 defsubr (&Ssend_string_to_terminal);
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2109
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2110 DEFVAR_INT ("baud-rate", &baud_rate,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2111 "The output baud rate of the terminal.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2112 On most systems, changing this value will affect the amount of padding\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2113 and the other strategic decisions made during redisplay.");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2114 DEFVAR_BOOL ("inverse-video", &inverse_video,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2115 "*Non-nil means invert the entire screen display.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2116 This means everything is in inverse video which otherwise would not be.");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2117 DEFVAR_BOOL ("visible-bell", &visible_bell,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2118 "*Non-nil means try to flash the screen to represent a bell.");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2119 DEFVAR_BOOL ("no-redraw-on-reenter", &no_redraw_on_reenter,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2120 "*Non-nil means no need to redraw entire screen after suspending.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2121 A non-nil value is useful if the terminal can automatically preserve\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2122 Emacs's screen display when you reenter Emacs.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2123 It is up to you to set this variable if your terminal can do that.");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2124 DEFVAR_LISP ("window-system", &Vwindow_system,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2125 "A symbol naming the window-system under which Emacs is running\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2126 \(such as `x'), or nil if emacs is running on an ordinary terminal.");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2127 DEFVAR_LISP ("window-system-version", &Vwindow_system_version,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2128 "The version number of the window system in use.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2129 For X windows, this is 10 or 11.");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2130 DEFVAR_BOOL ("cursor-in-echo-area", &cursor_in_echo_area,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2131 "Non-nil means put cursor in minibuffer, at end of any message there.");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2132 DEFVAR_LISP ("glyph-table", &Vglyph_table,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2133 "Table defining how to output a glyph code to the screen.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2134 If not nil, this is a vector indexed by glyph code to define the glyph.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2135 Each element can be:\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2136 integer: a glyph code which this glyph is an alias for.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2137 string: output this glyph using that string (not impl. in X windows).\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2138 nil: this glyph mod 256 is char code to output,\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2139 and this glyph / 256 is face code for X windows (see `x-set-face').");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2140 Vglyph_table = Qnil;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2141
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2142 DEFVAR_LISP ("standard-display-table", &Vstandard_display_table,
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2143 "Display table to use for buffers that specify none.\n\
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2144 See `buffer-display-table' for more information.");
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2145 Vstandard_display_table = Qnil;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2146
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2147 /* Initialize `window-system', unless init_display already decided it. */
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2148 #ifdef CANNOT_DUMP
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2149 if (noninteractive)
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2150 #endif
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2151 {
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2152 Vwindow_system = Qnil;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2153 Vwindow_system_version = Qnil;
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2154 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2155 }
36a905212ceb Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2156