Fix Lisp_Object/int type confusion revealed by making Lisp_Object a union type:
[bpt/emacs.git] / src / term.c
CommitLineData
08a24c47 1/* terminal control module for terminals described by TERMCAP
a168702a
GM
2 Copyright (C) 1985, 86, 87, 93, 94, 95, 98
3 Free Software Foundation, Inc.
08a24c47
JB
4
5This file is part of GNU Emacs.
6
7GNU Emacs is free software; you can redistribute it and/or modify
8it under the terms of the GNU General Public License as published by
4746118a 9the Free Software Foundation; either version 2, or (at your option)
08a24c47
JB
10any later version.
11
12GNU Emacs is distributed in the hope that it will be useful,
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15GNU General Public License for more details.
16
17You should have received a copy of the GNU General Public License
18along with GNU Emacs; see the file COPYING. If not, write to
3b7ad313
EN
19the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20Boston, MA 02111-1307, USA. */
08a24c47 21
a168702a
GM
22/* New redisplay, TTY faces by Gerd Moellmann <gerd@acm.org>. */
23
08a24c47 24
565620a5 25#include <config.h>
08a24c47
JB
26#include <stdio.h>
27#include <ctype.h>
a168702a 28#include <string.h>
08a24c47
JB
29#include "termchar.h"
30#include "termopts.h"
08a24c47 31#include "lisp.h"
a4decb7f
KH
32#include "charset.h"
33#include "coding.h"
ff11dfa1 34#include "frame.h"
08a24c47
JB
35#include "disptab.h"
36#include "termhooks.h"
5c2c7893 37#include "keyboard.h"
dfcf069d 38#include "dispextern.h"
a168702a
GM
39#include "window.h"
40
b0f61f15
GM
41#ifdef HAVE_TERMCAP_H
42#include <termcap.h>
43#endif
44
eccec691 45#include "cm.h"
dfcf069d
AS
46#ifdef HAVE_X_WINDOWS
47#include "xterm.h"
48#endif
c8951b18 49
a168702a
GM
50static void turn_on_face P_ ((struct frame *, int face_id));
51static void turn_off_face P_ ((struct frame *, int face_id));
52static void tty_show_cursor P_ ((void));
53static void tty_hide_cursor P_ ((void));
54
08a24c47
JB
55#define max(a, b) ((a) > (b) ? (a) : (b))
56#define min(a, b) ((a) < (b) ? (a) : (b))
57
e52f4e08
GM
58#define OUTPUT(a) \
59 tputs (a, (int) (FRAME_HEIGHT (XFRAME (selected_frame)) - curY), cmputc)
08a24c47
JB
60#define OUTPUT1(a) tputs (a, 1, cmputc)
61#define OUTPUTL(a, lines) tputs (a, lines, cmputc)
a168702a 62
b0f61f15
GM
63#define OUTPUT_IF(a) \
64 do { \
65 if (a) \
66 tputs (a, (int) (FRAME_HEIGHT (XFRAME (selected_frame)) \
67 - curY), cmputc); \
68 } while (0)
a168702a 69
b0f61f15 70#define OUTPUT1_IF(a) do { if (a) tputs (a, 1, cmputc); } while (0)
08a24c47 71
c291d9ef 72/* Function to use to ring the bell. */
a168702a 73
c291d9ef
RS
74Lisp_Object Vring_bell_function;
75
eb8c3be9 76/* Terminal characteristics that higher levels want to look at.
08a24c47
JB
77 These are all extern'd in termchar.h */
78
08a24c47
JB
79int must_write_spaces; /* Nonzero means spaces in the text
80 must actually be output; can't just skip
81 over some columns to leave them blank. */
82int min_padding_speed; /* Speed below which no padding necessary */
83
84int line_ins_del_ok; /* Terminal can insert and delete lines */
85int char_ins_del_ok; /* Terminal can insert and delete chars */
86int scroll_region_ok; /* Terminal supports setting the
87 scroll window */
be7cd44f
RS
88int scroll_region_cost; /* Cost of setting a scroll window,
89 measured in characters */
ff11dfa1 90int memory_below_frame; /* Terminal remembers lines
08a24c47
JB
91 scrolled off bottom */
92int fast_clear_end_of_line; /* Terminal has a `ce' string */
93
ff11dfa1 94/* Nonzero means no need to redraw the entire frame on resuming
08a24c47
JB
95 a suspended Emacs. This is useful on terminals with multiple pages,
96 where one page is used for Emacs and another for all else. */
a168702a 97
08a24c47
JB
98int no_redraw_on_reenter;
99
100/* Hook functions that you can set to snap out the functions in this file.
101 These are all extern'd in termhooks.h */
102
dfcf069d
AS
103void (*cursor_to_hook) P_ ((int, int));
104void (*raw_cursor_to_hook) P_ ((int, int));
dfcf069d
AS
105void (*clear_to_end_hook) P_ ((void));
106void (*clear_frame_hook) P_ ((void));
107void (*clear_end_of_line_hook) P_ ((int));
08a24c47 108
dfcf069d 109void (*ins_del_lines_hook) P_ ((int, int));
08a24c47 110
a168702a 111void (*change_line_highlight_hook) P_ ((int, int, int, int));
dfcf069d 112void (*reassert_line_highlight_hook) P_ ((int, int));
08a24c47 113
dfcf069d 114void (*delete_glyphs_hook) P_ ((int));
08a24c47 115
dfcf069d 116void (*ring_bell_hook) P_ ((void));
08a24c47 117
dfcf069d
AS
118void (*reset_terminal_modes_hook) P_ ((void));
119void (*set_terminal_modes_hook) P_ ((void));
120void (*update_begin_hook) P_ ((struct frame *));
121void (*update_end_hook) P_ ((struct frame *));
122void (*set_terminal_window_hook) P_ ((int));
a168702a
GM
123void (*insert_glyphs_hook) P_ ((struct glyph *, int));
124void (*write_glyphs_hook) P_ ((struct glyph *, int));
125void (*delete_glyphs_hook) P_ ((int));
08a24c47 126
dfcf069d 127int (*read_socket_hook) P_ ((int, struct input_event *, int, int));
08a24c47 128
dfcf069d 129void (*frame_up_to_date_hook) P_ ((struct frame *));
55cc089c 130
20a558dc 131/* Return the current position of the mouse.
371fbaeb
JB
132
133 Set *f to the frame the mouse is in, or zero if the mouse is in no
134 Emacs frame. If it is set to zero, all the other arguments are
135 garbage.
136
a3c87d4e
JB
137 If the motion started in a scroll bar, set *bar_window to the
138 scroll bar's window, *part to the part the mouse is currently over,
139 *x to the position of the mouse along the scroll bar, and *y to the
140 overall length of the scroll bar.
371fbaeb
JB
141
142 Otherwise, set *bar_window to Qnil, and *x and *y to the column and
143 row of the character cell the mouse is over.
144
145 Set *time to the time the mouse was at the returned position.
146
147 This should clear mouse_moved until the next motion
148 event arrives. */
dfcf069d 149void (*mouse_position_hook) P_ ((FRAME_PTR *f, int insist,
371fbaeb 150 Lisp_Object *bar_window,
a3c87d4e 151 enum scroll_bar_part *part,
20a558dc
JB
152 Lisp_Object *x,
153 Lisp_Object *y,
dfcf069d 154 unsigned long *time));
08a24c47 155
ff11dfa1 156/* When reading from a minibuffer in a different frame, Emacs wants
a168702a 157 to shift the highlight from the selected frame to the mini-buffer's
ff11dfa1 158 frame; under X, this means it lies about where the focus is.
2e146aa4
JB
159 This hook tells the window system code to re-decide where to put
160 the highlight. */
dfcf069d 161void (*frame_rehighlight_hook) P_ ((FRAME_PTR f));
2e146aa4 162
dbc4e1c1
JB
163/* If we're displaying frames using a window system that can stack
164 frames on top of each other, this hook allows you to bring a frame
165 to the front, or bury it behind all the other windows. If this
166 hook is zero, that means the device we're displaying on doesn't
167 support overlapping frames, so there's no need to raise or lower
168 anything.
169
170 If RAISE is non-zero, F is brought to the front, before all other
171 windows. If RAISE is zero, F is sent to the back, behind all other
172 windows. */
dfcf069d 173void (*frame_raise_lower_hook) P_ ((FRAME_PTR f, int raise));
dbc4e1c1 174
a3c87d4e 175/* Set the vertical scroll bar for WINDOW to have its upper left corner
371fbaeb
JB
176 at (TOP, LEFT), and be LENGTH rows high. Set its handle to
177 indicate that we are displaying PORTION characters out of a total
178 of WHOLE characters, starting at POSITION. If WINDOW doesn't yet
a3c87d4e 179 have a scroll bar, create one for it. */
a168702a 180
a3c87d4e 181void (*set_vertical_scroll_bar_hook)
dfcf069d
AS
182 P_ ((struct window *window,
183 int portion, int whole, int position));
20a558dc 184
371fbaeb 185
20a558dc 186/* The following three hooks are used when we're doing a thorough
a3c87d4e 187 redisplay of the frame. We don't explicitly know which scroll bars
20a558dc
JB
188 are going to be deleted, because keeping track of when windows go
189 away is a real pain - can you say set-window-configuration?
190 Instead, we just assert at the beginning of redisplay that *all*
a3c87d4e 191 scroll bars are to be removed, and then save scroll bars from the
8e6208c5 192 fiery pit when we actually redisplay their window. */
20a558dc 193
a3c87d4e
JB
194/* Arrange for all scroll bars on FRAME to be removed at the next call
195 to `*judge_scroll_bars_hook'. A scroll bar may be spared if
a168702a 196 `*redeem_scroll_bar_hook' is applied to its window before the judgment.
20a558dc 197
371fbaeb 198 This should be applied to each frame each time its window tree is
a3c87d4e
JB
199 redisplayed, even if it is not displaying scroll bars at the moment;
200 if the HAS_SCROLL_BARS flag has just been turned off, only calling
201 this and the judge_scroll_bars_hook will get rid of them.
371fbaeb
JB
202
203 If non-zero, this hook should be safe to apply to any frame,
a3c87d4e 204 whether or not it can support scroll bars, and whether or not it is
371fbaeb 205 currently displaying them. */
dfcf069d 206void (*condemn_scroll_bars_hook) P_ ((FRAME_PTR frame));
371fbaeb 207
a3c87d4e
JB
208/* Unmark WINDOW's scroll bar for deletion in this judgement cycle.
209 Note that it's okay to redeem a scroll bar that is not condemned. */
dfcf069d 210void (*redeem_scroll_bar_hook) P_ ((struct window *window));
20a558dc 211
a3c87d4e
JB
212/* Remove all scroll bars on FRAME that haven't been saved since the
213 last call to `*condemn_scroll_bars_hook'.
20a558dc 214
371fbaeb 215 This should be applied to each frame after each time its window
a3c87d4e
JB
216 tree is redisplayed, even if it is not displaying scroll bars at the
217 moment; if the HAS_SCROLL_BARS flag has just been turned off, only
218 calling this and condemn_scroll_bars_hook will get rid of them.
371fbaeb
JB
219
220 If non-zero, this hook should be safe to apply to any frame,
a3c87d4e 221 whether or not it can support scroll bars, and whether or not it is
371fbaeb 222 currently displaying them. */
dfcf069d 223void (*judge_scroll_bars_hook) P_ ((FRAME_PTR FRAME));
20a558dc 224
a168702a
GM
225/* Hook to call in estimate_mode_line_height, if any. */
226
227int (* estimate_mode_line_height_hook) P_ ((struct frame *f, enum face_id));
228
20a558dc 229
08a24c47
JB
230/* Strings, numbers and flags taken from the termcap entry. */
231
a4decb7f 232char *TS_ins_line; /* "al" */
08a24c47
JB
233char *TS_ins_multi_lines; /* "AL" (one parameter, # lines to insert) */
234char *TS_bell; /* "bl" */
235char *TS_clr_to_bottom; /* "cd" */
236char *TS_clr_line; /* "ce", clear to end of line */
ff11dfa1 237char *TS_clr_frame; /* "cl" */
08a24c47
JB
238char *TS_set_scroll_region; /* "cs" (2 params, first line and last line) */
239char *TS_set_scroll_region_1; /* "cS" (4 params: total lines,
240 lines above scroll region, lines below it,
241 total lines again) */
242char *TS_del_char; /* "dc" */
243char *TS_del_multi_chars; /* "DC" (one parameter, # chars to delete) */
244char *TS_del_line; /* "dl" */
245char *TS_del_multi_lines; /* "DL" (one parameter, # lines to delete) */
246char *TS_delete_mode; /* "dm", enter character-delete mode */
247char *TS_end_delete_mode; /* "ed", leave character-delete mode */
248char *TS_end_insert_mode; /* "ei", leave character-insert mode */
249char *TS_ins_char; /* "ic" */
250char *TS_ins_multi_chars; /* "IC" (one parameter, # chars to insert) */
251char *TS_insert_mode; /* "im", enter character-insert mode */
252char *TS_pad_inserted_char; /* "ip". Just padding, no commands. */
253char *TS_end_keypad_mode; /* "ke" */
254char *TS_keypad_mode; /* "ks" */
255char *TS_pad_char; /* "pc", char to use as padding */
256char *TS_repeat; /* "rp" (2 params, # times to repeat
257 and character to be repeated) */
258char *TS_end_standout_mode; /* "se" */
259char *TS_fwd_scroll; /* "sf" */
260char *TS_standout_mode; /* "so" */
261char *TS_rev_scroll; /* "sr" */
262char *TS_end_termcap_modes; /* "te" */
263char *TS_termcap_modes; /* "ti" */
264char *TS_visible_bell; /* "vb" */
a168702a
GM
265char *TS_cursor_normal; /* "ve" */
266char *TS_cursor_visible; /* "vs" */
267char *TS_cursor_invisible; /* "vi" */
08a24c47
JB
268char *TS_set_window; /* "wi" (4 params, start and end of window,
269 each as vpos and hpos) */
270
a168702a
GM
271/* "md" -- turn on bold (extra bright mode). */
272
273char *TS_enter_bold_mode;
274
275/* "mh" -- turn on half-bright mode. */
276
277char *TS_enter_dim_mode;
278
279/* "mb" -- enter blinking mode. */
280
281char *TS_enter_blink_mode;
282
283/* "mr" -- enter reverse video mode. */
284
285char *TS_enter_reverse_mode;
286
287/* "us"/"ue" -- start/end underlining. */
288
289char *TS_exit_underline_mode, *TS_enter_underline_mode;
290
291/* "ug" -- number of blanks left by underline. */
292
293int TN_magic_cookie_glitch_ul;
294
295/* "as"/"ae" -- start/end alternate character set. Not really
296 supported, yet. */
297
298char *TS_enter_alt_charset_mode, *TS_exit_alt_charset_mode;
299
300/* "me" -- switch appearances off. */
301
302char *TS_exit_attribute_mode;
303
304/* "Co" -- number of colors. */
305
306int TN_max_colors;
307
308/* "pa" -- max. number of color pairs on screen. Not handled yet.
309 Could be a problem if not equal to TN_max_colors * TN_max_colors. */
310
311int TN_max_pairs;
312
313/* "op" -- SVr4 set default pair to its original value. */
314
315char *TS_orig_pair;
316
317/* "AF"/"AB" or "Sf"/"Sb"-- set ANSI or SVr4 foreground/background color.
318 1 param, the color index. */
319
320char *TS_set_foreground, *TS_set_background;
321
08a24c47
JB
322int TF_hazeltine; /* termcap hz flag. */
323int TF_insmode_motion; /* termcap mi flag: can move while in insert mode. */
324int TF_standout_motion; /* termcap mi flag: can move while in standout mode. */
a168702a
GM
325int TF_underscore; /* termcap ul flag: _ underlines if over-struck on
326 non-blank position. Must clear before writing _. */
08a24c47
JB
327int TF_teleray; /* termcap xt flag: many weird consequences.
328 For t1061. */
329
330int TF_xs; /* Nonzero for "xs". If set together with
331 TN_standout_width == 0, it means don't bother
332 to write any end-standout cookies. */
333
334int TN_standout_width; /* termcap sg number: width occupied by standout
335 markers */
336
337static int RPov; /* # chars to start a TS_repeat */
338
339static int delete_in_insert_mode; /* delete mode == insert mode */
340
341static int se_is_so; /* 1 if same string both enters and leaves
342 standout mode */
343
344/* internal state */
345
8dd0c7cb 346/* The largest frame width in any call to calculate_costs. */
a168702a 347
8dd0c7cb 348int max_frame_width;
a168702a 349
8dd0c7cb 350/* The largest frame height in any call to calculate_costs. */
a168702a 351
8dd0c7cb
RS
352int max_frame_height;
353
08a24c47
JB
354/* Number of chars of space used for standout marker at beginning of line,
355 or'd with 0100. Zero if no standout marker at all.
8dd0c7cb 356 The length of these vectors is max_frame_height.
08a24c47
JB
357
358 Used IFF TN_standout_width >= 0. */
359
360static char *chars_wasted;
361static char *copybuf;
362
363/* nonzero means supposed to write text in standout mode. */
a168702a 364
08a24c47
JB
365int standout_requested;
366
367int insert_mode; /* Nonzero when in insert mode. */
368int standout_mode; /* Nonzero when in standout mode. */
369
370/* Size of window specified by higher levels.
ff11dfa1 371 This is the number of lines, from the top of frame downwards,
08a24c47
JB
372 which can participate in insert-line/delete-line operations.
373
ff11dfa1 374 Effectively it excludes the bottom frame_height - specified_window_size
08a24c47
JB
375 lines from those operations. */
376
377int specified_window;
378
ff11dfa1 379/* Frame currently being redisplayed; 0 if not currently redisplaying.
08a24c47
JB
380 (Direct output does not count). */
381
ff11dfa1 382FRAME_PTR updating_frame;
08a24c47 383
07c57952 384/* Provided for lisp packages. */
a168702a 385
07c57952
KH
386static int system_uses_terminfo;
387
08a24c47 388char *tparam ();
e4bfb3b6
RS
389
390extern char *tgetstr ();
08a24c47 391\f
cb28b9c2
RS
392
393#ifdef WINDOWSNT
a168702a 394
cb28b9c2
RS
395/* We aren't X windows, but we aren't termcap either. This makes me
396 uncertain as to what value to use for frame.output_method. For
397 this file, we'll define FRAME_TERMCAP_P to be zero so that our
398 output hooks get called instead of the termcap functions. Probably
399 the best long-term solution is to define an output_windows_nt... */
400
401#undef FRAME_TERMCAP_P
402#define FRAME_TERMCAP_P(_f_) 0
403#endif /* WINDOWSNT */
404
dfcf069d 405void
08a24c47
JB
406ring_bell ()
407{
c291d9ef
RS
408 if (! NILP (Vring_bell_function))
409 {
410 Lisp_Object function;
411
412 /* Temporarily set the global variable to nil
413 so that if we get an error, it stays nil
414 and we don't call it over and over.
415
416 We don't specbind it, because that would carefully
417 restore the bad value if there's an error
418 and make the loop of errors happen anyway. */
419 function = Vring_bell_function;
420 Vring_bell_function = Qnil;
421
422 call0 (function);
423
424 Vring_bell_function = function;
425 return;
426 }
427
e52f4e08 428 if (! FRAME_TERMCAP_P (XFRAME (selected_frame)))
08a24c47
JB
429 {
430 (*ring_bell_hook) ();
431 return;
432 }
433 OUTPUT (TS_visible_bell && visible_bell ? TS_visible_bell : TS_bell);
434}
435
dfcf069d 436void
08a24c47
JB
437set_terminal_modes ()
438{
e52f4e08 439 if (! FRAME_TERMCAP_P (XFRAME (selected_frame)))
08a24c47
JB
440 {
441 (*set_terminal_modes_hook) ();
442 return;
443 }
444 OUTPUT_IF (TS_termcap_modes);
a168702a 445 OUTPUT_IF (TS_cursor_visible);
08a24c47
JB
446 OUTPUT_IF (TS_keypad_mode);
447 losecursor ();
448}
449
dfcf069d 450void
08a24c47
JB
451reset_terminal_modes ()
452{
e52f4e08 453 if (! FRAME_TERMCAP_P (XFRAME (selected_frame)))
08a24c47 454 {
b3e1cb05
GV
455 if (reset_terminal_modes_hook)
456 (*reset_terminal_modes_hook) ();
08a24c47
JB
457 return;
458 }
459 if (TN_standout_width < 0)
460 turn_off_highlight ();
461 turn_off_insert ();
462 OUTPUT_IF (TS_end_keypad_mode);
a168702a 463 OUTPUT_IF (TS_cursor_normal);
08a24c47 464 OUTPUT_IF (TS_end_termcap_modes);
a168702a 465 OUTPUT_IF (TS_orig_pair);
08a24c47
JB
466 /* Output raw CR so kernel can track the cursor hpos. */
467 /* But on magic-cookie terminals this can erase an end-standout marker and
ff11dfa1 468 cause the rest of the frame to be in standout, so move down first. */
08a24c47
JB
469 if (TN_standout_width >= 0)
470 cmputc ('\n');
471 cmputc ('\r');
472}
473
dfcf069d 474void
ff11dfa1
JB
475update_begin (f)
476 FRAME_PTR f;
08a24c47 477{
ff11dfa1 478 updating_frame = f;
1820044b 479 if (! FRAME_TERMCAP_P (updating_frame))
ff11dfa1 480 (*update_begin_hook) (f);
a168702a
GM
481 else
482 tty_hide_cursor ();
08a24c47
JB
483}
484
dfcf069d 485void
ff11dfa1
JB
486update_end (f)
487 FRAME_PTR f;
08a24c47 488{
1820044b 489 if (! FRAME_TERMCAP_P (updating_frame))
08a24c47 490 {
7a8e3e30 491 (*update_end_hook) (f);
cc4ee3c7 492 updating_frame = 0;
08a24c47
JB
493 return;
494 }
a168702a
GM
495
496 if (!XWINDOW (selected_window)->cursor_off_p)
497 tty_show_cursor ();
498
08a24c47
JB
499 turn_off_insert ();
500 background_highlight ();
501 standout_requested = 0;
ff11dfa1 502 updating_frame = 0;
08a24c47
JB
503}
504
dfcf069d 505void
08a24c47
JB
506set_terminal_window (size)
507 int size;
508{
1820044b 509 if (! FRAME_TERMCAP_P (updating_frame))
08a24c47
JB
510 {
511 (*set_terminal_window_hook) (size);
512 return;
513 }
e52f4e08 514 specified_window = size ? size : FRAME_HEIGHT (XFRAME (selected_frame));
08a24c47
JB
515 if (!scroll_region_ok)
516 return;
517 set_scroll_region (0, specified_window);
518}
519
dfcf069d 520void
08a24c47
JB
521set_scroll_region (start, stop)
522 int start, stop;
523{
524 char *buf;
e52f4e08
GM
525 struct frame *sf = XFRAME (selected_frame);
526
08a24c47
JB
527 if (TS_set_scroll_region)
528 {
529 buf = tparam (TS_set_scroll_region, 0, 0, start, stop - 1);
530 }
531 else if (TS_set_scroll_region_1)
532 {
533 buf = tparam (TS_set_scroll_region_1, 0, 0,
e52f4e08
GM
534 FRAME_HEIGHT (sf), start,
535 FRAME_HEIGHT (sf) - stop,
536 FRAME_HEIGHT (sf));
08a24c47
JB
537 }
538 else
539 {
e52f4e08 540 buf = tparam (TS_set_window, 0, 0, start, 0, stop, FRAME_WIDTH (sf));
08a24c47
JB
541 }
542 OUTPUT (buf);
9ac0d9e0 543 xfree (buf);
08a24c47
JB
544 losecursor ();
545}
546\f
dfcf069d 547void
08a24c47
JB
548turn_on_insert ()
549{
550 if (!insert_mode)
551 OUTPUT (TS_insert_mode);
552 insert_mode = 1;
553}
554
dfcf069d 555void
08a24c47
JB
556turn_off_insert ()
557{
558 if (insert_mode)
559 OUTPUT (TS_end_insert_mode);
560 insert_mode = 0;
561}
562\f
563/* Handle highlighting when TN_standout_width (termcap sg) is not specified.
564 In these terminals, output is affected by the value of standout
565 mode when the output is written.
566
567 These functions are called on all terminals, but do nothing
568 on terminals whose standout mode does not work that way. */
569
dfcf069d 570void
08a24c47
JB
571turn_off_highlight ()
572{
573 if (TN_standout_width < 0)
574 {
575 if (standout_mode)
576 OUTPUT_IF (TS_end_standout_mode);
577 standout_mode = 0;
578 }
579}
580
dfcf069d 581void
08a24c47
JB
582turn_on_highlight ()
583{
584 if (TN_standout_width < 0)
585 {
586 if (!standout_mode)
587 OUTPUT_IF (TS_standout_mode);
588 standout_mode = 1;
589 }
590}
591
a168702a
GM
592
593/* Make cursor invisible. */
594
595static void
596tty_hide_cursor ()
597{
598 OUTPUT_IF (TS_cursor_invisible);
599}
600
601
602/* Ensure that cursor is visible. */
603
604static void
605tty_show_cursor ()
606{
607 OUTPUT_IF (TS_cursor_normal);
608 OUTPUT_IF (TS_cursor_visible);
609}
610
611
08a24c47
JB
612/* Set standout mode to the state it should be in for
613 empty space inside windows. What this is,
614 depends on the user option inverse-video. */
615
dfcf069d 616void
08a24c47
JB
617background_highlight ()
618{
619 if (TN_standout_width >= 0)
620 return;
621 if (inverse_video)
622 turn_on_highlight ();
623 else
624 turn_off_highlight ();
625}
626
627/* Set standout mode to the mode specified for the text to be output. */
628
dfcf069d 629static void
08a24c47
JB
630highlight_if_desired ()
631{
632 if (TN_standout_width >= 0)
633 return;
634 if (!inverse_video == !standout_requested)
635 turn_off_highlight ();
636 else
637 turn_on_highlight ();
638}
639\f
640/* Handle standout mode for terminals in which TN_standout_width >= 0.
641 On these terminals, standout is controlled by markers that
ff11dfa1 642 live inside the terminal's memory. TN_standout_width is the width
08a24c47
JB
643 that the marker occupies in memory. Standout runs from the marker
644 to the end of the line on some terminals, or to the next
645 turn-off-standout marker (TS_end_standout_mode) string
646 on other terminals. */
647
648/* Write a standout marker or end-standout marker at the front of the line
649 at vertical position vpos. */
650
dfcf069d 651void
08a24c47
JB
652write_standout_marker (flag, vpos)
653 int flag, vpos;
654{
655 if (flag || (TS_end_standout_mode && !TF_teleray && !se_is_so
656 && !(TF_xs && TN_standout_width == 0)))
657 {
658 cmgoto (vpos, 0);
659 cmplus (TN_standout_width);
660 OUTPUT (flag ? TS_standout_mode : TS_end_standout_mode);
661 chars_wasted[curY] = TN_standout_width | 0100;
662 }
663}
664\f
665/* External interface to control of standout mode.
666 Call this when about to modify line at position VPOS
667 and not change whether it is highlighted. */
668
dfcf069d 669void
08a24c47
JB
670reassert_line_highlight (highlight, vpos)
671 int highlight;
672 int vpos;
673{
e52f4e08
GM
674 struct frame *f = updating_frame ? updating_frame : XFRAME (selected_frame);
675 if (! FRAME_TERMCAP_P (f))
08a24c47
JB
676 {
677 (*reassert_line_highlight_hook) (highlight, vpos);
678 return;
679 }
680 if (TN_standout_width < 0)
681 /* Handle terminals where standout takes affect at output time */
682 standout_requested = highlight;
a168702a 683 else if (chars_wasted && chars_wasted[vpos] == 0)
08a24c47
JB
684 /* For terminals with standout markers, write one on this line
685 if there isn't one already. */
686 write_standout_marker (highlight, vpos);
687}
688
689/* Call this when about to modify line at position VPOS
690 and change whether it is highlighted. */
691
dfcf069d 692void
a168702a
GM
693change_line_highlight (new_highlight, vpos, y, first_unused_hpos)
694 int new_highlight, vpos, y, first_unused_hpos;
08a24c47
JB
695{
696 standout_requested = new_highlight;
1820044b 697 if (! FRAME_TERMCAP_P (updating_frame))
08a24c47 698 {
a168702a 699 (*change_line_highlight_hook) (new_highlight, vpos, y, first_unused_hpos);
08a24c47
JB
700 return;
701 }
702
703 cursor_to (vpos, 0);
704
705 if (TN_standout_width < 0)
706 background_highlight ();
707 /* If line starts with a marker, delete the marker */
708 else if (TS_clr_line && chars_wasted[curY])
709 {
710 turn_off_insert ();
711 /* On Teleray, make sure to erase the SO marker. */
712 if (TF_teleray)
713 {
e52f4e08 714 cmgoto (curY - 1, FRAME_WIDTH (XFRAME (selected_frame)) - 4);
08a24c47
JB
715 OUTPUT ("\033S");
716 curY++; /* ESC S moves to next line where the TS_standout_mode was */
717 curX = 0;
718 }
719 else
720 cmgoto (curY, 0); /* reposition to kill standout marker */
721 }
722 clear_end_of_line_raw (first_unused_hpos);
723 reassert_line_highlight (new_highlight, curY);
724}
725\f
726
a168702a
GM
727/* Move cursor to row/column position VPOS/HPOS. HPOS/VPOS are
728 frame-relative coordinates. */
08a24c47 729
dfcf069d 730void
a168702a
GM
731cursor_to (vpos, hpos)
732 int vpos, hpos;
08a24c47 733{
e52f4e08
GM
734 struct frame *f = updating_frame ? updating_frame : XFRAME (selected_frame);
735
736 if (! FRAME_TERMCAP_P (f) && cursor_to_hook)
08a24c47 737 {
a168702a 738 (*cursor_to_hook) (vpos, hpos);
08a24c47
JB
739 return;
740 }
741
36cae867
KH
742 /* Detect the case where we are called from reset_sys_modes
743 and the costs have never been calculated. Do nothing. */
744 if (chars_wasted == 0)
745 return;
746
a168702a
GM
747 hpos += chars_wasted[vpos] & 077;
748 if (curY == vpos && curX == hpos)
08a24c47
JB
749 return;
750 if (!TF_standout_motion)
751 background_highlight ();
752 if (!TF_insmode_motion)
753 turn_off_insert ();
a168702a 754 cmgoto (vpos, hpos);
08a24c47
JB
755}
756
757/* Similar but don't take any account of the wasted characters. */
758
dfcf069d 759void
08a24c47 760raw_cursor_to (row, col)
4746118a 761 int row, col;
08a24c47 762{
e52f4e08
GM
763 struct frame *f = updating_frame ? updating_frame : XFRAME (selected_frame);
764 if (! FRAME_TERMCAP_P (f))
08a24c47
JB
765 {
766 (*raw_cursor_to_hook) (row, col);
767 return;
768 }
769 if (curY == row && curX == col)
770 return;
771 if (!TF_standout_motion)
772 background_highlight ();
773 if (!TF_insmode_motion)
774 turn_off_insert ();
775 cmgoto (row, col);
776}
777\f
778/* Erase operations */
779
ff11dfa1 780/* clear from cursor to end of frame */
dfcf069d 781void
08a24c47
JB
782clear_to_end ()
783{
784 register int i;
785
759d9005 786 if (clear_to_end_hook && ! FRAME_TERMCAP_P (updating_frame))
08a24c47
JB
787 {
788 (*clear_to_end_hook) ();
789 return;
790 }
791 if (TS_clr_to_bottom)
792 {
793 background_highlight ();
794 OUTPUT (TS_clr_to_bottom);
e52f4e08
GM
795 bzero (chars_wasted + curY,
796 FRAME_HEIGHT (XFRAME (selected_frame)) - curY);
08a24c47
JB
797 }
798 else
799 {
e52f4e08 800 for (i = curY; i < FRAME_HEIGHT (XFRAME (selected_frame)); i++)
08a24c47
JB
801 {
802 cursor_to (i, 0);
e52f4e08 803 clear_end_of_line_raw (FRAME_WIDTH (XFRAME (selected_frame)));
08a24c47
JB
804 }
805 }
806}
807
ff11dfa1 808/* Clear entire frame */
08a24c47 809
dfcf069d 810void
ff11dfa1 811clear_frame ()
08a24c47 812{
e52f4e08
GM
813 struct frame *sf = XFRAME (selected_frame);
814
ff11dfa1 815 if (clear_frame_hook
e52f4e08 816 && ! FRAME_TERMCAP_P ((updating_frame ? updating_frame : sf)))
08a24c47 817 {
ff11dfa1 818 (*clear_frame_hook) ();
08a24c47
JB
819 return;
820 }
ff11dfa1 821 if (TS_clr_frame)
08a24c47
JB
822 {
823 background_highlight ();
ff11dfa1 824 OUTPUT (TS_clr_frame);
e52f4e08 825 bzero (chars_wasted, FRAME_HEIGHT (sf));
08a24c47
JB
826 cmat (0, 0);
827 }
828 else
829 {
830 cursor_to (0, 0);
831 clear_to_end ();
832 }
833}
834
835/* Clear to end of line, but do not clear any standout marker.
836 Assumes that the cursor is positioned at a character of real text,
837 which implies it cannot be before a standout marker
838 unless the marker has zero width.
839
840 Note that the cursor may be moved. */
841
dfcf069d 842void
08a24c47
JB
843clear_end_of_line (first_unused_hpos)
844 int first_unused_hpos;
845{
e52f4e08 846 if (FRAME_TERMCAP_P (XFRAME (selected_frame))
36cae867 847 && chars_wasted != 0
08a24c47 848 && TN_standout_width == 0 && curX == 0 && chars_wasted[curY] != 0)
a168702a 849 write_glyphs (&space_glyph, 1);
08a24c47
JB
850 clear_end_of_line_raw (first_unused_hpos);
851}
852
853/* Clear from cursor to end of line.
854 Assume that the line is already clear starting at column first_unused_hpos.
855 If the cursor is at a standout marker, erase the marker.
856
857 Note that the cursor may be moved, on terminals lacking a `ce' string. */
858
dfcf069d 859void
08a24c47
JB
860clear_end_of_line_raw (first_unused_hpos)
861 int first_unused_hpos;
862{
863 register int i;
864
865 if (clear_end_of_line_hook
1820044b 866 && ! FRAME_TERMCAP_P ((updating_frame
ff11dfa1 867 ? updating_frame
e52f4e08 868 : XFRAME (selected_frame))))
08a24c47
JB
869 {
870 (*clear_end_of_line_hook) (first_unused_hpos);
871 return;
872 }
873
36cae867
KH
874 /* Detect the case where we are called from reset_sys_modes
875 and the costs have never been calculated. Do nothing. */
876 if (chars_wasted == 0)
877 return;
878
08a24c47
JB
879 first_unused_hpos += chars_wasted[curY] & 077;
880 if (curX >= first_unused_hpos)
881 return;
882 /* Notice if we are erasing a magic cookie */
883 if (curX == 0)
884 chars_wasted[curY] = 0;
885 background_highlight ();
886 if (TS_clr_line)
887 {
888 OUTPUT1 (TS_clr_line);
889 }
890 else
891 { /* have to do it the hard way */
e52f4e08 892 struct frame *sf = XFRAME (selected_frame);
08a24c47
JB
893 turn_off_insert ();
894
a168702a 895 /* Do not write in last row last col with Auto-wrap on. */
e52f4e08
GM
896 if (AutoWrap && curY == FRAME_HEIGHT (sf) - 1
897 && first_unused_hpos == FRAME_WIDTH (sf))
08a24c47
JB
898 first_unused_hpos--;
899
900 for (i = curX; i < first_unused_hpos; i++)
901 {
902 if (termscript)
903 fputc (' ', termscript);
904 putchar (' ');
905 }
906 cmplus (first_unused_hpos - curX);
907 }
908}
909\f
a4decb7f
KH
910/* Encode SRC_LEN glyphs starting at SRC to terminal output codes and
911 store them at DST. Do not write more than DST_LEN bytes. That may
912 require stopping before all SRC_LEN input glyphs have been
913 converted.
914
915 We store the number of glyphs actually converted in *CONSUMED. The
916 return value is the number of bytes store in DST. */
917
918int
919encode_terminal_code (src, dst, src_len, dst_len, consumed)
a168702a 920 struct glyph *src;
a4decb7f
KH
921 int src_len;
922 unsigned char *dst;
923 int dst_len, *consumed;
924{
a168702a 925 struct glyph *src_start = src, *src_end = src + src_len;
a4decb7f 926 unsigned char *dst_start = dst, *dst_end = dst + dst_len;
085d5908
KH
927 register GLYPH g;
928 unsigned int c;
c7cba11d 929 unsigned char workbuf[MAX_MULTIBYTE_LENGTH], *buf;
6589fd67 930 int len;
a4decb7f
KH
931 register int tlen = GLYPH_TABLE_LENGTH;
932 register Lisp_Object *tbase = GLYPH_TABLE_BASE;
f3ac545f 933 int result;
6589fd67
KH
934 struct coding_system *coding;
935
936 coding = (CODING_REQUIRE_ENCODING (&terminal_coding)
937 ? &terminal_coding
938 : &safe_terminal_coding);
a4decb7f
KH
939
940 while (src < src_end)
941 {
a4decb7f 942 /* We must skip glyphs to be padded for a wide character. */
a168702a 943 if (! CHAR_GLYPH_PADDING_P (*src))
a4decb7f 944 {
32de38e4
KH
945 g = GLYPH_FROM_CHAR_GLYPH (src[0]);
946
947 if (g < 0 || g >= tlen)
085d5908 948 {
32de38e4
KH
949 /* This glyph doesn't has an entry in Vglyph_table. */
950 if (! CHAR_VALID_P (src->u.ch, 0))
951 {
952 len = 1;
953 buf = " ";
954 }
955 else
956 {
957 len = CHAR_STRING (src->u.ch, workbuf);
958 buf = workbuf;
959 }
085d5908 960 }
32de38e4 961 else
a4decb7f 962 {
32de38e4 963 /* This glyph has an entry in Vglyph_table,
a4decb7f
KH
964 so process any alias before testing for simpleness. */
965 GLYPH_FOLLOW_ALIASES (tbase, tlen, g);
32de38e4
KH
966
967 if (GLYPH_SIMPLE_P (tbase, tlen, g))
968 {
c989b7be
KH
969 /* We set the multi-byte form of a character in G
970 (that should be an ASCII character) at
971 WORKBUF. */
972 workbuf[0] = FAST_GLYPH_CHAR (g);
973 len = 1;
32de38e4
KH
974 buf = workbuf;
975 }
976 else
977 {
978 /* We have a string in Vglyph_table. */
979 len = GLYPH_LENGTH (tbase, g);
980 buf = GLYPH_STRING (tbase, g);
981 }
171d7f24 982 }
a4decb7f 983
f3ac545f 984 result = encode_coding (coding, buf, dst, len, dst_end - dst);
c42869c4 985 len -= coding->consumed;
6589fd67 986 dst += coding->produced;
f3ac545f
KH
987 if (result == CODING_FINISH_INSUFFICIENT_DST
988 || (result == CODING_FINISH_INSUFFICIENT_SRC
989 && len > dst_end - dst))
990 /* The remaining output buffer is too short. We must
991 break the loop here without increasing SRC so that the
992 next call of this function starts from the same glyph. */
993 break;
994
c42869c4
KH
995 if (len > 0)
996 {
f3ac545f
KH
997 /* This is the case that a code of the range 0200..0237
998 exists in buf. We must just write out such a code. */
999 buf += coding->consumed;
1000 while (len--)
1001 *dst++ = *buf++;
c42869c4 1002 }
a4decb7f
KH
1003 }
1004 src++;
1005 }
a168702a 1006
a4decb7f
KH
1007 *consumed = src - src_start;
1008 return (dst - dst_start);
1009}
1010
08a24c47 1011
dfcf069d 1012void
08a24c47 1013write_glyphs (string, len)
a168702a 1014 register struct glyph *string;
08a24c47
JB
1015 register int len;
1016{
a4decb7f 1017 int produced, consumed;
e52f4e08
GM
1018 struct frame *sf = XFRAME (selected_frame);
1019 struct frame *f = updating_frame ? updating_frame : sf;
08a24c47
JB
1020
1021 if (write_glyphs_hook
a168702a 1022 && ! FRAME_TERMCAP_P (f))
08a24c47
JB
1023 {
1024 (*write_glyphs_hook) (string, len);
1025 return;
1026 }
1027
1028 highlight_if_desired ();
1029 turn_off_insert ();
1030
a168702a 1031 /* Don't dare write in last column of bottom line, if Auto-Wrap,
ff11dfa1 1032 since that would scroll the whole frame on some terminals. */
08a24c47
JB
1033
1034 if (AutoWrap
e52f4e08
GM
1035 && curY + 1 == FRAME_HEIGHT (sf)
1036 && (curX + len - (chars_wasted[curY] & 077) == FRAME_WIDTH (sf)))
08a24c47 1037 len --;
a4decb7f
KH
1038 if (len <= 0)
1039 return;
08a24c47
JB
1040
1041 cmplus (len);
a168702a 1042
6589fd67
KH
1043 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
1044 the tail. */
1045 terminal_coding.mode &= ~CODING_MODE_LAST_BLOCK;
a168702a 1046
a4decb7f 1047 while (len > 0)
08a24c47 1048 {
a168702a 1049 /* Identify a run of glyphs with the same face. */
32de38e4 1050 int face_id = string->face_id;
a168702a
GM
1051 int n;
1052
1053 for (n = 1; n < len; ++n)
32de38e4 1054 if (string[n].face_id != face_id)
a168702a
GM
1055 break;
1056
1057 /* Turn appearance modes of the face of the run on. */
1058 turn_on_face (f, face_id);
1059
1060 while (n > 0)
08a24c47 1061 {
a168702a
GM
1062 /* We use a shared conversion buffer of the current size
1063 (1024 bytes at least). Usually it is sufficient, but if
1064 not, we just repeat the loop. */
1065 produced = encode_terminal_code (string, conversion_buffer,
1066 n, conversion_buffer_size,
1067 &consumed);
1068 if (produced > 0)
1069 {
1070 fwrite (conversion_buffer, 1, produced, stdout);
1071 if (ferror (stdout))
1072 clearerr (stdout);
1073 if (termscript)
1074 fwrite (conversion_buffer, 1, produced, termscript);
1075 }
1076 len -= consumed;
1077 n -= consumed;
1078 string += consumed;
08a24c47 1079 }
a168702a
GM
1080
1081 /* Turn appearance modes off. */
1082 turn_off_face (f, face_id);
a4decb7f 1083 }
a168702a 1084
a4decb7f 1085 /* We may have to output some codes to terminate the writing. */
ca1e6a13 1086 if (CODING_REQUIRE_FLUSHING (&terminal_coding))
a4decb7f 1087 {
6589fd67 1088 terminal_coding.mode |= CODING_MODE_LAST_BLOCK;
1814bd62 1089 encode_coding (&terminal_coding, "", conversion_buffer,
6589fd67
KH
1090 0, conversion_buffer_size);
1091 if (terminal_coding.produced > 0)
df8bf431 1092 {
6589fd67 1093 fwrite (conversion_buffer, 1, terminal_coding.produced, stdout);
df8bf431
KH
1094 if (ferror (stdout))
1095 clearerr (stdout);
1096 if (termscript)
6589fd67
KH
1097 fwrite (conversion_buffer, 1, terminal_coding.produced,
1098 termscript);
df8bf431 1099 }
08a24c47 1100 }
a168702a 1101
9a6b6f92 1102 cmcheckmagic ();
08a24c47
JB
1103}
1104
1105/* If start is zero, insert blanks instead of a string at start */
1106
dfcf069d 1107void
08a24c47 1108insert_glyphs (start, len)
a168702a 1109 register struct glyph *start;
08a24c47
JB
1110 register int len;
1111{
1112 char *buf;
32de38e4 1113 struct glyph *glyph;
e52f4e08 1114 struct frame *f, *sf;
08a24c47 1115
a4decb7f
KH
1116 if (len <= 0)
1117 return;
1118
a168702a 1119 if (insert_glyphs_hook)
08a24c47
JB
1120 {
1121 (*insert_glyphs_hook) (start, len);
1122 return;
1123 }
a168702a 1124
e52f4e08
GM
1125 sf = XFRAME (selected_frame);
1126 f = updating_frame ? updating_frame : sf;
08a24c47
JB
1127 highlight_if_desired ();
1128
1129 if (TS_ins_multi_chars)
1130 {
1131 buf = tparam (TS_ins_multi_chars, 0, 0, len);
1132 OUTPUT1 (buf);
9ac0d9e0 1133 xfree (buf);
08a24c47
JB
1134 if (start)
1135 write_glyphs (start, len);
1136 return;
1137 }
1138
1139 turn_on_insert ();
1140 cmplus (len);
6589fd67
KH
1141 /* The bit CODING_MODE_LAST_BLOCK should be set to 1 only at the tail. */
1142 terminal_coding.mode &= ~CODING_MODE_LAST_BLOCK;
07109bf9 1143 while (len-- > 0)
08a24c47 1144 {
a4decb7f
KH
1145 int produced, consumed;
1146
08a24c47
JB
1147 OUTPUT1_IF (TS_ins_char);
1148 if (!start)
32de38e4
KH
1149 {
1150 conversion_buffer[0] = SPACEGLYPH;
1151 produced = 1;
1152 }
08a24c47 1153 else
08a24c47 1154 {
32de38e4 1155 turn_on_face (f, start->face_id);
816be8b8 1156 glyph = start;
a168702a 1157 ++start;
a4decb7f
KH
1158 /* We must open sufficient space for a character which
1159 occupies more than one column. */
a168702a 1160 while (len && CHAR_GLYPH_PADDING_P (*start))
a4decb7f
KH
1161 {
1162 OUTPUT1_IF (TS_ins_char);
1163 start++, len--;
1164 }
a4decb7f 1165
32de38e4
KH
1166 if (len <= 0)
1167 /* This is the last glyph. */
1168 terminal_coding.mode |= CODING_MODE_LAST_BLOCK;
1169
1170 /* We use shared conversion buffer of the current size (1024
1171 bytes at least). It is surely sufficient for just one glyph. */
816be8b8 1172 produced = encode_terminal_code (glyph, conversion_buffer, 1,
32de38e4
KH
1173 conversion_buffer_size, &consumed);
1174 }
a4decb7f 1175
a4decb7f 1176 if (produced > 0)
08a24c47 1177 {
a4decb7f 1178 fwrite (conversion_buffer, 1, produced, stdout);
08a24c47
JB
1179 if (ferror (stdout))
1180 clearerr (stdout);
1181 if (termscript)
a4decb7f 1182 fwrite (conversion_buffer, 1, produced, termscript);
08a24c47
JB
1183 }
1184
9a6b6f92 1185 OUTPUT1_IF (TS_pad_inserted_char);
32de38e4
KH
1186 if (start)
1187 turn_off_face (f, glyph->face_id);
9a6b6f92 1188 }
a168702a 1189
9a6b6f92 1190 cmcheckmagic ();
08a24c47
JB
1191}
1192
dfcf069d 1193void
08a24c47
JB
1194delete_glyphs (n)
1195 register int n;
1196{
1197 char *buf;
1198 register int i;
1199
1820044b 1200 if (delete_glyphs_hook && ! FRAME_TERMCAP_P (updating_frame))
08a24c47
JB
1201 {
1202 (*delete_glyphs_hook) (n);
1203 return;
1204 }
1205
1206 if (delete_in_insert_mode)
1207 {
1208 turn_on_insert ();
1209 }
1210 else
1211 {
1212 turn_off_insert ();
1213 OUTPUT_IF (TS_delete_mode);
1214 }
1215
1216 if (TS_del_multi_chars)
1217 {
1218 buf = tparam (TS_del_multi_chars, 0, 0, n);
1219 OUTPUT1 (buf);
9ac0d9e0 1220 xfree (buf);
08a24c47
JB
1221 }
1222 else
1223 for (i = 0; i < n; i++)
1224 OUTPUT1 (TS_del_char);
1225 if (!delete_in_insert_mode)
1226 OUTPUT_IF (TS_end_delete_mode);
1227}
1228\f
1229/* Insert N lines at vpos VPOS. If N is negative, delete -N lines. */
1230
dfcf069d 1231void
08a24c47
JB
1232ins_del_lines (vpos, n)
1233 int vpos, n;
1234{
1235 char *multi = n > 0 ? TS_ins_multi_lines : TS_del_multi_lines;
1236 char *single = n > 0 ? TS_ins_line : TS_del_line;
1237 char *scroll = n > 0 ? TS_rev_scroll : TS_fwd_scroll;
e52f4e08 1238 struct frame *sf;
08a24c47
JB
1239
1240 register int i = n > 0 ? n : -n;
1241 register char *buf;
1242
1820044b 1243 if (ins_del_lines_hook && ! FRAME_TERMCAP_P (updating_frame))
08a24c47
JB
1244 {
1245 (*ins_del_lines_hook) (vpos, n);
1246 return;
1247 }
1248
e52f4e08
GM
1249 sf = XFRAME (selected_frame);
1250
08a24c47
JB
1251 /* If the lines below the insertion are being pushed
1252 into the end of the window, this is the same as clearing;
1253 and we know the lines are already clear, since the matching
1254 deletion has already been done. So can ignore this. */
1255 /* If the lines below the deletion are blank lines coming
1256 out of the end of the window, don't bother,
1257 as there will be a matching inslines later that will flush them. */
1258 if (scroll_region_ok && vpos + i >= specified_window)
1259 return;
e52f4e08 1260 if (!memory_below_frame && vpos + i >= FRAME_HEIGHT (sf))
08a24c47
JB
1261 return;
1262
1263 if (multi)
1264 {
1265 raw_cursor_to (vpos, 0);
1266 background_highlight ();
1267 buf = tparam (multi, 0, 0, i);
1268 OUTPUT (buf);
9ac0d9e0 1269 xfree (buf);
08a24c47
JB
1270 }
1271 else if (single)
1272 {
1273 raw_cursor_to (vpos, 0);
1274 background_highlight ();
1275 while (--i >= 0)
1276 OUTPUT (single);
1277 if (TF_teleray)
1278 curX = 0;
1279 }
1280 else
1281 {
1282 set_scroll_region (vpos, specified_window);
1283 if (n < 0)
1284 raw_cursor_to (specified_window - 1, 0);
1285 else
1286 raw_cursor_to (vpos, 0);
1287 background_highlight ();
1288 while (--i >= 0)
1289 OUTPUTL (scroll, specified_window - vpos);
1290 set_scroll_region (0, specified_window);
1291 }
1292
1293 if (TN_standout_width >= 0)
1294 {
dfcf069d 1295 register int lower_limit
08a24c47
JB
1296 = (scroll_region_ok
1297 ? specified_window
e52f4e08 1298 : FRAME_HEIGHT (sf));
08a24c47
JB
1299
1300 if (n < 0)
1301 {
1302 bcopy (&chars_wasted[vpos - n], &chars_wasted[vpos],
1303 lower_limit - vpos + n);
1304 bzero (&chars_wasted[lower_limit + n], - n);
1305 }
1306 else
1307 {
1308 bcopy (&chars_wasted[vpos], &copybuf[vpos], lower_limit - vpos - n);
1309 bcopy (&copybuf[vpos], &chars_wasted[vpos + n],
1310 lower_limit - vpos - n);
1311 bzero (&chars_wasted[vpos], n);
1312 }
1313 }
ff11dfa1 1314 if (!scroll_region_ok && memory_below_frame && n < 0)
08a24c47 1315 {
e52f4e08 1316 cursor_to (FRAME_HEIGHT (sf) + n, 0);
08a24c47
JB
1317 clear_to_end ();
1318 }
1319}
1320\f
1321/* Compute cost of sending "str", in characters,
1322 not counting any line-dependent padding. */
1323
1324int
1325string_cost (str)
1326 char *str;
1327{
1328 cost = 0;
1329 if (str)
1330 tputs (str, 0, evalcost);
1331 return cost;
1332}
1333
1334/* Compute cost of sending "str", in characters,
1335 counting any line-dependent padding at one line. */
1336
1337static int
1338string_cost_one_line (str)
1339 char *str;
1340{
1341 cost = 0;
1342 if (str)
1343 tputs (str, 1, evalcost);
1344 return cost;
1345}
1346
1347/* Compute per line amount of line-dependent padding,
1348 in tenths of characters. */
1349
1350int
1351per_line_cost (str)
1352 register char *str;
1353{
1354 cost = 0;
1355 if (str)
1356 tputs (str, 0, evalcost);
1357 cost = - cost;
1358 if (str)
1359 tputs (str, 10, evalcost);
1360 return cost;
1361}
1362
1363#ifndef old
1364/* char_ins_del_cost[n] is cost of inserting N characters.
8dd0c7cb
RS
1365 char_ins_del_cost[-n] is cost of deleting N characters.
1366 The length of this vector is based on max_frame_width. */
08a24c47
JB
1367
1368int *char_ins_del_vector;
1369
ff11dfa1 1370#define char_ins_del_cost(f) (&char_ins_del_vector[FRAME_WIDTH ((f))])
08a24c47
JB
1371#endif
1372
1373/* ARGSUSED */
1374static void
ff11dfa1
JB
1375calculate_ins_del_char_costs (frame)
1376 FRAME_PTR frame;
08a24c47
JB
1377{
1378 int ins_startup_cost, del_startup_cost;
1379 int ins_cost_per_char, del_cost_per_char;
1380 register int i;
1381 register int *p;
1382
1383 if (TS_ins_multi_chars)
1384 {
1385 ins_cost_per_char = 0;
1386 ins_startup_cost = string_cost_one_line (TS_ins_multi_chars);
1387 }
1388 else if (TS_ins_char || TS_pad_inserted_char
1389 || (TS_insert_mode && TS_end_insert_mode))
1390 {
1391 ins_startup_cost = (30 * (string_cost (TS_insert_mode)
1392 + string_cost (TS_end_insert_mode))) / 100;
1393 ins_cost_per_char = (string_cost_one_line (TS_ins_char)
1394 + string_cost_one_line (TS_pad_inserted_char));
1395 }
1396 else
1397 {
1398 ins_startup_cost = 9999;
1399 ins_cost_per_char = 0;
1400 }
1401
1402 if (TS_del_multi_chars)
1403 {
1404 del_cost_per_char = 0;
1405 del_startup_cost = string_cost_one_line (TS_del_multi_chars);
1406 }
1407 else if (TS_del_char)
1408 {
1409 del_startup_cost = (string_cost (TS_delete_mode)
1410 + string_cost (TS_end_delete_mode));
1411 if (delete_in_insert_mode)
1412 del_startup_cost /= 2;
1413 del_cost_per_char = string_cost_one_line (TS_del_char);
1414 }
1415 else
1416 {
1417 del_startup_cost = 9999;
1418 del_cost_per_char = 0;
1419 }
1420
1421 /* Delete costs are at negative offsets */
ff11dfa1 1422 p = &char_ins_del_cost (frame)[0];
db71d414 1423 for (i = FRAME_WIDTH (frame); --i >= 0;)
08a24c47
JB
1424 *--p = (del_startup_cost += del_cost_per_char);
1425
1426 /* Doing nothing is free */
ff11dfa1 1427 p = &char_ins_del_cost (frame)[0];
08a24c47
JB
1428 *p++ = 0;
1429
1430 /* Insert costs are at positive offsets */
ff11dfa1 1431 for (i = FRAME_WIDTH (frame); --i >= 0;)
08a24c47
JB
1432 *p++ = (ins_startup_cost += ins_cost_per_char);
1433}
1434
dfcf069d 1435void
ff11dfa1
JB
1436calculate_costs (frame)
1437 FRAME_PTR frame;
08a24c47 1438{
9f732a77
RS
1439 register char *f = (TS_set_scroll_region
1440 ? TS_set_scroll_region
1441 : TS_set_scroll_region_1);
08a24c47 1442
9f732a77 1443 FRAME_COST_BAUD_RATE (frame) = baud_rate;
08a24c47 1444
be7cd44f 1445 scroll_region_cost = string_cost (f);
08a24c47
JB
1446
1447 /* These variables are only used for terminal stuff. They are allocated
ff11dfa1 1448 once for the terminal frame of X-windows emacs, but not used afterwards.
08a24c47
JB
1449
1450 char_ins_del_vector (i.e., char_ins_del_cost) isn't used because
1451 X turns off char_ins_del_ok.
1452
1453 chars_wasted and copybuf are only used here in term.c in cases where
1454 the term hook isn't called. */
1455
8dd0c7cb
RS
1456 max_frame_height = max (max_frame_height, FRAME_HEIGHT (frame));
1457 max_frame_width = max (max_frame_width, FRAME_WIDTH (frame));
1458
08a24c47 1459 if (chars_wasted != 0)
8dd0c7cb 1460 chars_wasted = (char *) xrealloc (chars_wasted, max_frame_height);
08a24c47 1461 else
8dd0c7cb 1462 chars_wasted = (char *) xmalloc (max_frame_height);
08a24c47
JB
1463
1464 if (copybuf != 0)
8dd0c7cb 1465 copybuf = (char *) xrealloc (copybuf, max_frame_height);
08a24c47 1466 else
8dd0c7cb 1467 copybuf = (char *) xmalloc (max_frame_height);
08a24c47
JB
1468
1469 if (char_ins_del_vector != 0)
1470 char_ins_del_vector
1471 = (int *) xrealloc (char_ins_del_vector,
1472 (sizeof (int)
8dd0c7cb 1473 + 2 * max_frame_width * sizeof (int)));
08a24c47
JB
1474 else
1475 char_ins_del_vector
1476 = (int *) xmalloc (sizeof (int)
8dd0c7cb 1477 + 2 * max_frame_width * sizeof (int));
08a24c47 1478
8dd0c7cb
RS
1479 bzero (chars_wasted, max_frame_height);
1480 bzero (copybuf, max_frame_height);
08a24c47 1481 bzero (char_ins_del_vector, (sizeof (int)
8dd0c7cb 1482 + 2 * max_frame_width * sizeof (int)));
08a24c47 1483
ff11dfa1
JB
1484 if (f && (!TS_ins_line && !TS_del_line))
1485 do_line_insertion_deletion_costs (frame,
08a24c47
JB
1486 TS_rev_scroll, TS_ins_multi_lines,
1487 TS_fwd_scroll, TS_del_multi_lines,
ff11dfa1 1488 f, f, 1);
08a24c47 1489 else
ff11dfa1 1490 do_line_insertion_deletion_costs (frame,
08a24c47
JB
1491 TS_ins_line, TS_ins_multi_lines,
1492 TS_del_line, TS_del_multi_lines,
1493 0, 0, 1);
1494
ff11dfa1 1495 calculate_ins_del_char_costs (frame);
08a24c47
JB
1496
1497 /* Don't use TS_repeat if its padding is worse than sending the chars */
1498 if (TS_repeat && per_line_cost (TS_repeat) * baud_rate < 9000)
1499 RPov = string_cost (TS_repeat);
1500 else
ff11dfa1 1501 RPov = FRAME_WIDTH (frame) * 2;
08a24c47
JB
1502
1503 cmcostinit (); /* set up cursor motion costs */
1504}
1505\f
a796ac82
JB
1506struct fkey_table {
1507 char *cap, *name;
1508};
1509
01d8deb0
ER
1510 /* Termcap capability names that correspond directly to X keysyms.
1511 Some of these (marked "terminfo") aren't supplied by old-style
1512 (Berkeley) termcap entries. They're listed in X keysym order;
1513 except we put the keypad keys first, so that if they clash with
1514 other keys (as on the IBM PC keyboard) they get overridden.
1515 */
1516
a168702a
GM
1517static struct fkey_table keys[] =
1518{
01d8deb0
ER
1519 "kh", "home", /* termcap */
1520 "kl", "left", /* termcap */
1521 "ku", "up", /* termcap */
1522 "kr", "right", /* termcap */
1523 "kd", "down", /* termcap */
1524 "%8", "prior", /* terminfo */
1525 "%5", "next", /* terminfo */
1526 "@7", "end", /* terminfo */
1527 "@1", "begin", /* terminfo */
1528 "*6", "select", /* terminfo */
1529 "%9", "print", /* terminfo */
1530 "@4", "execute", /* terminfo --- actually the `command' key */
1531 /*
1532 * "insert" --- see below
1533 */
1534 "&8", "undo", /* terminfo */
1535 "%0", "redo", /* terminfo */
1536 "%7", "menu", /* terminfo --- actually the `options' key */
1537 "@0", "find", /* terminfo */
1538 "@2", "cancel", /* terminfo */
1539 "%1", "help", /* terminfo */
1540 /*
1541 * "break" goes here, but can't be reliably intercepted with termcap
1542 */
1543 "&4", "reset", /* terminfo --- actually `restart' */
1544 /*
1545 * "system" and "user" --- no termcaps
1546 */
1547 "kE", "clearline", /* terminfo */
1548 "kA", "insertline", /* terminfo */
1549 "kL", "deleteline", /* terminfo */
1550 "kI", "insertchar", /* terminfo */
1551 "kD", "deletechar", /* terminfo */
1552 "kB", "backtab", /* terminfo */
1553 /*
1554 * "kp_backtab", "kp-space", "kp-tab" --- no termcaps
1555 */
1556 "@8", "kp-enter", /* terminfo */
1557 /*
1558 * "kp-f1", "kp-f2", "kp-f3" "kp-f4",
1559 * "kp-multiply", "kp-add", "kp-separator",
1560 * "kp-subtract", "kp-decimal", "kp-divide", "kp-0";
1561 * --- no termcaps for any of these.
1562 */
1563 "K4", "kp-1", /* terminfo */
1564 /*
1565 * "kp-2" --- no termcap
1566 */
1567 "K5", "kp-3", /* terminfo */
1568 /*
1569 * "kp-4" --- no termcap
1570 */
1571 "K2", "kp-5", /* terminfo */
1572 /*
1573 * "kp-6" --- no termcap
1574 */
1575 "K1", "kp-7", /* terminfo */
1576 /*
1577 * "kp-8" --- no termcap
1578 */
1579 "K3", "kp-9", /* terminfo */
1580 /*
1581 * "kp-equal" --- no termcap
1582 */
1583 "k1", "f1",
1584 "k2", "f2",
1585 "k3", "f3",
1586 "k4", "f4",
1587 "k5", "f5",
1588 "k6", "f6",
1589 "k7", "f7",
1590 "k8", "f8",
1591 "k9", "f9",
a796ac82
JB
1592 };
1593
f2a00342
RM
1594static char **term_get_fkeys_arg;
1595static Lisp_Object term_get_fkeys_1 ();
465db27b 1596
01d8deb0
ER
1597/* Find the escape codes sent by the function keys for Vfunction_key_map.
1598 This function scans the termcap function key sequence entries, and
1599 adds entries to Vfunction_key_map for each function key it finds. */
1600
5c2c7893
JB
1601void
1602term_get_fkeys (address)
1603 char **address;
f2a00342
RM
1604{
1605 /* We run the body of the function (term_get_fkeys_1) and ignore all Lisp
1606 errors during the call. The only errors should be from Fdefine_key
1607 when given a key sequence containing an invalid prefix key. If the
1608 termcap defines function keys which use a prefix that is already bound
1609 to a command by the default bindings, we should silently ignore that
1610 function key specification, rather than giving the user an error and
1611 refusing to run at all on such a terminal. */
1612
1613 extern Lisp_Object Fidentity ();
f2a00342
RM
1614 term_get_fkeys_arg = address;
1615 internal_condition_case (term_get_fkeys_1, Qerror, Fidentity);
1616}
1617
1618static Lisp_Object
1619term_get_fkeys_1 ()
5c2c7893 1620{
5c2c7893
JB
1621 int i;
1622
37085233 1623 char **address = term_get_fkeys_arg;
f778aff2 1624
3e65092f
RS
1625 /* This can happen if CANNOT_DUMP or with strange options. */
1626 if (!initialized)
1627 Vfunction_key_map = Fmake_sparse_keymap (Qnil);
1628
5c2c7893
JB
1629 for (i = 0; i < (sizeof (keys)/sizeof (keys[0])); i++)
1630 {
1631 char *sequence = tgetstr (keys[i].cap, address);
1632 if (sequence)
f2a00342
RM
1633 Fdefine_key (Vfunction_key_map, build_string (sequence),
1634 Fmake_vector (make_number (1),
1635 intern (keys[i].name)));
5c2c7893 1636 }
a796ac82
JB
1637
1638 /* The uses of the "k0" capability are inconsistent; sometimes it
1639 describes F10, whereas othertimes it describes F0 and "k;" describes F10.
eb8c3be9 1640 We will attempt to politely accommodate both systems by testing for
a796ac82
JB
1641 "k;", and if it is present, assuming that "k0" denotes F0, otherwise F10.
1642 */
1643 {
1644 char *k_semi = tgetstr ("k;", address);
1645 char *k0 = tgetstr ("k0", address);
1646 char *k0_name = "f10";
1647
1648 if (k_semi)
1649 {
f2a00342
RM
1650 Fdefine_key (Vfunction_key_map, build_string (k_semi),
1651 Fmake_vector (make_number (1), intern ("f10")));
a796ac82
JB
1652 k0_name = "f0";
1653 }
1654
1655 if (k0)
f2a00342
RM
1656 Fdefine_key (Vfunction_key_map, build_string (k0),
1657 Fmake_vector (make_number (1), intern (k0_name)));
a796ac82 1658 }
01d8deb0
ER
1659
1660 /* Set up cookies for numbered function keys above f10. */
1661 {
1662 char fcap[3], fkey[4];
1663
fc4f24da 1664 fcap[0] = 'F'; fcap[2] = '\0';
01d8deb0
ER
1665 for (i = 11; i < 64; i++)
1666 {
1667 if (i <= 19)
1668 fcap[1] = '1' + i - 11;
1669 else if (i <= 45)
b59ab95c 1670 fcap[1] = 'A' + i - 20;
01d8deb0 1671 else
b59ab95c 1672 fcap[1] = 'a' + i - 46;
01d8deb0 1673
fc4f24da
RS
1674 {
1675 char *sequence = tgetstr (fcap, address);
1676 if (sequence)
1677 {
465db27b 1678 sprintf (fkey, "f%d", i);
f2a00342
RM
1679 Fdefine_key (Vfunction_key_map, build_string (sequence),
1680 Fmake_vector (make_number (1),
1681 intern (fkey)));
fc4f24da
RS
1682 }
1683 }
01d8deb0
ER
1684 }
1685 }
1686
1687 /*
1688 * Various mappings to try and get a better fit.
1689 */
1690 {
fc4f24da
RS
1691#define CONDITIONAL_REASSIGN(cap1, cap2, sym) \
1692 if (!tgetstr (cap1, address)) \
1693 { \
1694 char *sequence = tgetstr (cap2, address); \
1695 if (sequence) \
f2a00342
RM
1696 Fdefine_key (Vfunction_key_map, build_string (sequence), \
1697 Fmake_vector (make_number (1), \
1698 intern (sym))); \
fc4f24da 1699 }
01d8deb0
ER
1700
1701 /* if there's no key_next keycap, map key_npage to `next' keysym */
27b61785 1702 CONDITIONAL_REASSIGN ("%5", "kN", "next");
01d8deb0 1703 /* if there's no key_prev keycap, map key_ppage to `previous' keysym */
381d11a1 1704 CONDITIONAL_REASSIGN ("%8", "kP", "prior");
01d8deb0 1705 /* if there's no key_dc keycap, map key_ic to `insert' keysym */
27b61785 1706 CONDITIONAL_REASSIGN ("kD", "kI", "insert");
403c995b
RS
1707 /* if there's no key_end keycap, map key_ll to 'end' keysym */
1708 CONDITIONAL_REASSIGN ("@7", "kH", "end");
0a7f697a
KH
1709
1710 /* IBM has their own non-standard dialect of terminfo.
1711 If the standard name isn't found, try the IBM name. */
1712 CONDITIONAL_REASSIGN ("kB", "KO", "backtab");
1713 CONDITIONAL_REASSIGN ("@4", "kJ", "execute"); /* actually "action" */
1714 CONDITIONAL_REASSIGN ("@4", "kc", "execute"); /* actually "command" */
1715 CONDITIONAL_REASSIGN ("%7", "ki", "menu");
1716 CONDITIONAL_REASSIGN ("@7", "kw", "end");
1717 CONDITIONAL_REASSIGN ("F1", "k<", "f11");
1718 CONDITIONAL_REASSIGN ("F2", "k>", "f12");
1719 CONDITIONAL_REASSIGN ("%1", "kq", "help");
1720 CONDITIONAL_REASSIGN ("*6", "kU", "select");
1dd40212 1721#undef CONDITIONAL_REASSIGN
01d8deb0 1722 }
a168702a
GM
1723
1724 return Qnil;
5c2c7893
JB
1725}
1726
1727\f
a168702a
GM
1728/***********************************************************************
1729 Character Display Information
1730 ***********************************************************************/
1731
1732static void append_glyph P_ ((struct it *));
1733
1734
1735/* Append glyphs to IT's glyph_row. Called from produce_glyphs for
1736 terminal frames if IT->glyph_row != NULL. IT->c is the character
1737 for which to produce glyphs; IT->face_id contains the character's
1738 face. Padding glyphs are appended if IT->c has a IT->pixel_width >
1739 1. */
1740
1741static void
1742append_glyph (it)
1743 struct it *it;
1744{
1745 struct glyph *glyph, *end;
1746 int i;
1747
1748 xassert (it->glyph_row);
1749 glyph = (it->glyph_row->glyphs[it->area]
1750 + it->glyph_row->used[it->area]);
1751 end = it->glyph_row->glyphs[1 + it->area];
1752
1753 for (i = 0;
1754 i < it->pixel_width && glyph < end;
1755 ++i)
1756 {
1757 glyph->type = CHAR_GLYPH;
1758 glyph->pixel_width = 1;
32de38e4
KH
1759 glyph->u.ch = it->c;
1760 glyph->face_id = it->face_id;
1761 glyph->padding_p = i > 0;
a168702a
GM
1762 glyph->charpos = CHARPOS (it->position);
1763 glyph->object = it->object;
1764
1765 ++it->glyph_row->used[it->area];
1766 ++glyph;
1767 }
1768}
1769
1770
1771/* Produce glyphs for the display element described by IT. The
1772 function fills output fields of IT with pixel information like the
1773 pixel width and height of a character, and maybe produces glyphs at
1774 the same time if IT->glyph_row is non-null. See the explanation of
1775 struct display_iterator in dispextern.h for an overview. */
1776
1777void
1778produce_glyphs (it)
1779 struct it *it;
1780{
1781 /* If a hook is installed, let it do the work. */
1782 xassert (it->what == IT_CHARACTER
c7cba11d 1783 || it->what == IT_COMPOSITION
a168702a
GM
1784 || it->what == IT_IMAGE
1785 || it->what == IT_STRETCH);
1786
c7cba11d
KH
1787 /* Nothing but characters are supported on terminal frames. For a
1788 composition sequence, it->c is the first character of the
1789 sequence. */
1790 xassert (it->what == IT_CHARACTER
1791 || it->what == IT_COMPOSITION);
a168702a
GM
1792
1793 if (it->c >= 040 && it->c < 0177)
1794 {
1795 it->pixel_width = it->nglyphs = 1;
1796 if (it->glyph_row)
1797 append_glyph (it);
1798 }
1799 else if (it->c == '\n')
1800 it->pixel_width = it->nglyphs = 0;
1801 else if (it->c == '\t')
1802 {
1803 int absolute_x = (it->current_x - it->prompt_width
1804 + it->continuation_lines_width);
1805 int next_tab_x
1806 = (((1 + absolute_x + it->tab_width - 1)
1807 / it->tab_width)
1808 * it->tab_width);
1809 int nspaces;
1810
1811 /* If part of the TAB has been displayed on the previous line
1812 which is continued now, continuation_lines_width will have
1813 been incremented already by the part that fitted on the
1814 continued line. So, we will get the right number of spaces
1815 here. */
1816 nspaces = next_tab_x - absolute_x;
1817
1818 if (it->glyph_row)
1819 {
1820 int n = nspaces;
1821
1822 it->c = ' ';
1823 it->pixel_width = it->len = 1;
1824
1825 while (n--)
1826 append_glyph (it);
1827
1828 it->c = '\t';
1829 }
1830
1831 it->pixel_width = nspaces;
1832 it->nglyphs = nspaces;
1833 }
1834 else
1835 {
c7cba11d
KH
1836 /* A multi-byte character. The display width is fixed for all
1837 characters of the set. Some of the glyphs may have to be
1838 ignored because they are already displayed in a continued
1839 line. */
a168702a
GM
1840 int charset = CHAR_CHARSET (it->c);
1841
c7cba11d 1842 it->pixel_width = CHARSET_WIDTH (charset);
a168702a
GM
1843 it->nglyphs = it->pixel_width;
1844
1845 if (it->glyph_row)
1846 append_glyph (it);
1847 }
1848
1849 /* Advance current_x by the pixel width as a convenience for
1850 the caller. */
1851 if (it->area == TEXT_AREA)
1852 it->current_x += it->pixel_width;
cfe8a05e
GM
1853 it->ascent = it->max_ascent = it->phys_ascent = it->max_phys_ascent = 0;
1854 it->descent = it->max_descent = it->phys_descent = it->max_phys_descent = 1;
a168702a
GM
1855}
1856
1857
1858/* Get information about special display element WHAT in an
1859 environment described by IT. WHAT is one of IT_TRUNCATION or
1860 IT_CONTINUATION. Maybe produce glyphs for WHAT if IT has a
1861 non-null glyph_row member. This function ensures that fields like
1862 face_id, c, len of IT are left untouched. */
1863
1864void
1865produce_special_glyphs (it, what)
1866 struct it *it;
1867 enum display_element_type what;
1868{
1869 struct it temp_it;
1870
1871 temp_it = *it;
1872 temp_it.dp = NULL;
1873 temp_it.what = IT_CHARACTER;
1874 temp_it.len = 1;
1875 temp_it.object = 0;
1876 bzero (&temp_it.current, sizeof temp_it.current);
1877
1878 if (what == IT_CONTINUATION)
1879 {
1880 /* Continuation glyph. */
1881 if (it->dp
1882 && INTEGERP (DISP_CONTINUE_GLYPH (it->dp))
1883 && GLYPH_CHAR_VALID_P (XINT (DISP_CONTINUE_GLYPH (it->dp))))
1884 {
1885 temp_it.c = FAST_GLYPH_CHAR (XINT (DISP_CONTINUE_GLYPH (it->dp)));
1886 temp_it.len = CHAR_LEN (temp_it.c);
1887 }
1888 else
1889 temp_it.c = '\\';
1890
1891 produce_glyphs (&temp_it);
1892 it->pixel_width = temp_it.pixel_width;
1893 it->nglyphs = temp_it.pixel_width;
1894 }
1895 else if (what == IT_TRUNCATION)
1896 {
1897 /* Truncation glyph. */
1898 if (it->dp
1899 && INTEGERP (DISP_TRUNC_GLYPH (it->dp))
1900 && GLYPH_CHAR_VALID_P (XINT (DISP_TRUNC_GLYPH (it->dp))))
1901 {
1902 temp_it.c = FAST_GLYPH_CHAR (XINT (DISP_TRUNC_GLYPH (it->dp)));
1903 temp_it.len = CHAR_LEN (temp_it.c);
1904 }
1905 else
1906 temp_it.c = '$';
1907
1908 produce_glyphs (&temp_it);
1909 it->pixel_width = temp_it.pixel_width;
1910 it->nglyphs = temp_it.pixel_width;
1911 }
1912 else
1913 abort ();
1914}
1915
1916
1917/* Return an estimation of the pixel height of mode or top lines on
1918 frame F. FACE_ID specifies what line's height to estimate. */
1919
1920int
1921estimate_mode_line_height (f, face_id)
1922 struct frame *f;
1923 enum face_id face_id;
1924{
1925 if (estimate_mode_line_height_hook)
1926 return estimate_mode_line_height_hook (f, face_id);
1927 else
1928 return 1;
1929}
1930
1931
1932\f
1933/***********************************************************************
1934 Faces
1935 ***********************************************************************/
1936
1937
1938/* Turn appearances of face FACE_ID on tty frame F on. */
1939
1940static void
1941turn_on_face (f, face_id)
1942 struct frame *f;
1943 int face_id;
1944{
1945 struct face *face = FACE_FROM_ID (f, face_id);
1946
1947 xassert (face != NULL);
1948
1949 if (face->tty_bold_p)
1950 OUTPUT1_IF (TS_enter_bold_mode);
1951 else if (face->tty_dim_p)
1952 OUTPUT1_IF (TS_enter_dim_mode);
1953
1954 /* Alternate charset and blinking not yet used. */
1955 if (face->tty_alt_charset_p)
1956 OUTPUT1_IF (TS_enter_alt_charset_mode);
1957
1958 if (face->tty_blinking_p)
1959 OUTPUT1_IF (TS_enter_blink_mode);
1960
1961 if (face->tty_underline_p
1962 /* Don't underline if that's difficult. */
1963 && TN_magic_cookie_glitch_ul <= 0)
1964 OUTPUT1_IF (TS_enter_underline_mode);
1965
f9d2fdc4
EZ
1966 if (face->tty_reverse_p
1967 || face->foreground == FACE_TTY_DEFAULT_BG_COLOR
1968 || face->background == FACE_TTY_DEFAULT_FG_COLOR)
a168702a
GM
1969 OUTPUT1_IF (TS_enter_reverse_mode);
1970
1971 if (TN_max_colors > 0)
1972 {
1973 char *p;
1974
1975 if (face->foreground != FACE_TTY_DEFAULT_COLOR
f9d2fdc4
EZ
1976 && face->foreground != FACE_TTY_DEFAULT_FG_COLOR
1977 && face->foreground != FACE_TTY_DEFAULT_BG_COLOR
a168702a
GM
1978 && TS_set_foreground)
1979 {
1980 p = tparam (TS_set_foreground, NULL, 0, (int) face->foreground);
1981 OUTPUT (p);
1982 xfree (p);
1983 }
1984
1985 if (face->background != FACE_TTY_DEFAULT_COLOR
f9d2fdc4
EZ
1986 && face->background != FACE_TTY_DEFAULT_BG_COLOR
1987 && face->background != FACE_TTY_DEFAULT_FG_COLOR
a168702a
GM
1988 && TS_set_background)
1989 {
1990 p = tparam (TS_set_background, NULL, 0, (int) face->background);
1991 OUTPUT (p);
1992 xfree (p);
1993 }
1994 }
1995}
1996
1997
1998/* Turn off appearances of face FACE_ID on tty frame F. */
1999
2000static void
2001turn_off_face (f, face_id)
2002 struct frame *f;
2003 int face_id;
2004{
2005 struct face *face = FACE_FROM_ID (f, face_id);
a168702a
GM
2006
2007 xassert (face != NULL);
2008
2009 if (TS_exit_attribute_mode)
2010 {
2011 /* Capability "me" will turn off appearance modes double-bright,
2012 half-bright, reverse-video, standout, underline. It may or
2013 may not turn off alt-char-mode. */
2014 if (face->tty_bold_p
2015 || face->tty_dim_p
2016 || face->tty_reverse_p
2017 || face->tty_alt_charset_p
2018 || face->tty_blinking_p
2019 || face->tty_underline_p)
2020 OUTPUT1_IF (TS_exit_attribute_mode);
2021
2022 if (face->tty_alt_charset_p)
2023 OUTPUT_IF (TS_exit_alt_charset_mode);
2024 }
2025 else
2026 {
2027 /* If we don't have "me" we can only have those appearances
2028 that have exit sequences defined. */
2029 if (face->tty_alt_charset_p)
2030 OUTPUT_IF (TS_exit_alt_charset_mode);
2031
2032 if (face->tty_underline_p
2033 /* We don't underline if that's difficult. */
2034 && TN_magic_cookie_glitch_ul <= 0)
2035 OUTPUT_IF (TS_exit_underline_mode);
2036 }
2037
2038 /* Switch back to default colors. */
2039 if (TN_max_colors > 0
f9d2fdc4
EZ
2040 && ((face->foreground != FACE_TTY_DEFAULT_COLOR
2041 && face->foreground != FACE_TTY_DEFAULT_FG_COLOR)
2042 || (face->background != FACE_TTY_DEFAULT_COLOR
2043 && face->background != FACE_TTY_DEFAULT_BG_COLOR)))
a168702a
GM
2044 OUTPUT1_IF (TS_orig_pair);
2045}
2046
2047
2048/* Return non-zero if the terminal is capable to display colors. */
2049
2050DEFUN ("tty-display-color-p", Ftty_display_color_p, Stty_display_color_p,
981e4297
EZ
2051 0, 1, 0,
2052 "Return non-nil if TTY can display colors on FRAME.")
2053 (frame)
2054 Lisp_Object frame;
a168702a
GM
2055{
2056 return TN_max_colors > 0 ? Qt : Qnil;
2057}
2058
2059
2060
2061\f
2062/***********************************************************************
2063 Initialization
2064 ***********************************************************************/
2065
dfcf069d 2066void
08a24c47
JB
2067term_init (terminal_type)
2068 char *terminal_type;
2069{
2070 char *area;
2071 char **address = &area;
2072 char buffer[2044];
2073 register char *p;
2074 int status;
e52f4e08 2075 struct frame *sf = XFRAME (selected_frame);
08a24c47 2076
cb28b9c2 2077#ifdef WINDOWSNT
29f27c39 2078 initialize_w32_display ();
cb28b9c2
RS
2079
2080 Wcm_clear ();
cb28b9c2 2081
a678d9ff 2082 area = (char *) xmalloc (2044);
cb28b9c2
RS
2083
2084 if (area == 0)
2085 abort ();
2086
e52f4e08
GM
2087 FrameRows = FRAME_HEIGHT (sf);
2088 FrameCols = FRAME_WIDTH (sf);
2089 specified_window = FRAME_HEIGHT (sf);
cb28b9c2
RS
2090
2091 delete_in_insert_mode = 1;
2092
2093 UseTabs = 0;
2094 scroll_region_ok = 0;
2095
2096 /* Seems to insert lines when it's not supposed to, messing
2097 up the display. In doing a trace, it didn't seem to be
2098 called much, so I don't think we're losing anything by
2099 turning it off. */
2100
2101 line_ins_del_ok = 0;
2102 char_ins_del_ok = 1;
2103
2104 baud_rate = 19200;
2105
e52f4e08
GM
2106 FRAME_CAN_HAVE_SCROLL_BARS (sf) = 0;
2107 FRAME_VERTICAL_SCROLL_BAR_TYPE (sf) = vertical_scroll_bar_none;
acfcd5cd 2108 TN_max_colors = 16; /* Required to be non-zero for tty-display-color-p */
cb28b9c2
RS
2109
2110 return;
eccec691 2111#else /* not WINDOWSNT */
cb28b9c2 2112
08a24c47 2113 Wcm_clear ();
08a24c47
JB
2114
2115 status = tgetent (buffer, terminal_type);
2116 if (status < 0)
b0347178
KH
2117 {
2118#ifdef TERMINFO
e12c1054 2119 fatal ("Cannot open terminfo database file");
b0347178 2120#else
e12c1054 2121 fatal ("Cannot open termcap database file");
b0347178
KH
2122#endif
2123 }
08a24c47 2124 if (status == 0)
b0347178
KH
2125 {
2126#ifdef TERMINFO
2127 fatal ("Terminal type %s is not defined.\n\
2128If that is not the actual type of terminal you have,\n\
2129use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2130`setenv TERM ...') to specify the correct type. It may be necessary\n\
e12c1054 2131to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
b0347178
KH
2132 terminal_type);
2133#else
2134 fatal ("Terminal type %s is not defined.\n\
c5a9c3e6
RS
2135If that is not the actual type of terminal you have,\n\
2136use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2137`setenv TERM ...') to specify the correct type. It may be necessary\n\
e12c1054 2138to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
b0347178
KH
2139 terminal_type);
2140#endif
2141 }
08a24c47 2142#ifdef TERMINFO
a678d9ff 2143 area = (char *) xmalloc (2044);
08a24c47 2144#else
a678d9ff 2145 area = (char *) xmalloc (strlen (buffer));
08a24c47
JB
2146#endif /* not TERMINFO */
2147 if (area == 0)
2148 abort ();
2149
2150 TS_ins_line = tgetstr ("al", address);
2151 TS_ins_multi_lines = tgetstr ("AL", address);
2152 TS_bell = tgetstr ("bl", address);
2153 BackTab = tgetstr ("bt", address);
2154 TS_clr_to_bottom = tgetstr ("cd", address);
2155 TS_clr_line = tgetstr ("ce", address);
ff11dfa1 2156 TS_clr_frame = tgetstr ("cl", address);
08a24c47
JB
2157 ColPosition = tgetstr ("ch", address);
2158 AbsPosition = tgetstr ("cm", address);
2159 CR = tgetstr ("cr", address);
2160 TS_set_scroll_region = tgetstr ("cs", address);
2161 TS_set_scroll_region_1 = tgetstr ("cS", address);
2162 RowPosition = tgetstr ("cv", address);
2163 TS_del_char = tgetstr ("dc", address);
2164 TS_del_multi_chars = tgetstr ("DC", address);
2165 TS_del_line = tgetstr ("dl", address);
2166 TS_del_multi_lines = tgetstr ("DL", address);
2167 TS_delete_mode = tgetstr ("dm", address);
2168 TS_end_delete_mode = tgetstr ("ed", address);
2169 TS_end_insert_mode = tgetstr ("ei", address);
2170 Home = tgetstr ("ho", address);
2171 TS_ins_char = tgetstr ("ic", address);
2172 TS_ins_multi_chars = tgetstr ("IC", address);
2173 TS_insert_mode = tgetstr ("im", address);
2174 TS_pad_inserted_char = tgetstr ("ip", address);
2175 TS_end_keypad_mode = tgetstr ("ke", address);
2176 TS_keypad_mode = tgetstr ("ks", address);
2177 LastLine = tgetstr ("ll", address);
2178 Right = tgetstr ("nd", address);
2179 Down = tgetstr ("do", address);
2180 if (!Down)
2181 Down = tgetstr ("nl", address); /* Obsolete name for "do" */
2182#ifdef VMS
2183 /* VMS puts a carriage return before each linefeed,
2184 so it is not safe to use linefeeds. */
2185 if (Down && Down[0] == '\n' && Down[1] == '\0')
2186 Down = 0;
2187#endif /* VMS */
2188 if (tgetflag ("bs"))
2189 Left = "\b"; /* can't possibly be longer! */
2190 else /* (Actually, "bs" is obsolete...) */
2191 Left = tgetstr ("le", address);
2192 if (!Left)
2193 Left = tgetstr ("bc", address); /* Obsolete name for "le" */
2194 TS_pad_char = tgetstr ("pc", address);
2195 TS_repeat = tgetstr ("rp", address);
2196 TS_end_standout_mode = tgetstr ("se", address);
2197 TS_fwd_scroll = tgetstr ("sf", address);
2198 TS_standout_mode = tgetstr ("so", address);
2199 TS_rev_scroll = tgetstr ("sr", address);
2200 Wcm.cm_tab = tgetstr ("ta", address);
2201 TS_end_termcap_modes = tgetstr ("te", address);
2202 TS_termcap_modes = tgetstr ("ti", address);
2203 Up = tgetstr ("up", address);
2204 TS_visible_bell = tgetstr ("vb", address);
a168702a
GM
2205 TS_cursor_normal = tgetstr ("ve", address);
2206 TS_cursor_visible = tgetstr ("vs", address);
2207 TS_cursor_invisible = tgetstr ("vi", address);
08a24c47 2208 TS_set_window = tgetstr ("wi", address);
a168702a
GM
2209
2210 TS_enter_underline_mode = tgetstr ("us", address);
2211 TS_exit_underline_mode = tgetstr ("ue", address);
2212 TN_magic_cookie_glitch_ul = tgetnum ("ug");
2213 TS_enter_bold_mode = tgetstr ("md", address);
2214 TS_enter_dim_mode = tgetstr ("mh", address);
2215 TS_enter_blink_mode = tgetstr ("mb", address);
2216 TS_enter_reverse_mode = tgetstr ("mr", address);
2217 TS_enter_alt_charset_mode = tgetstr ("as", address);
2218 TS_exit_alt_charset_mode = tgetstr ("ae", address);
2219 TS_exit_attribute_mode = tgetstr ("me", address);
2220
08a24c47
JB
2221 MultiUp = tgetstr ("UP", address);
2222 MultiDown = tgetstr ("DO", address);
2223 MultiLeft = tgetstr ("LE", address);
2224 MultiRight = tgetstr ("RI", address);
2225
e7f90eab
GM
2226 /* SVr4/ANSI color suppert. If "op" isn't available, don't support
2227 color because we can't switch back to the default foreground and
2228 background. */
a168702a 2229 TS_orig_pair = tgetstr ("op", address);
e7f90eab 2230 if (TS_orig_pair)
a168702a 2231 {
e7f90eab
GM
2232 TS_set_foreground = tgetstr ("AF", address);
2233 TS_set_background = tgetstr ("AB", address);
2234 if (!TS_set_foreground)
2235 {
2236 /* SVr4. */
2237 TS_set_foreground = tgetstr ("Sf", address);
2238 TS_set_background = tgetstr ("Sb", address);
2239 }
2240 TN_max_colors = tgetnum ("Co");
2241 TN_max_pairs = tgetnum ("pa");
a168702a 2242 }
a168702a 2243
e4058338
KH
2244 MagicWrap = tgetflag ("xn");
2245 /* Since we make MagicWrap terminals look like AutoWrap, we need to have
2246 the former flag imply the latter. */
2247 AutoWrap = MagicWrap || tgetflag ("am");
ff11dfa1 2248 memory_below_frame = tgetflag ("db");
08a24c47
JB
2249 TF_hazeltine = tgetflag ("hz");
2250 must_write_spaces = tgetflag ("in");
2251 meta_key = tgetflag ("km") || tgetflag ("MT");
2252 TF_insmode_motion = tgetflag ("mi");
2253 TF_standout_motion = tgetflag ("ms");
2254 TF_underscore = tgetflag ("ul");
08a24c47
JB
2255 TF_xs = tgetflag ("xs");
2256 TF_teleray = tgetflag ("xt");
2257
5c2c7893
JB
2258 term_get_fkeys (address);
2259
ff11dfa1 2260 /* Get frame size from system, or else from termcap. */
3b12ce12
RS
2261 {
2262 int height, width;
2263 get_frame_size (&width, &height);
e52f4e08
GM
2264 FRAME_WIDTH (sf) = width;
2265 FRAME_HEIGHT (sf) = height;
3b12ce12
RS
2266 }
2267
e52f4e08
GM
2268 if (FRAME_WIDTH (sf) <= 0)
2269 SET_FRAME_WIDTH (sf, tgetnum ("co"));
1efd8636
RS
2270 else
2271 /* Keep width and external_width consistent */
e52f4e08
GM
2272 SET_FRAME_WIDTH (sf, FRAME_WIDTH (sf));
2273 if (FRAME_HEIGHT (sf) <= 0)
2274 FRAME_HEIGHT (sf) = tgetnum ("li");
1efd8636 2275
e52f4e08 2276 if (FRAME_HEIGHT (sf) < 3 || FRAME_WIDTH (sf) < 3)
e12c1054 2277 fatal ("Screen size %dx%d is too small",
e52f4e08 2278 FRAME_HEIGHT (sf), FRAME_WIDTH (sf));
ee7a2de4 2279
08a24c47
JB
2280 min_padding_speed = tgetnum ("pb");
2281 TN_standout_width = tgetnum ("sg");
2282 TabWidth = tgetnum ("tw");
2283
2284#ifdef VMS
2285 /* These capabilities commonly use ^J.
2286 I don't know why, but sending them on VMS does not work;
2287 it causes following spaces to be lost, sometimes.
2288 For now, the simplest fix is to avoid using these capabilities ever. */
2289 if (Down && Down[0] == '\n')
2290 Down = 0;
2291#endif /* VMS */
2292
2293 if (!TS_bell)
2294 TS_bell = "\07";
2295
2296 if (!TS_fwd_scroll)
2297 TS_fwd_scroll = Down;
2298
2299 PC = TS_pad_char ? *TS_pad_char : 0;
2300
2301 if (TabWidth < 0)
2302 TabWidth = 8;
2303
2304/* Turned off since /etc/termcap seems to have :ta= for most terminals
2305 and newer termcap doc does not seem to say there is a default.
2306 if (!Wcm.cm_tab)
2307 Wcm.cm_tab = "\t";
2308*/
2309
2310 if (TS_standout_mode == 0)
2311 {
2312 TN_standout_width = tgetnum ("ug");
2313 TS_end_standout_mode = tgetstr ("ue", address);
2314 TS_standout_mode = tgetstr ("us", address);
2315 }
2316
afd359c4
RS
2317 /* If no `se' string, try using a `me' string instead.
2318 If that fails, we can't use standout mode at all. */
2319 if (TS_end_standout_mode == 0)
2320 {
e4bfb3b6 2321 char *s = tgetstr ("me", address);
afd359c4
RS
2322 if (s != 0)
2323 TS_end_standout_mode = s;
2324 else
2325 TS_standout_mode = 0;
2326 }
2327
08a24c47
JB
2328 if (TF_teleray)
2329 {
2330 Wcm.cm_tab = 0;
2331 /* Teleray: most programs want a space in front of TS_standout_mode,
2332 but Emacs can do without it (and give one extra column). */
2333 TS_standout_mode = "\033RD";
2334 TN_standout_width = 1;
2335 /* But that means we cannot rely on ^M to go to column zero! */
2336 CR = 0;
2337 /* LF can't be trusted either -- can alter hpos */
2338 /* if move at column 0 thru a line with TS_standout_mode */
2339 Down = 0;
2340 }
2341
2342 /* Special handling for certain terminal types known to need it */
2343
2344 if (!strcmp (terminal_type, "supdup"))
2345 {
ff11dfa1 2346 memory_below_frame = 1;
08a24c47
JB
2347 Wcm.cm_losewrap = 1;
2348 }
2349 if (!strncmp (terminal_type, "c10", 3)
2350 || !strcmp (terminal_type, "perq"))
2351 {
2352 /* Supply a makeshift :wi string.
2353 This string is not valid in general since it works only
2354 for windows starting at the upper left corner;
2355 but that is all Emacs uses.
2356
ff11dfa1 2357 This string works only if the frame is using
08a24c47
JB
2358 the top of the video memory, because addressing is memory-relative.
2359 So first check the :ti string to see if that is true.
2360
2361 It would be simpler if the :wi string could go in the termcap
2362 entry, but it can't because it is not fully valid.
2363 If it were in the termcap entry, it would confuse other programs. */
2364 if (!TS_set_window)
2365 {
2366 p = TS_termcap_modes;
2367 while (*p && strcmp (p, "\033v "))
2368 p++;
2369 if (*p)
2370 TS_set_window = "\033v%C %C %C %C ";
2371 }
2372 /* Termcap entry often fails to have :in: flag */
2373 must_write_spaces = 1;
2374 /* :ti string typically fails to have \E^G! in it */
2375 /* This limits scope of insert-char to one line. */
2376 strcpy (area, TS_termcap_modes);
2377 strcat (area, "\033\007!");
2378 TS_termcap_modes = area;
2379 area += strlen (area) + 1;
2380 p = AbsPosition;
2381 /* Change all %+ parameters to %C, to handle
2382 values above 96 correctly for the C100. */
2383 while (*p)
2384 {
2385 if (p[0] == '%' && p[1] == '+')
2386 p[1] = 'C';
2387 p++;
2388 }
2389 }
2390
e52f4e08
GM
2391 FrameRows = FRAME_HEIGHT (sf);
2392 FrameCols = FRAME_WIDTH (sf);
2393 specified_window = FRAME_HEIGHT (sf);
08a24c47
JB
2394
2395 if (Wcm_init () == -1) /* can't do cursor motion */
2396#ifdef VMS
2397 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2398It lacks the ability to position the cursor.\n\
2399If that is not the actual type of terminal you have, use either the\n\
2400DCL command `SET TERMINAL/DEVICE= ...' for DEC-compatible terminals,\n\
e12c1054 2401or `define EMACS_TERM \"terminal type\"' for non-DEC terminals.",
08a24c47 2402 terminal_type);
37dad45a
RS
2403#else /* not VMS */
2404# ifdef TERMINFO
2405 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2406It lacks the ability to position the cursor.\n\
2407If that is not the actual type of terminal you have,\n\
2408use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2409`setenv TERM ...') to specify the correct type. It may be necessary\n\
e12c1054 2410to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
37dad45a
RS
2411 terminal_type);
2412# else /* TERMCAP */
08a24c47
JB
2413 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2414It lacks the ability to position the cursor.\n\
2415If that is not the actual type of terminal you have,\n\
c5a9c3e6
RS
2416use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2417`setenv TERM ...') to specify the correct type. It may be necessary\n\
e12c1054 2418to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
08a24c47 2419 terminal_type);
37dad45a
RS
2420# endif /* TERMINFO */
2421#endif /*VMS */
e52f4e08
GM
2422 if (FRAME_HEIGHT (sf) <= 0
2423 || FRAME_WIDTH (sf) <= 0)
e12c1054 2424 fatal ("The frame size has not been specified");
08a24c47
JB
2425
2426 delete_in_insert_mode
2427 = TS_delete_mode && TS_insert_mode
2428 && !strcmp (TS_delete_mode, TS_insert_mode);
2429
2430 se_is_so = (TS_standout_mode
2431 && TS_end_standout_mode
2432 && !strcmp (TS_standout_mode, TS_end_standout_mode));
2433
2434 /* Remove width of standout marker from usable width of line */
2435 if (TN_standout_width > 0)
e52f4e08 2436 SET_FRAME_WIDTH (sf, FRAME_WIDTH (sf) - TN_standout_width);
08a24c47
JB
2437
2438 UseTabs = tabs_safe_p () && TabWidth == 8;
2439
2440 scroll_region_ok
2441 = (Wcm.cm_abs
2442 && (TS_set_window || TS_set_scroll_region || TS_set_scroll_region_1));
2443
2444 line_ins_del_ok = (((TS_ins_line || TS_ins_multi_lines)
2445 && (TS_del_line || TS_del_multi_lines))
2446 || (scroll_region_ok && TS_fwd_scroll && TS_rev_scroll));
2447
2448 char_ins_del_ok = ((TS_ins_char || TS_insert_mode
2449 || TS_pad_inserted_char || TS_ins_multi_chars)
2450 && (TS_del_char || TS_del_multi_chars));
2451
2452 fast_clear_end_of_line = TS_clr_line != 0;
2453
2454 init_baud_rate ();
2455 if (read_socket_hook) /* Baudrate is somewhat */
2456 /* meaningless in this case */
2457 baud_rate = 9600;
20a558dc 2458
e52f4e08
GM
2459 FRAME_CAN_HAVE_SCROLL_BARS (sf) = 0;
2460 FRAME_VERTICAL_SCROLL_BAR_TYPE (sf) = vertical_scroll_bar_none;
eccec691 2461#endif /* WINDOWSNT */
08a24c47
JB
2462}
2463
2464/* VARARGS 1 */
dfcf069d 2465void
08a24c47 2466fatal (str, arg1, arg2)
4746118a 2467 char *str, *arg1, *arg2;
08a24c47
JB
2468{
2469 fprintf (stderr, "emacs: ");
2470 fprintf (stderr, str, arg1, arg2);
e12c1054 2471 fprintf (stderr, "\n");
08a24c47
JB
2472 fflush (stderr);
2473 exit (1);
2474}
07c57952 2475
dfcf069d 2476void
07c57952
KH
2477syms_of_term ()
2478{
2479 DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo,
2480 "Non-nil means the system uses terminfo rather than termcap.\n\
2481This variable can be used by terminal emulator packages.");
2482#ifdef TERMINFO
2483 system_uses_terminfo = 1;
2484#else
2485 system_uses_terminfo = 0;
2486#endif
c291d9ef
RS
2487
2488 DEFVAR_LISP ("ring-bell-function", &Vring_bell_function,
2489 "Non-nil means call this function to ring the bell.\n\
2490The function should accept no arguments.");
2491 Vring_bell_function = Qnil;
a168702a
GM
2492
2493 defsubr (&Stty_display_color_p);
07c57952 2494}
a168702a 2495