1 /* terminal control module for terminals described by TERMCAP
2 Copyright (C) 1985, 86, 87, 93, 94, 95, 98
3 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
22 /* New redisplay, TTY faces by Gerd Moellmann <gerd@acm.org>. */
36 #include "termhooks.h"
38 #include "dispextern.h"
50 static void turn_on_face
P_ ((struct frame
*, int face_id
));
51 static void turn_off_face
P_ ((struct frame
*, int face_id
));
52 static void tty_show_cursor
P_ ((void));
53 static void tty_hide_cursor
P_ ((void));
55 #define max(a, b) ((a) > (b) ? (a) : (b))
56 #define min(a, b) ((a) < (b) ? (a) : (b))
59 tputs (a, (int) (FRAME_HEIGHT (XFRAME (selected_frame)) - curY), cmputc)
60 #define OUTPUT1(a) tputs (a, 1, cmputc)
61 #define OUTPUTL(a, lines) tputs (a, lines, cmputc)
63 #define OUTPUT_IF(a) \
66 tputs (a, (int) (FRAME_HEIGHT (XFRAME (selected_frame)) \
70 #define OUTPUT1_IF(a) do { if (a) tputs (a, 1, cmputc); } while (0)
72 /* Function to use to ring the bell. */
74 Lisp_Object Vring_bell_function
;
76 /* Terminal characteristics that higher levels want to look at.
77 These are all extern'd in termchar.h */
79 int 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. */
82 int min_padding_speed
; /* Speed below which no padding necessary */
84 int line_ins_del_ok
; /* Terminal can insert and delete lines */
85 int char_ins_del_ok
; /* Terminal can insert and delete chars */
86 int scroll_region_ok
; /* Terminal supports setting the
88 int scroll_region_cost
; /* Cost of setting a scroll window,
89 measured in characters */
90 int memory_below_frame
; /* Terminal remembers lines
91 scrolled off bottom */
92 int fast_clear_end_of_line
; /* Terminal has a `ce' string */
94 /* Nonzero means no need to redraw the entire frame on resuming
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. */
98 int no_redraw_on_reenter
;
100 /* Hook functions that you can set to snap out the functions in this file.
101 These are all extern'd in termhooks.h */
103 void (*cursor_to_hook
) P_ ((int, int));
104 void (*raw_cursor_to_hook
) P_ ((int, int));
105 void (*clear_to_end_hook
) P_ ((void));
106 void (*clear_frame_hook
) P_ ((void));
107 void (*clear_end_of_line_hook
) P_ ((int));
109 void (*ins_del_lines_hook
) P_ ((int, int));
111 void (*change_line_highlight_hook
) P_ ((int, int, int, int));
112 void (*reassert_line_highlight_hook
) P_ ((int, int));
114 void (*delete_glyphs_hook
) P_ ((int));
116 void (*ring_bell_hook
) P_ ((void));
118 void (*reset_terminal_modes_hook
) P_ ((void));
119 void (*set_terminal_modes_hook
) P_ ((void));
120 void (*update_begin_hook
) P_ ((struct frame
*));
121 void (*update_end_hook
) P_ ((struct frame
*));
122 void (*set_terminal_window_hook
) P_ ((int));
123 void (*insert_glyphs_hook
) P_ ((struct glyph
*, int));
124 void (*write_glyphs_hook
) P_ ((struct glyph
*, int));
125 void (*delete_glyphs_hook
) P_ ((int));
127 int (*read_socket_hook
) P_ ((int, struct input_event
*, int, int));
129 void (*frame_up_to_date_hook
) P_ ((struct frame
*));
131 /* Return the current position of the mouse.
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
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.
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.
145 Set *time to the time the mouse was at the returned position.
147 This should clear mouse_moved until the next motion
149 void (*mouse_position_hook
) P_ ((FRAME_PTR
*f
, int insist
,
150 Lisp_Object
*bar_window
,
151 enum scroll_bar_part
*part
,
154 unsigned long *time
));
156 /* When reading from a minibuffer in a different frame, Emacs wants
157 to shift the highlight from the selected frame to the mini-buffer's
158 frame; under X, this means it lies about where the focus is.
159 This hook tells the window system code to re-decide where to put
161 void (*frame_rehighlight_hook
) P_ ((FRAME_PTR f
));
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
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
173 void (*frame_raise_lower_hook
) P_ ((FRAME_PTR f
, int raise
));
175 /* Set the vertical scroll bar for WINDOW to have its upper left corner
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
179 have a scroll bar, create one for it. */
181 void (*set_vertical_scroll_bar_hook
)
182 P_ ((struct window
*window
,
183 int portion
, int whole
, int position
));
186 /* The following three hooks are used when we're doing a thorough
187 redisplay of the frame. We don't explicitly know which scroll bars
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*
191 scroll bars are to be removed, and then save scroll bars from the
192 fiery pit when we actually redisplay their window. */
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
196 `*redeem_scroll_bar_hook' is applied to its window before the judgment.
198 This should be applied to each frame each time its window tree is
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.
203 If non-zero, this hook should be safe to apply to any frame,
204 whether or not it can support scroll bars, and whether or not it is
205 currently displaying them. */
206 void (*condemn_scroll_bars_hook
) P_ ((FRAME_PTR frame
));
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. */
210 void (*redeem_scroll_bar_hook
) P_ ((struct window
*window
));
212 /* Remove all scroll bars on FRAME that haven't been saved since the
213 last call to `*condemn_scroll_bars_hook'.
215 This should be applied to each frame after each time its window
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.
220 If non-zero, this hook should be safe to apply to any frame,
221 whether or not it can support scroll bars, and whether or not it is
222 currently displaying them. */
223 void (*judge_scroll_bars_hook
) P_ ((FRAME_PTR FRAME
));
225 /* Hook to call in estimate_mode_line_height, if any. */
227 int (* estimate_mode_line_height_hook
) P_ ((struct frame
*f
, enum face_id
));
230 /* Strings, numbers and flags taken from the termcap entry. */
232 char *TS_ins_line
; /* "al" */
233 char *TS_ins_multi_lines
; /* "AL" (one parameter, # lines to insert) */
234 char *TS_bell
; /* "bl" */
235 char *TS_clr_to_bottom
; /* "cd" */
236 char *TS_clr_line
; /* "ce", clear to end of line */
237 char *TS_clr_frame
; /* "cl" */
238 char *TS_set_scroll_region
; /* "cs" (2 params, first line and last line) */
239 char *TS_set_scroll_region_1
; /* "cS" (4 params: total lines,
240 lines above scroll region, lines below it,
241 total lines again) */
242 char *TS_del_char
; /* "dc" */
243 char *TS_del_multi_chars
; /* "DC" (one parameter, # chars to delete) */
244 char *TS_del_line
; /* "dl" */
245 char *TS_del_multi_lines
; /* "DL" (one parameter, # lines to delete) */
246 char *TS_delete_mode
; /* "dm", enter character-delete mode */
247 char *TS_end_delete_mode
; /* "ed", leave character-delete mode */
248 char *TS_end_insert_mode
; /* "ei", leave character-insert mode */
249 char *TS_ins_char
; /* "ic" */
250 char *TS_ins_multi_chars
; /* "IC" (one parameter, # chars to insert) */
251 char *TS_insert_mode
; /* "im", enter character-insert mode */
252 char *TS_pad_inserted_char
; /* "ip". Just padding, no commands. */
253 char *TS_end_keypad_mode
; /* "ke" */
254 char *TS_keypad_mode
; /* "ks" */
255 char *TS_pad_char
; /* "pc", char to use as padding */
256 char *TS_repeat
; /* "rp" (2 params, # times to repeat
257 and character to be repeated) */
258 char *TS_end_standout_mode
; /* "se" */
259 char *TS_fwd_scroll
; /* "sf" */
260 char *TS_standout_mode
; /* "so" */
261 char *TS_rev_scroll
; /* "sr" */
262 char *TS_end_termcap_modes
; /* "te" */
263 char *TS_termcap_modes
; /* "ti" */
264 char *TS_visible_bell
; /* "vb" */
265 char *TS_cursor_normal
; /* "ve" */
266 char *TS_cursor_visible
; /* "vs" */
267 char *TS_cursor_invisible
; /* "vi" */
268 char *TS_set_window
; /* "wi" (4 params, start and end of window,
269 each as vpos and hpos) */
271 /* Value of the "NC" (no_color_video) capability, or 0 if not
274 static int TN_no_color_video
;
276 /* Meaning of bits in no_color_video. Each bit set means that the
277 corresponding attribute cannot be combined with colors. */
281 NC_STANDOUT
= 1 << 0,
282 NC_UNDERLINE
= 1 << 1,
289 NC_ALT_CHARSET
= 1 << 8
292 /* "md" -- turn on bold (extra bright mode). */
294 char *TS_enter_bold_mode
;
296 /* "mh" -- turn on half-bright mode. */
298 char *TS_enter_dim_mode
;
300 /* "mb" -- enter blinking mode. */
302 char *TS_enter_blink_mode
;
304 /* "mr" -- enter reverse video mode. */
306 char *TS_enter_reverse_mode
;
308 /* "us"/"ue" -- start/end underlining. */
310 char *TS_exit_underline_mode
, *TS_enter_underline_mode
;
312 /* "ug" -- number of blanks left by underline. */
314 int TN_magic_cookie_glitch_ul
;
316 /* "as"/"ae" -- start/end alternate character set. Not really
319 char *TS_enter_alt_charset_mode
, *TS_exit_alt_charset_mode
;
321 /* "me" -- switch appearances off. */
323 char *TS_exit_attribute_mode
;
325 /* "Co" -- number of colors. */
329 /* "pa" -- max. number of color pairs on screen. Not handled yet.
330 Could be a problem if not equal to TN_max_colors * TN_max_colors. */
334 /* "op" -- SVr4 set default pair to its original value. */
338 /* "AF"/"AB" or "Sf"/"Sb"-- set ANSI or SVr4 foreground/background color.
339 1 param, the color index. */
341 char *TS_set_foreground
, *TS_set_background
;
343 int TF_hazeltine
; /* termcap hz flag. */
344 int TF_insmode_motion
; /* termcap mi flag: can move while in insert mode. */
345 int TF_standout_motion
; /* termcap mi flag: can move while in standout mode. */
346 int TF_underscore
; /* termcap ul flag: _ underlines if over-struck on
347 non-blank position. Must clear before writing _. */
348 int TF_teleray
; /* termcap xt flag: many weird consequences.
351 int TF_xs
; /* Nonzero for "xs". If set together with
352 TN_standout_width == 0, it means don't bother
353 to write any end-standout cookies. */
355 int TN_standout_width
; /* termcap sg number: width occupied by standout
358 static int RPov
; /* # chars to start a TS_repeat */
360 static int delete_in_insert_mode
; /* delete mode == insert mode */
362 static int se_is_so
; /* 1 if same string both enters and leaves
367 /* The largest frame width in any call to calculate_costs. */
371 /* The largest frame height in any call to calculate_costs. */
373 int max_frame_height
;
375 /* Number of chars of space used for standout marker at beginning of line,
376 or'd with 0100. Zero if no standout marker at all.
377 The length of these vectors is max_frame_height.
379 Used IFF TN_standout_width >= 0. */
381 static char *chars_wasted
;
382 static char *copybuf
;
384 /* nonzero means supposed to write text in standout mode. */
386 int standout_requested
;
388 int insert_mode
; /* Nonzero when in insert mode. */
389 int standout_mode
; /* Nonzero when in standout mode. */
391 /* Size of window specified by higher levels.
392 This is the number of lines, from the top of frame downwards,
393 which can participate in insert-line/delete-line operations.
395 Effectively it excludes the bottom frame_height - specified_window_size
396 lines from those operations. */
398 int specified_window
;
400 /* Frame currently being redisplayed; 0 if not currently redisplaying.
401 (Direct output does not count). */
403 FRAME_PTR updating_frame
;
405 /* Provided for lisp packages. */
407 static int system_uses_terminfo
;
411 extern char *tgetstr ();
416 /* We aren't X windows, but we aren't termcap either. This makes me
417 uncertain as to what value to use for frame.output_method. For
418 this file, we'll define FRAME_TERMCAP_P to be zero so that our
419 output hooks get called instead of the termcap functions. Probably
420 the best long-term solution is to define an output_windows_nt... */
422 #undef FRAME_TERMCAP_P
423 #define FRAME_TERMCAP_P(_f_) 0
424 #endif /* WINDOWSNT */
429 if (! NILP (Vring_bell_function
))
431 Lisp_Object function
;
433 /* Temporarily set the global variable to nil
434 so that if we get an error, it stays nil
435 and we don't call it over and over.
437 We don't specbind it, because that would carefully
438 restore the bad value if there's an error
439 and make the loop of errors happen anyway. */
440 function
= Vring_bell_function
;
441 Vring_bell_function
= Qnil
;
445 Vring_bell_function
= function
;
449 if (! FRAME_TERMCAP_P (XFRAME (selected_frame
)))
451 (*ring_bell_hook
) ();
454 OUTPUT (TS_visible_bell
&& visible_bell
? TS_visible_bell
: TS_bell
);
458 set_terminal_modes ()
460 if (! FRAME_TERMCAP_P (XFRAME (selected_frame
)))
462 (*set_terminal_modes_hook
) ();
465 OUTPUT_IF (TS_termcap_modes
);
466 OUTPUT_IF (TS_cursor_visible
);
467 OUTPUT_IF (TS_keypad_mode
);
472 reset_terminal_modes ()
474 if (! FRAME_TERMCAP_P (XFRAME (selected_frame
)))
476 if (reset_terminal_modes_hook
)
477 (*reset_terminal_modes_hook
) ();
480 if (TN_standout_width
< 0)
481 turn_off_highlight ();
483 OUTPUT_IF (TS_end_keypad_mode
);
484 OUTPUT_IF (TS_cursor_normal
);
485 OUTPUT_IF (TS_end_termcap_modes
);
486 OUTPUT_IF (TS_orig_pair
);
487 /* Output raw CR so kernel can track the cursor hpos. */
488 /* But on magic-cookie terminals this can erase an end-standout marker and
489 cause the rest of the frame to be in standout, so move down first. */
490 if (TN_standout_width
>= 0)
500 if (! FRAME_TERMCAP_P (updating_frame
))
501 (*update_begin_hook
) (f
);
510 if (! FRAME_TERMCAP_P (updating_frame
))
512 (*update_end_hook
) (f
);
517 if (!XWINDOW (selected_window
)->cursor_off_p
)
521 background_highlight ();
522 standout_requested
= 0;
527 set_terminal_window (size
)
530 if (! FRAME_TERMCAP_P (updating_frame
))
532 (*set_terminal_window_hook
) (size
);
535 specified_window
= size
? size
: FRAME_HEIGHT (XFRAME (selected_frame
));
536 if (!scroll_region_ok
)
538 set_scroll_region (0, specified_window
);
542 set_scroll_region (start
, stop
)
546 struct frame
*sf
= XFRAME (selected_frame
);
548 if (TS_set_scroll_region
)
550 buf
= tparam (TS_set_scroll_region
, 0, 0, start
, stop
- 1);
552 else if (TS_set_scroll_region_1
)
554 buf
= tparam (TS_set_scroll_region_1
, 0, 0,
555 FRAME_HEIGHT (sf
), start
,
556 FRAME_HEIGHT (sf
) - stop
,
561 buf
= tparam (TS_set_window
, 0, 0, start
, 0, stop
, FRAME_WIDTH (sf
));
572 OUTPUT (TS_insert_mode
);
580 OUTPUT (TS_end_insert_mode
);
584 /* Handle highlighting when TN_standout_width (termcap sg) is not specified.
585 In these terminals, output is affected by the value of standout
586 mode when the output is written.
588 These functions are called on all terminals, but do nothing
589 on terminals whose standout mode does not work that way. */
592 turn_off_highlight ()
594 if (TN_standout_width
< 0)
597 OUTPUT_IF (TS_end_standout_mode
);
605 if (TN_standout_width
< 0)
608 OUTPUT_IF (TS_standout_mode
);
614 /* Make cursor invisible. */
619 OUTPUT_IF (TS_cursor_invisible
);
623 /* Ensure that cursor is visible. */
628 OUTPUT_IF (TS_cursor_normal
);
629 OUTPUT_IF (TS_cursor_visible
);
633 /* Set standout mode to the state it should be in for
634 empty space inside windows. What this is,
635 depends on the user option inverse-video. */
638 background_highlight ()
640 if (TN_standout_width
>= 0)
643 turn_on_highlight ();
645 turn_off_highlight ();
648 /* Set standout mode to the mode specified for the text to be output. */
651 highlight_if_desired ()
653 if (TN_standout_width
>= 0)
655 if (!inverse_video
== !standout_requested
)
656 turn_off_highlight ();
658 turn_on_highlight ();
661 /* Handle standout mode for terminals in which TN_standout_width >= 0.
662 On these terminals, standout is controlled by markers that
663 live inside the terminal's memory. TN_standout_width is the width
664 that the marker occupies in memory. Standout runs from the marker
665 to the end of the line on some terminals, or to the next
666 turn-off-standout marker (TS_end_standout_mode) string
667 on other terminals. */
669 /* Write a standout marker or end-standout marker at the front of the line
670 at vertical position vpos. */
673 write_standout_marker (flag
, vpos
)
676 if (flag
|| (TS_end_standout_mode
&& !TF_teleray
&& !se_is_so
677 && !(TF_xs
&& TN_standout_width
== 0)))
680 cmplus (TN_standout_width
);
681 OUTPUT (flag
? TS_standout_mode
: TS_end_standout_mode
);
682 chars_wasted
[curY
] = TN_standout_width
| 0100;
686 /* External interface to control of standout mode.
687 Call this when about to modify line at position VPOS
688 and not change whether it is highlighted. */
691 reassert_line_highlight (highlight
, vpos
)
695 struct frame
*f
= updating_frame
? updating_frame
: XFRAME (selected_frame
);
696 if (! FRAME_TERMCAP_P (f
))
698 (*reassert_line_highlight_hook
) (highlight
, vpos
);
701 if (TN_standout_width
< 0)
702 /* Handle terminals where standout takes affect at output time */
703 standout_requested
= highlight
;
704 else if (chars_wasted
&& chars_wasted
[vpos
] == 0)
705 /* For terminals with standout markers, write one on this line
706 if there isn't one already. */
707 write_standout_marker (highlight
, vpos
);
710 /* Call this when about to modify line at position VPOS
711 and change whether it is highlighted. */
714 change_line_highlight (new_highlight
, vpos
, y
, first_unused_hpos
)
715 int new_highlight
, vpos
, y
, first_unused_hpos
;
717 standout_requested
= new_highlight
;
718 if (! FRAME_TERMCAP_P (updating_frame
))
720 (*change_line_highlight_hook
) (new_highlight
, vpos
, y
, first_unused_hpos
);
726 if (TN_standout_width
< 0)
727 background_highlight ();
728 /* If line starts with a marker, delete the marker */
729 else if (TS_clr_line
&& chars_wasted
[curY
])
732 /* On Teleray, make sure to erase the SO marker. */
735 cmgoto (curY
- 1, FRAME_WIDTH (XFRAME (selected_frame
)) - 4);
737 curY
++; /* ESC S moves to next line where the TS_standout_mode was */
741 cmgoto (curY
, 0); /* reposition to kill standout marker */
743 clear_end_of_line_raw (first_unused_hpos
);
744 reassert_line_highlight (new_highlight
, curY
);
748 /* Move cursor to row/column position VPOS/HPOS. HPOS/VPOS are
749 frame-relative coordinates. */
752 cursor_to (vpos
, hpos
)
755 struct frame
*f
= updating_frame
? updating_frame
: XFRAME (selected_frame
);
757 if (! FRAME_TERMCAP_P (f
) && cursor_to_hook
)
759 (*cursor_to_hook
) (vpos
, hpos
);
763 /* Detect the case where we are called from reset_sys_modes
764 and the costs have never been calculated. Do nothing. */
765 if (chars_wasted
== 0)
768 hpos
+= chars_wasted
[vpos
] & 077;
769 if (curY
== vpos
&& curX
== hpos
)
771 if (!TF_standout_motion
)
772 background_highlight ();
773 if (!TF_insmode_motion
)
778 /* Similar but don't take any account of the wasted characters. */
781 raw_cursor_to (row
, col
)
784 struct frame
*f
= updating_frame
? updating_frame
: XFRAME (selected_frame
);
785 if (! FRAME_TERMCAP_P (f
))
787 (*raw_cursor_to_hook
) (row
, col
);
790 if (curY
== row
&& curX
== col
)
792 if (!TF_standout_motion
)
793 background_highlight ();
794 if (!TF_insmode_motion
)
799 /* Erase operations */
801 /* clear from cursor to end of frame */
807 if (clear_to_end_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
809 (*clear_to_end_hook
) ();
812 if (TS_clr_to_bottom
)
814 background_highlight ();
815 OUTPUT (TS_clr_to_bottom
);
816 bzero (chars_wasted
+ curY
,
817 FRAME_HEIGHT (XFRAME (selected_frame
)) - curY
);
821 for (i
= curY
; i
< FRAME_HEIGHT (XFRAME (selected_frame
)); i
++)
824 clear_end_of_line_raw (FRAME_WIDTH (XFRAME (selected_frame
)));
829 /* Clear entire frame */
834 struct frame
*sf
= XFRAME (selected_frame
);
837 && ! FRAME_TERMCAP_P ((updating_frame
? updating_frame
: sf
)))
839 (*clear_frame_hook
) ();
844 background_highlight ();
845 OUTPUT (TS_clr_frame
);
846 bzero (chars_wasted
, FRAME_HEIGHT (sf
));
856 /* Clear to end of line, but do not clear any standout marker.
857 Assumes that the cursor is positioned at a character of real text,
858 which implies it cannot be before a standout marker
859 unless the marker has zero width.
861 Note that the cursor may be moved. */
864 clear_end_of_line (first_unused_hpos
)
865 int first_unused_hpos
;
867 if (FRAME_TERMCAP_P (XFRAME (selected_frame
))
869 && TN_standout_width
== 0 && curX
== 0 && chars_wasted
[curY
] != 0)
870 write_glyphs (&space_glyph
, 1);
871 clear_end_of_line_raw (first_unused_hpos
);
874 /* Clear from cursor to end of line.
875 Assume that the line is already clear starting at column first_unused_hpos.
876 If the cursor is at a standout marker, erase the marker.
878 Note that the cursor may be moved, on terminals lacking a `ce' string. */
881 clear_end_of_line_raw (first_unused_hpos
)
882 int first_unused_hpos
;
886 if (clear_end_of_line_hook
887 && ! FRAME_TERMCAP_P ((updating_frame
889 : XFRAME (selected_frame
))))
891 (*clear_end_of_line_hook
) (first_unused_hpos
);
895 /* Detect the case where we are called from reset_sys_modes
896 and the costs have never been calculated. Do nothing. */
897 if (chars_wasted
== 0)
900 first_unused_hpos
+= chars_wasted
[curY
] & 077;
901 if (curX
>= first_unused_hpos
)
903 /* Notice if we are erasing a magic cookie */
905 chars_wasted
[curY
] = 0;
906 background_highlight ();
909 OUTPUT1 (TS_clr_line
);
912 { /* have to do it the hard way */
913 struct frame
*sf
= XFRAME (selected_frame
);
916 /* Do not write in last row last col with Auto-wrap on. */
917 if (AutoWrap
&& curY
== FRAME_HEIGHT (sf
) - 1
918 && first_unused_hpos
== FRAME_WIDTH (sf
))
921 for (i
= curX
; i
< first_unused_hpos
; i
++)
924 fputc (' ', termscript
);
927 cmplus (first_unused_hpos
- curX
);
931 /* Encode SRC_LEN glyphs starting at SRC to terminal output codes and
932 store them at DST. Do not write more than DST_LEN bytes. That may
933 require stopping before all SRC_LEN input glyphs have been
936 We store the number of glyphs actually converted in *CONSUMED. The
937 return value is the number of bytes store in DST. */
940 encode_terminal_code (src
, dst
, src_len
, dst_len
, consumed
)
944 int dst_len
, *consumed
;
946 struct glyph
*src_start
= src
, *src_end
= src
+ src_len
;
947 unsigned char *dst_start
= dst
, *dst_end
= dst
+ dst_len
;
950 unsigned char workbuf
[MAX_MULTIBYTE_LENGTH
], *buf
;
952 register int tlen
= GLYPH_TABLE_LENGTH
;
953 register Lisp_Object
*tbase
= GLYPH_TABLE_BASE
;
955 struct coding_system
*coding
;
957 coding
= (CODING_REQUIRE_ENCODING (&terminal_coding
)
959 : &safe_terminal_coding
);
961 while (src
< src_end
)
963 /* We must skip glyphs to be padded for a wide character. */
964 if (! CHAR_GLYPH_PADDING_P (*src
))
966 g
= GLYPH_FROM_CHAR_GLYPH (src
[0]);
968 if (g
< 0 || g
>= tlen
)
970 /* This glyph doesn't has an entry in Vglyph_table. */
971 if (! CHAR_VALID_P (src
->u
.ch
, 0))
975 coding
->src_multibyte
= 0;
979 len
= CHAR_STRING (src
->u
.ch
, workbuf
);
981 coding
->src_multibyte
= 1;
986 /* This glyph has an entry in Vglyph_table,
987 so process any alias before testing for simpleness. */
988 GLYPH_FOLLOW_ALIASES (tbase
, tlen
, g
);
990 if (GLYPH_SIMPLE_P (tbase
, tlen
, g
))
992 /* We set the multi-byte form of a character in G
993 (that should be an ASCII character) at
995 workbuf
[0] = FAST_GLYPH_CHAR (g
);
998 coding
->src_multibyte
= 0;
1002 /* We have a string in Vglyph_table. */
1003 len
= GLYPH_LENGTH (tbase
, g
);
1004 buf
= GLYPH_STRING (tbase
, g
);
1005 coding
->src_multibyte
= STRING_MULTIBYTE (tbase
[g
]);
1009 result
= encode_coding (coding
, buf
, dst
, len
, dst_end
- dst
);
1010 len
-= coding
->consumed
;
1011 dst
+= coding
->produced
;
1012 if (result
== CODING_FINISH_INSUFFICIENT_DST
1013 || (result
== CODING_FINISH_INSUFFICIENT_SRC
1014 && len
> dst_end
- dst
))
1015 /* The remaining output buffer is too short. We must
1016 break the loop here without increasing SRC so that the
1017 next call of this function starts from the same glyph. */
1022 /* This is the case that a code of the range 0200..0237
1023 exists in buf. We must just write out such a code. */
1024 buf
+= coding
->consumed
;
1032 *consumed
= src
- src_start
;
1033 return (dst
- dst_start
);
1038 write_glyphs (string
, len
)
1039 register struct glyph
*string
;
1042 int produced
, consumed
;
1043 struct frame
*sf
= XFRAME (selected_frame
);
1044 struct frame
*f
= updating_frame
? updating_frame
: sf
;
1046 if (write_glyphs_hook
1047 && ! FRAME_TERMCAP_P (f
))
1049 (*write_glyphs_hook
) (string
, len
);
1053 highlight_if_desired ();
1056 /* Don't dare write in last column of bottom line, if Auto-Wrap,
1057 since that would scroll the whole frame on some terminals. */
1060 && curY
+ 1 == FRAME_HEIGHT (sf
)
1061 && (curX
+ len
- (chars_wasted
[curY
] & 077) == FRAME_WIDTH (sf
)))
1068 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
1070 terminal_coding
.mode
&= ~CODING_MODE_LAST_BLOCK
;
1074 /* Identify a run of glyphs with the same face. */
1075 int face_id
= string
->face_id
;
1078 for (n
= 1; n
< len
; ++n
)
1079 if (string
[n
].face_id
!= face_id
)
1082 /* Turn appearance modes of the face of the run on. */
1083 turn_on_face (f
, face_id
);
1087 /* We use a shared conversion buffer of the current size
1088 (1024 bytes at least). Usually it is sufficient, but if
1089 not, we just repeat the loop. */
1090 produced
= encode_terminal_code (string
, conversion_buffer
,
1091 n
, conversion_buffer_size
,
1095 fwrite (conversion_buffer
, 1, produced
, stdout
);
1096 if (ferror (stdout
))
1099 fwrite (conversion_buffer
, 1, produced
, termscript
);
1106 /* Turn appearance modes off. */
1107 turn_off_face (f
, face_id
);
1110 /* We may have to output some codes to terminate the writing. */
1111 if (CODING_REQUIRE_FLUSHING (&terminal_coding
))
1113 terminal_coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1114 encode_coding (&terminal_coding
, "", conversion_buffer
,
1115 0, conversion_buffer_size
);
1116 if (terminal_coding
.produced
> 0)
1118 fwrite (conversion_buffer
, 1, terminal_coding
.produced
, stdout
);
1119 if (ferror (stdout
))
1122 fwrite (conversion_buffer
, 1, terminal_coding
.produced
,
1130 /* If start is zero, insert blanks instead of a string at start */
1133 insert_glyphs (start
, len
)
1134 register struct glyph
*start
;
1138 struct glyph
*glyph
;
1139 struct frame
*f
, *sf
;
1144 if (insert_glyphs_hook
)
1146 (*insert_glyphs_hook
) (start
, len
);
1150 sf
= XFRAME (selected_frame
);
1151 f
= updating_frame
? updating_frame
: sf
;
1152 highlight_if_desired ();
1154 if (TS_ins_multi_chars
)
1156 buf
= tparam (TS_ins_multi_chars
, 0, 0, len
);
1160 write_glyphs (start
, len
);
1166 /* The bit CODING_MODE_LAST_BLOCK should be set to 1 only at the tail. */
1167 terminal_coding
.mode
&= ~CODING_MODE_LAST_BLOCK
;
1170 int produced
, consumed
;
1172 OUTPUT1_IF (TS_ins_char
);
1175 conversion_buffer
[0] = SPACEGLYPH
;
1180 turn_on_face (f
, start
->face_id
);
1183 /* We must open sufficient space for a character which
1184 occupies more than one column. */
1185 while (len
&& CHAR_GLYPH_PADDING_P (*start
))
1187 OUTPUT1_IF (TS_ins_char
);
1192 /* This is the last glyph. */
1193 terminal_coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1195 /* We use shared conversion buffer of the current size (1024
1196 bytes at least). It is surely sufficient for just one glyph. */
1197 produced
= encode_terminal_code (glyph
, conversion_buffer
, 1,
1198 conversion_buffer_size
, &consumed
);
1203 fwrite (conversion_buffer
, 1, produced
, stdout
);
1204 if (ferror (stdout
))
1207 fwrite (conversion_buffer
, 1, produced
, termscript
);
1210 OUTPUT1_IF (TS_pad_inserted_char
);
1212 turn_off_face (f
, glyph
->face_id
);
1225 if (delete_glyphs_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
1227 (*delete_glyphs_hook
) (n
);
1231 if (delete_in_insert_mode
)
1238 OUTPUT_IF (TS_delete_mode
);
1241 if (TS_del_multi_chars
)
1243 buf
= tparam (TS_del_multi_chars
, 0, 0, n
);
1248 for (i
= 0; i
< n
; i
++)
1249 OUTPUT1 (TS_del_char
);
1250 if (!delete_in_insert_mode
)
1251 OUTPUT_IF (TS_end_delete_mode
);
1254 /* Insert N lines at vpos VPOS. If N is negative, delete -N lines. */
1257 ins_del_lines (vpos
, n
)
1260 char *multi
= n
> 0 ? TS_ins_multi_lines
: TS_del_multi_lines
;
1261 char *single
= n
> 0 ? TS_ins_line
: TS_del_line
;
1262 char *scroll
= n
> 0 ? TS_rev_scroll
: TS_fwd_scroll
;
1265 register int i
= n
> 0 ? n
: -n
;
1268 if (ins_del_lines_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
1270 (*ins_del_lines_hook
) (vpos
, n
);
1274 sf
= XFRAME (selected_frame
);
1276 /* If the lines below the insertion are being pushed
1277 into the end of the window, this is the same as clearing;
1278 and we know the lines are already clear, since the matching
1279 deletion has already been done. So can ignore this. */
1280 /* If the lines below the deletion are blank lines coming
1281 out of the end of the window, don't bother,
1282 as there will be a matching inslines later that will flush them. */
1283 if (scroll_region_ok
&& vpos
+ i
>= specified_window
)
1285 if (!memory_below_frame
&& vpos
+ i
>= FRAME_HEIGHT (sf
))
1290 raw_cursor_to (vpos
, 0);
1291 background_highlight ();
1292 buf
= tparam (multi
, 0, 0, i
);
1298 raw_cursor_to (vpos
, 0);
1299 background_highlight ();
1307 set_scroll_region (vpos
, specified_window
);
1309 raw_cursor_to (specified_window
- 1, 0);
1311 raw_cursor_to (vpos
, 0);
1312 background_highlight ();
1314 OUTPUTL (scroll
, specified_window
- vpos
);
1315 set_scroll_region (0, specified_window
);
1318 if (TN_standout_width
>= 0)
1320 register int lower_limit
1323 : FRAME_HEIGHT (sf
));
1327 bcopy (&chars_wasted
[vpos
- n
], &chars_wasted
[vpos
],
1328 lower_limit
- vpos
+ n
);
1329 bzero (&chars_wasted
[lower_limit
+ n
], - n
);
1333 bcopy (&chars_wasted
[vpos
], ©buf
[vpos
], lower_limit
- vpos
- n
);
1334 bcopy (©buf
[vpos
], &chars_wasted
[vpos
+ n
],
1335 lower_limit
- vpos
- n
);
1336 bzero (&chars_wasted
[vpos
], n
);
1339 if (!scroll_region_ok
&& memory_below_frame
&& n
< 0)
1341 cursor_to (FRAME_HEIGHT (sf
) + n
, 0);
1346 /* Compute cost of sending "str", in characters,
1347 not counting any line-dependent padding. */
1355 tputs (str
, 0, evalcost
);
1359 /* Compute cost of sending "str", in characters,
1360 counting any line-dependent padding at one line. */
1363 string_cost_one_line (str
)
1368 tputs (str
, 1, evalcost
);
1372 /* Compute per line amount of line-dependent padding,
1373 in tenths of characters. */
1381 tputs (str
, 0, evalcost
);
1384 tputs (str
, 10, evalcost
);
1389 /* char_ins_del_cost[n] is cost of inserting N characters.
1390 char_ins_del_cost[-n] is cost of deleting N characters.
1391 The length of this vector is based on max_frame_width. */
1393 int *char_ins_del_vector
;
1395 #define char_ins_del_cost(f) (&char_ins_del_vector[FRAME_WIDTH ((f))])
1400 calculate_ins_del_char_costs (frame
)
1403 int ins_startup_cost
, del_startup_cost
;
1404 int ins_cost_per_char
, del_cost_per_char
;
1408 if (TS_ins_multi_chars
)
1410 ins_cost_per_char
= 0;
1411 ins_startup_cost
= string_cost_one_line (TS_ins_multi_chars
);
1413 else if (TS_ins_char
|| TS_pad_inserted_char
1414 || (TS_insert_mode
&& TS_end_insert_mode
))
1416 ins_startup_cost
= (30 * (string_cost (TS_insert_mode
)
1417 + string_cost (TS_end_insert_mode
))) / 100;
1418 ins_cost_per_char
= (string_cost_one_line (TS_ins_char
)
1419 + string_cost_one_line (TS_pad_inserted_char
));
1423 ins_startup_cost
= 9999;
1424 ins_cost_per_char
= 0;
1427 if (TS_del_multi_chars
)
1429 del_cost_per_char
= 0;
1430 del_startup_cost
= string_cost_one_line (TS_del_multi_chars
);
1432 else if (TS_del_char
)
1434 del_startup_cost
= (string_cost (TS_delete_mode
)
1435 + string_cost (TS_end_delete_mode
));
1436 if (delete_in_insert_mode
)
1437 del_startup_cost
/= 2;
1438 del_cost_per_char
= string_cost_one_line (TS_del_char
);
1442 del_startup_cost
= 9999;
1443 del_cost_per_char
= 0;
1446 /* Delete costs are at negative offsets */
1447 p
= &char_ins_del_cost (frame
)[0];
1448 for (i
= FRAME_WIDTH (frame
); --i
>= 0;)
1449 *--p
= (del_startup_cost
+= del_cost_per_char
);
1451 /* Doing nothing is free */
1452 p
= &char_ins_del_cost (frame
)[0];
1455 /* Insert costs are at positive offsets */
1456 for (i
= FRAME_WIDTH (frame
); --i
>= 0;)
1457 *p
++ = (ins_startup_cost
+= ins_cost_per_char
);
1461 calculate_costs (frame
)
1464 register char *f
= (TS_set_scroll_region
1465 ? TS_set_scroll_region
1466 : TS_set_scroll_region_1
);
1468 FRAME_COST_BAUD_RATE (frame
) = baud_rate
;
1470 scroll_region_cost
= string_cost (f
);
1472 /* These variables are only used for terminal stuff. They are allocated
1473 once for the terminal frame of X-windows emacs, but not used afterwards.
1475 char_ins_del_vector (i.e., char_ins_del_cost) isn't used because
1476 X turns off char_ins_del_ok.
1478 chars_wasted and copybuf are only used here in term.c in cases where
1479 the term hook isn't called. */
1481 max_frame_height
= max (max_frame_height
, FRAME_HEIGHT (frame
));
1482 max_frame_width
= max (max_frame_width
, FRAME_WIDTH (frame
));
1484 if (chars_wasted
!= 0)
1485 chars_wasted
= (char *) xrealloc (chars_wasted
, max_frame_height
);
1487 chars_wasted
= (char *) xmalloc (max_frame_height
);
1490 copybuf
= (char *) xrealloc (copybuf
, max_frame_height
);
1492 copybuf
= (char *) xmalloc (max_frame_height
);
1494 if (char_ins_del_vector
!= 0)
1496 = (int *) xrealloc (char_ins_del_vector
,
1498 + 2 * max_frame_width
* sizeof (int)));
1501 = (int *) xmalloc (sizeof (int)
1502 + 2 * max_frame_width
* sizeof (int));
1504 bzero (chars_wasted
, max_frame_height
);
1505 bzero (copybuf
, max_frame_height
);
1506 bzero (char_ins_del_vector
, (sizeof (int)
1507 + 2 * max_frame_width
* sizeof (int)));
1509 if (f
&& (!TS_ins_line
&& !TS_del_line
))
1510 do_line_insertion_deletion_costs (frame
,
1511 TS_rev_scroll
, TS_ins_multi_lines
,
1512 TS_fwd_scroll
, TS_del_multi_lines
,
1515 do_line_insertion_deletion_costs (frame
,
1516 TS_ins_line
, TS_ins_multi_lines
,
1517 TS_del_line
, TS_del_multi_lines
,
1520 calculate_ins_del_char_costs (frame
);
1522 /* Don't use TS_repeat if its padding is worse than sending the chars */
1523 if (TS_repeat
&& per_line_cost (TS_repeat
) * baud_rate
< 9000)
1524 RPov
= string_cost (TS_repeat
);
1526 RPov
= FRAME_WIDTH (frame
) * 2;
1528 cmcostinit (); /* set up cursor motion costs */
1535 /* Termcap capability names that correspond directly to X keysyms.
1536 Some of these (marked "terminfo") aren't supplied by old-style
1537 (Berkeley) termcap entries. They're listed in X keysym order;
1538 except we put the keypad keys first, so that if they clash with
1539 other keys (as on the IBM PC keyboard) they get overridden.
1542 static struct fkey_table keys
[] =
1544 "kh", "home", /* termcap */
1545 "kl", "left", /* termcap */
1546 "ku", "up", /* termcap */
1547 "kr", "right", /* termcap */
1548 "kd", "down", /* termcap */
1549 "%8", "prior", /* terminfo */
1550 "%5", "next", /* terminfo */
1551 "@7", "end", /* terminfo */
1552 "@1", "begin", /* terminfo */
1553 "*6", "select", /* terminfo */
1554 "%9", "print", /* terminfo */
1555 "@4", "execute", /* terminfo --- actually the `command' key */
1557 * "insert" --- see below
1559 "&8", "undo", /* terminfo */
1560 "%0", "redo", /* terminfo */
1561 "%7", "menu", /* terminfo --- actually the `options' key */
1562 "@0", "find", /* terminfo */
1563 "@2", "cancel", /* terminfo */
1564 "%1", "help", /* terminfo */
1566 * "break" goes here, but can't be reliably intercepted with termcap
1568 "&4", "reset", /* terminfo --- actually `restart' */
1570 * "system" and "user" --- no termcaps
1572 "kE", "clearline", /* terminfo */
1573 "kA", "insertline", /* terminfo */
1574 "kL", "deleteline", /* terminfo */
1575 "kI", "insertchar", /* terminfo */
1576 "kD", "deletechar", /* terminfo */
1577 "kB", "backtab", /* terminfo */
1579 * "kp_backtab", "kp-space", "kp-tab" --- no termcaps
1581 "@8", "kp-enter", /* terminfo */
1583 * "kp-f1", "kp-f2", "kp-f3" "kp-f4",
1584 * "kp-multiply", "kp-add", "kp-separator",
1585 * "kp-subtract", "kp-decimal", "kp-divide", "kp-0";
1586 * --- no termcaps for any of these.
1588 "K4", "kp-1", /* terminfo */
1590 * "kp-2" --- no termcap
1592 "K5", "kp-3", /* terminfo */
1594 * "kp-4" --- no termcap
1596 "K2", "kp-5", /* terminfo */
1598 * "kp-6" --- no termcap
1600 "K1", "kp-7", /* terminfo */
1602 * "kp-8" --- no termcap
1604 "K3", "kp-9", /* terminfo */
1606 * "kp-equal" --- no termcap
1619 static char **term_get_fkeys_arg
;
1620 static Lisp_Object
term_get_fkeys_1 ();
1622 /* Find the escape codes sent by the function keys for Vfunction_key_map.
1623 This function scans the termcap function key sequence entries, and
1624 adds entries to Vfunction_key_map for each function key it finds. */
1627 term_get_fkeys (address
)
1630 /* We run the body of the function (term_get_fkeys_1) and ignore all Lisp
1631 errors during the call. The only errors should be from Fdefine_key
1632 when given a key sequence containing an invalid prefix key. If the
1633 termcap defines function keys which use a prefix that is already bound
1634 to a command by the default bindings, we should silently ignore that
1635 function key specification, rather than giving the user an error and
1636 refusing to run at all on such a terminal. */
1638 extern Lisp_Object
Fidentity ();
1639 term_get_fkeys_arg
= address
;
1640 internal_condition_case (term_get_fkeys_1
, Qerror
, Fidentity
);
1648 char **address
= term_get_fkeys_arg
;
1650 /* This can happen if CANNOT_DUMP or with strange options. */
1652 Vfunction_key_map
= Fmake_sparse_keymap (Qnil
);
1654 for (i
= 0; i
< (sizeof (keys
)/sizeof (keys
[0])); i
++)
1656 char *sequence
= tgetstr (keys
[i
].cap
, address
);
1658 Fdefine_key (Vfunction_key_map
, build_string (sequence
),
1659 Fmake_vector (make_number (1),
1660 intern (keys
[i
].name
)));
1663 /* The uses of the "k0" capability are inconsistent; sometimes it
1664 describes F10, whereas othertimes it describes F0 and "k;" describes F10.
1665 We will attempt to politely accommodate both systems by testing for
1666 "k;", and if it is present, assuming that "k0" denotes F0, otherwise F10.
1669 char *k_semi
= tgetstr ("k;", address
);
1670 char *k0
= tgetstr ("k0", address
);
1671 char *k0_name
= "f10";
1675 Fdefine_key (Vfunction_key_map
, build_string (k_semi
),
1676 Fmake_vector (make_number (1), intern ("f10")));
1681 Fdefine_key (Vfunction_key_map
, build_string (k0
),
1682 Fmake_vector (make_number (1), intern (k0_name
)));
1685 /* Set up cookies for numbered function keys above f10. */
1687 char fcap
[3], fkey
[4];
1689 fcap
[0] = 'F'; fcap
[2] = '\0';
1690 for (i
= 11; i
< 64; i
++)
1693 fcap
[1] = '1' + i
- 11;
1695 fcap
[1] = 'A' + i
- 20;
1697 fcap
[1] = 'a' + i
- 46;
1700 char *sequence
= tgetstr (fcap
, address
);
1703 sprintf (fkey
, "f%d", i
);
1704 Fdefine_key (Vfunction_key_map
, build_string (sequence
),
1705 Fmake_vector (make_number (1),
1713 * Various mappings to try and get a better fit.
1716 #define CONDITIONAL_REASSIGN(cap1, cap2, sym) \
1717 if (!tgetstr (cap1, address)) \
1719 char *sequence = tgetstr (cap2, address); \
1721 Fdefine_key (Vfunction_key_map, build_string (sequence), \
1722 Fmake_vector (make_number (1), \
1726 /* if there's no key_next keycap, map key_npage to `next' keysym */
1727 CONDITIONAL_REASSIGN ("%5", "kN", "next");
1728 /* if there's no key_prev keycap, map key_ppage to `previous' keysym */
1729 CONDITIONAL_REASSIGN ("%8", "kP", "prior");
1730 /* if there's no key_dc keycap, map key_ic to `insert' keysym */
1731 CONDITIONAL_REASSIGN ("kD", "kI", "insert");
1732 /* if there's no key_end keycap, map key_ll to 'end' keysym */
1733 CONDITIONAL_REASSIGN ("@7", "kH", "end");
1735 /* IBM has their own non-standard dialect of terminfo.
1736 If the standard name isn't found, try the IBM name. */
1737 CONDITIONAL_REASSIGN ("kB", "KO", "backtab");
1738 CONDITIONAL_REASSIGN ("@4", "kJ", "execute"); /* actually "action" */
1739 CONDITIONAL_REASSIGN ("@4", "kc", "execute"); /* actually "command" */
1740 CONDITIONAL_REASSIGN ("%7", "ki", "menu");
1741 CONDITIONAL_REASSIGN ("@7", "kw", "end");
1742 CONDITIONAL_REASSIGN ("F1", "k<", "f11");
1743 CONDITIONAL_REASSIGN ("F2", "k>", "f12");
1744 CONDITIONAL_REASSIGN ("%1", "kq", "help");
1745 CONDITIONAL_REASSIGN ("*6", "kU", "select");
1746 #undef CONDITIONAL_REASSIGN
1753 /***********************************************************************
1754 Character Display Information
1755 ***********************************************************************/
1757 static void append_glyph
P_ ((struct it
*));
1760 /* Append glyphs to IT's glyph_row. Called from produce_glyphs for
1761 terminal frames if IT->glyph_row != NULL. IT->c is the character
1762 for which to produce glyphs; IT->face_id contains the character's
1763 face. Padding glyphs are appended if IT->c has a IT->pixel_width >
1770 struct glyph
*glyph
, *end
;
1773 xassert (it
->glyph_row
);
1774 glyph
= (it
->glyph_row
->glyphs
[it
->area
]
1775 + it
->glyph_row
->used
[it
->area
]);
1776 end
= it
->glyph_row
->glyphs
[1 + it
->area
];
1779 i
< it
->pixel_width
&& glyph
< end
;
1782 glyph
->type
= CHAR_GLYPH
;
1783 glyph
->pixel_width
= 1;
1784 glyph
->u
.ch
= it
->c
;
1785 glyph
->face_id
= it
->face_id
;
1786 glyph
->padding_p
= i
> 0;
1787 glyph
->charpos
= CHARPOS (it
->position
);
1788 glyph
->object
= it
->object
;
1790 ++it
->glyph_row
->used
[it
->area
];
1796 /* Produce glyphs for the display element described by IT. The
1797 function fills output fields of IT with pixel information like the
1798 pixel width and height of a character, and maybe produces glyphs at
1799 the same time if IT->glyph_row is non-null. See the explanation of
1800 struct display_iterator in dispextern.h for an overview. */
1806 /* If a hook is installed, let it do the work. */
1807 xassert (it
->what
== IT_CHARACTER
1808 || it
->what
== IT_COMPOSITION
1809 || it
->what
== IT_IMAGE
1810 || it
->what
== IT_STRETCH
);
1812 /* Nothing but characters are supported on terminal frames. For a
1813 composition sequence, it->c is the first character of the
1815 xassert (it
->what
== IT_CHARACTER
1816 || it
->what
== IT_COMPOSITION
);
1818 if (it
->c
>= 040 && it
->c
< 0177)
1820 it
->pixel_width
= it
->nglyphs
= 1;
1824 else if (it
->c
== '\n')
1825 it
->pixel_width
= it
->nglyphs
= 0;
1826 else if (it
->c
== '\t')
1828 int absolute_x
= (it
->current_x
1829 + it
->continuation_lines_width
);
1831 = (((1 + absolute_x
+ it
->tab_width
- 1)
1836 /* If part of the TAB has been displayed on the previous line
1837 which is continued now, continuation_lines_width will have
1838 been incremented already by the part that fitted on the
1839 continued line. So, we will get the right number of spaces
1841 nspaces
= next_tab_x
- absolute_x
;
1848 it
->pixel_width
= it
->len
= 1;
1856 it
->pixel_width
= nspaces
;
1857 it
->nglyphs
= nspaces
;
1859 else if (SINGLE_BYTE_CHAR_P (it
->c
))
1861 /* Comming here means that it->c is from display table, thus we
1862 must send the code as is to the terminal. Although there's
1863 no way to know how many columns it occupies on a screen, it
1864 is a good assumption that a single byte code has 1-column
1866 it
->pixel_width
= it
->nglyphs
= 1;
1872 /* A multi-byte character. The display width is fixed for all
1873 characters of the set. Some of the glyphs may have to be
1874 ignored because they are already displayed in a continued
1876 int charset
= CHAR_CHARSET (it
->c
);
1878 it
->pixel_width
= CHARSET_WIDTH (charset
);
1879 it
->nglyphs
= it
->pixel_width
;
1885 /* Advance current_x by the pixel width as a convenience for
1887 if (it
->area
== TEXT_AREA
)
1888 it
->current_x
+= it
->pixel_width
;
1889 it
->ascent
= it
->max_ascent
= it
->phys_ascent
= it
->max_phys_ascent
= 0;
1890 it
->descent
= it
->max_descent
= it
->phys_descent
= it
->max_phys_descent
= 1;
1894 /* Get information about special display element WHAT in an
1895 environment described by IT. WHAT is one of IT_TRUNCATION or
1896 IT_CONTINUATION. Maybe produce glyphs for WHAT if IT has a
1897 non-null glyph_row member. This function ensures that fields like
1898 face_id, c, len of IT are left untouched. */
1901 produce_special_glyphs (it
, what
)
1903 enum display_element_type what
;
1909 temp_it
.what
= IT_CHARACTER
;
1911 temp_it
.object
= make_number (0);
1912 bzero (&temp_it
.current
, sizeof temp_it
.current
);
1914 if (what
== IT_CONTINUATION
)
1916 /* Continuation glyph. */
1918 && INTEGERP (DISP_CONTINUE_GLYPH (it
->dp
))
1919 && GLYPH_CHAR_VALID_P (XINT (DISP_CONTINUE_GLYPH (it
->dp
))))
1921 temp_it
.c
= FAST_GLYPH_CHAR (XINT (DISP_CONTINUE_GLYPH (it
->dp
)));
1922 temp_it
.len
= CHAR_BYTES (temp_it
.c
);
1927 produce_glyphs (&temp_it
);
1928 it
->pixel_width
= temp_it
.pixel_width
;
1929 it
->nglyphs
= temp_it
.pixel_width
;
1931 else if (what
== IT_TRUNCATION
)
1933 /* Truncation glyph. */
1935 && INTEGERP (DISP_TRUNC_GLYPH (it
->dp
))
1936 && GLYPH_CHAR_VALID_P (XINT (DISP_TRUNC_GLYPH (it
->dp
))))
1938 temp_it
.c
= FAST_GLYPH_CHAR (XINT (DISP_TRUNC_GLYPH (it
->dp
)));
1939 temp_it
.len
= CHAR_BYTES (temp_it
.c
);
1944 produce_glyphs (&temp_it
);
1945 it
->pixel_width
= temp_it
.pixel_width
;
1946 it
->nglyphs
= temp_it
.pixel_width
;
1953 /* Return an estimation of the pixel height of mode or top lines on
1954 frame F. FACE_ID specifies what line's height to estimate. */
1957 estimate_mode_line_height (f
, face_id
)
1959 enum face_id face_id
;
1961 if (estimate_mode_line_height_hook
)
1962 return estimate_mode_line_height_hook (f
, face_id
);
1969 /***********************************************************************
1971 ***********************************************************************/
1973 /* Value is non-zero if attribute ATTR may be used. ATTR should be
1974 one of the enumerators from enum no_color_bit, or a bit set built
1975 from them. Some display attributes may not be used together with
1976 color; the termcap capability `NC' specifies which ones. */
1978 #define MAY_USE_WITH_COLORS_P(ATTR) \
1979 (TN_max_colors > 0 \
1980 ? (TN_no_color_video & (ATTR)) == 0 \
1983 /* Turn appearances of face FACE_ID on tty frame F on. */
1986 turn_on_face (f
, face_id
)
1990 struct face
*face
= FACE_FROM_ID (f
, face_id
);
1992 xassert (face
!= NULL
);
1994 if (face
->tty_bold_p
)
1996 if (MAY_USE_WITH_COLORS_P (NC_BOLD
))
1997 OUTPUT1_IF (TS_enter_bold_mode
);
1999 else if (face
->tty_dim_p
)
2000 if (MAY_USE_WITH_COLORS_P (NC_DIM
))
2001 OUTPUT1_IF (TS_enter_dim_mode
);
2003 /* Alternate charset and blinking not yet used. */
2004 if (face
->tty_alt_charset_p
2005 && MAY_USE_WITH_COLORS_P (NC_ALT_CHARSET
))
2006 OUTPUT1_IF (TS_enter_alt_charset_mode
);
2008 if (face
->tty_blinking_p
2009 && MAY_USE_WITH_COLORS_P (NC_BLINK
))
2010 OUTPUT1_IF (TS_enter_blink_mode
);
2012 if (face
->tty_underline_p
2013 /* Don't underline if that's difficult. */
2014 && TN_magic_cookie_glitch_ul
<= 0
2015 && MAY_USE_WITH_COLORS_P (NC_UNDERLINE
))
2016 OUTPUT1_IF (TS_enter_underline_mode
);
2018 if (MAY_USE_WITH_COLORS_P (NC_REVERSE
))
2019 if (face
->tty_reverse_p
2020 || face
->foreground
== FACE_TTY_DEFAULT_BG_COLOR
2021 || face
->background
== FACE_TTY_DEFAULT_FG_COLOR
)
2022 OUTPUT1_IF (TS_enter_reverse_mode
);
2024 if (TN_max_colors
> 0)
2028 if (face
->foreground
!= FACE_TTY_DEFAULT_COLOR
2029 && face
->foreground
!= FACE_TTY_DEFAULT_FG_COLOR
2030 && face
->foreground
!= FACE_TTY_DEFAULT_BG_COLOR
2031 && TS_set_foreground
)
2033 p
= tparam (TS_set_foreground
, NULL
, 0, (int) face
->foreground
);
2038 if (face
->background
!= FACE_TTY_DEFAULT_COLOR
2039 && face
->background
!= FACE_TTY_DEFAULT_BG_COLOR
2040 && face
->background
!= FACE_TTY_DEFAULT_FG_COLOR
2041 && TS_set_background
)
2043 p
= tparam (TS_set_background
, NULL
, 0, (int) face
->background
);
2051 /* Turn off appearances of face FACE_ID on tty frame F. */
2054 turn_off_face (f
, face_id
)
2058 struct face
*face
= FACE_FROM_ID (f
, face_id
);
2060 xassert (face
!= NULL
);
2062 if (TS_exit_attribute_mode
)
2064 /* Capability "me" will turn off appearance modes double-bright,
2065 half-bright, reverse-video, standout, underline. It may or
2066 may not turn off alt-char-mode. */
2067 if (face
->tty_bold_p
2069 || face
->tty_reverse_p
2070 || face
->tty_alt_charset_p
2071 || face
->tty_blinking_p
2072 || face
->tty_underline_p
)
2073 OUTPUT1_IF (TS_exit_attribute_mode
);
2075 if (face
->tty_alt_charset_p
)
2076 OUTPUT_IF (TS_exit_alt_charset_mode
);
2080 /* If we don't have "me" we can only have those appearances
2081 that have exit sequences defined. */
2082 if (face
->tty_alt_charset_p
)
2083 OUTPUT_IF (TS_exit_alt_charset_mode
);
2085 if (face
->tty_underline_p
2086 /* We don't underline if that's difficult. */
2087 && TN_magic_cookie_glitch_ul
<= 0)
2088 OUTPUT_IF (TS_exit_underline_mode
);
2091 /* Switch back to default colors. */
2092 if (TN_max_colors
> 0
2093 && ((face
->foreground
!= FACE_TTY_DEFAULT_COLOR
2094 && face
->foreground
!= FACE_TTY_DEFAULT_FG_COLOR
)
2095 || (face
->background
!= FACE_TTY_DEFAULT_COLOR
2096 && face
->background
!= FACE_TTY_DEFAULT_BG_COLOR
)))
2097 OUTPUT1_IF (TS_orig_pair
);
2101 /* Return non-zero if the terminal is capable to display colors. */
2103 DEFUN ("tty-display-color-p", Ftty_display_color_p
, Stty_display_color_p
,
2105 "Return non-nil if TTY can display colors on FRAME.")
2109 return TN_max_colors
> 0 ? Qt
: Qnil
;
2115 /***********************************************************************
2117 ***********************************************************************/
2120 term_init (terminal_type
)
2121 char *terminal_type
;
2124 char **address
= &area
;
2128 struct frame
*sf
= XFRAME (selected_frame
);
2131 initialize_w32_display ();
2135 area
= (char *) xmalloc (2044);
2140 FrameRows
= FRAME_HEIGHT (sf
);
2141 FrameCols
= FRAME_WIDTH (sf
);
2142 specified_window
= FRAME_HEIGHT (sf
);
2144 delete_in_insert_mode
= 1;
2147 scroll_region_ok
= 0;
2149 /* Seems to insert lines when it's not supposed to, messing
2150 up the display. In doing a trace, it didn't seem to be
2151 called much, so I don't think we're losing anything by
2154 line_ins_del_ok
= 0;
2155 char_ins_del_ok
= 1;
2159 FRAME_CAN_HAVE_SCROLL_BARS (sf
) = 0;
2160 FRAME_VERTICAL_SCROLL_BAR_TYPE (sf
) = vertical_scroll_bar_none
;
2161 TN_max_colors
= 16; /* Required to be non-zero for tty-display-color-p */
2164 #else /* not WINDOWSNT */
2168 status
= tgetent (buffer
, terminal_type
);
2172 fatal ("Cannot open terminfo database file");
2174 fatal ("Cannot open termcap database file");
2180 fatal ("Terminal type %s is not defined.\n\
2181 If that is not the actual type of terminal you have,\n\
2182 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2183 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2184 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
2187 fatal ("Terminal type %s is not defined.\n\
2188 If that is not the actual type of terminal you have,\n\
2189 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2190 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2191 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
2196 area
= (char *) xmalloc (2044);
2198 area
= (char *) xmalloc (strlen (buffer
));
2199 #endif /* not TERMINFO */
2203 TS_ins_line
= tgetstr ("al", address
);
2204 TS_ins_multi_lines
= tgetstr ("AL", address
);
2205 TS_bell
= tgetstr ("bl", address
);
2206 BackTab
= tgetstr ("bt", address
);
2207 TS_clr_to_bottom
= tgetstr ("cd", address
);
2208 TS_clr_line
= tgetstr ("ce", address
);
2209 TS_clr_frame
= tgetstr ("cl", address
);
2210 ColPosition
= NULL
; /* tgetstr ("ch", address); */
2211 AbsPosition
= tgetstr ("cm", address
);
2212 CR
= tgetstr ("cr", address
);
2213 TS_set_scroll_region
= tgetstr ("cs", address
);
2214 TS_set_scroll_region_1
= tgetstr ("cS", address
);
2215 RowPosition
= tgetstr ("cv", address
);
2216 TS_del_char
= tgetstr ("dc", address
);
2217 TS_del_multi_chars
= tgetstr ("DC", address
);
2218 TS_del_line
= tgetstr ("dl", address
);
2219 TS_del_multi_lines
= tgetstr ("DL", address
);
2220 TS_delete_mode
= tgetstr ("dm", address
);
2221 TS_end_delete_mode
= tgetstr ("ed", address
);
2222 TS_end_insert_mode
= tgetstr ("ei", address
);
2223 Home
= tgetstr ("ho", address
);
2224 TS_ins_char
= tgetstr ("ic", address
);
2225 TS_ins_multi_chars
= tgetstr ("IC", address
);
2226 TS_insert_mode
= tgetstr ("im", address
);
2227 TS_pad_inserted_char
= tgetstr ("ip", address
);
2228 TS_end_keypad_mode
= tgetstr ("ke", address
);
2229 TS_keypad_mode
= tgetstr ("ks", address
);
2230 LastLine
= tgetstr ("ll", address
);
2231 Right
= tgetstr ("nd", address
);
2232 Down
= tgetstr ("do", address
);
2234 Down
= tgetstr ("nl", address
); /* Obsolete name for "do" */
2236 /* VMS puts a carriage return before each linefeed,
2237 so it is not safe to use linefeeds. */
2238 if (Down
&& Down
[0] == '\n' && Down
[1] == '\0')
2241 if (tgetflag ("bs"))
2242 Left
= "\b"; /* can't possibly be longer! */
2243 else /* (Actually, "bs" is obsolete...) */
2244 Left
= tgetstr ("le", address
);
2246 Left
= tgetstr ("bc", address
); /* Obsolete name for "le" */
2247 TS_pad_char
= tgetstr ("pc", address
);
2248 TS_repeat
= tgetstr ("rp", address
);
2249 TS_end_standout_mode
= tgetstr ("se", address
);
2250 TS_fwd_scroll
= tgetstr ("sf", address
);
2251 TS_standout_mode
= tgetstr ("so", address
);
2252 TS_rev_scroll
= tgetstr ("sr", address
);
2253 Wcm
.cm_tab
= tgetstr ("ta", address
);
2254 TS_end_termcap_modes
= tgetstr ("te", address
);
2255 TS_termcap_modes
= tgetstr ("ti", address
);
2256 Up
= tgetstr ("up", address
);
2257 TS_visible_bell
= tgetstr ("vb", address
);
2258 TS_cursor_normal
= tgetstr ("ve", address
);
2259 TS_cursor_visible
= tgetstr ("vs", address
);
2260 TS_cursor_invisible
= tgetstr ("vi", address
);
2261 TS_set_window
= tgetstr ("wi", address
);
2263 TS_enter_underline_mode
= tgetstr ("us", address
);
2264 TS_exit_underline_mode
= tgetstr ("ue", address
);
2265 TN_magic_cookie_glitch_ul
= tgetnum ("ug");
2266 TS_enter_bold_mode
= tgetstr ("md", address
);
2267 TS_enter_dim_mode
= tgetstr ("mh", address
);
2268 TS_enter_blink_mode
= tgetstr ("mb", address
);
2269 TS_enter_reverse_mode
= tgetstr ("mr", address
);
2270 TS_enter_alt_charset_mode
= tgetstr ("as", address
);
2271 TS_exit_alt_charset_mode
= tgetstr ("ae", address
);
2272 TS_exit_attribute_mode
= tgetstr ("me", address
);
2274 MultiUp
= tgetstr ("UP", address
);
2275 MultiDown
= tgetstr ("DO", address
);
2276 MultiLeft
= tgetstr ("LE", address
);
2277 MultiRight
= tgetstr ("RI", address
);
2279 /* SVr4/ANSI color suppert. If "op" isn't available, don't support
2280 color because we can't switch back to the default foreground and
2282 TS_orig_pair
= tgetstr ("op", address
);
2285 TS_set_foreground
= tgetstr ("AF", address
);
2286 TS_set_background
= tgetstr ("AB", address
);
2287 if (!TS_set_foreground
)
2290 TS_set_foreground
= tgetstr ("Sf", address
);
2291 TS_set_background
= tgetstr ("Sb", address
);
2294 TN_max_colors
= tgetnum ("Co");
2295 TN_max_pairs
= tgetnum ("pa");
2297 TN_no_color_video
= tgetnum ("NC");
2298 if (TN_no_color_video
== -1)
2299 TN_no_color_video
= 0;
2302 MagicWrap
= tgetflag ("xn");
2303 /* Since we make MagicWrap terminals look like AutoWrap, we need to have
2304 the former flag imply the latter. */
2305 AutoWrap
= MagicWrap
|| tgetflag ("am");
2306 memory_below_frame
= tgetflag ("db");
2307 TF_hazeltine
= tgetflag ("hz");
2308 must_write_spaces
= tgetflag ("in");
2309 meta_key
= tgetflag ("km") || tgetflag ("MT");
2310 TF_insmode_motion
= tgetflag ("mi");
2311 TF_standout_motion
= tgetflag ("ms");
2312 TF_underscore
= tgetflag ("ul");
2313 TF_xs
= tgetflag ("xs");
2314 TF_teleray
= tgetflag ("xt");
2316 term_get_fkeys (address
);
2318 /* Get frame size from system, or else from termcap. */
2321 get_frame_size (&width
, &height
);
2322 FRAME_WIDTH (sf
) = width
;
2323 FRAME_HEIGHT (sf
) = height
;
2326 if (FRAME_WIDTH (sf
) <= 0)
2327 SET_FRAME_WIDTH (sf
, tgetnum ("co"));
2329 /* Keep width and external_width consistent */
2330 SET_FRAME_WIDTH (sf
, FRAME_WIDTH (sf
));
2331 if (FRAME_HEIGHT (sf
) <= 0)
2332 FRAME_HEIGHT (sf
) = tgetnum ("li");
2334 if (FRAME_HEIGHT (sf
) < 3 || FRAME_WIDTH (sf
) < 3)
2335 fatal ("Screen size %dx%d is too small",
2336 FRAME_HEIGHT (sf
), FRAME_WIDTH (sf
));
2338 min_padding_speed
= tgetnum ("pb");
2339 TN_standout_width
= tgetnum ("sg");
2340 TabWidth
= tgetnum ("tw");
2343 /* These capabilities commonly use ^J.
2344 I don't know why, but sending them on VMS does not work;
2345 it causes following spaces to be lost, sometimes.
2346 For now, the simplest fix is to avoid using these capabilities ever. */
2347 if (Down
&& Down
[0] == '\n')
2355 TS_fwd_scroll
= Down
;
2357 PC
= TS_pad_char
? *TS_pad_char
: 0;
2362 /* Turned off since /etc/termcap seems to have :ta= for most terminals
2363 and newer termcap doc does not seem to say there is a default.
2368 if (TS_standout_mode
== 0)
2370 TN_standout_width
= tgetnum ("ug");
2371 TS_end_standout_mode
= tgetstr ("ue", address
);
2372 TS_standout_mode
= tgetstr ("us", address
);
2375 /* If no `se' string, try using a `me' string instead.
2376 If that fails, we can't use standout mode at all. */
2377 if (TS_end_standout_mode
== 0)
2379 char *s
= tgetstr ("me", address
);
2381 TS_end_standout_mode
= s
;
2383 TS_standout_mode
= 0;
2389 /* Teleray: most programs want a space in front of TS_standout_mode,
2390 but Emacs can do without it (and give one extra column). */
2391 TS_standout_mode
= "\033RD";
2392 TN_standout_width
= 1;
2393 /* But that means we cannot rely on ^M to go to column zero! */
2395 /* LF can't be trusted either -- can alter hpos */
2396 /* if move at column 0 thru a line with TS_standout_mode */
2400 /* Special handling for certain terminal types known to need it */
2402 if (!strcmp (terminal_type
, "supdup"))
2404 memory_below_frame
= 1;
2405 Wcm
.cm_losewrap
= 1;
2407 if (!strncmp (terminal_type
, "c10", 3)
2408 || !strcmp (terminal_type
, "perq"))
2410 /* Supply a makeshift :wi string.
2411 This string is not valid in general since it works only
2412 for windows starting at the upper left corner;
2413 but that is all Emacs uses.
2415 This string works only if the frame is using
2416 the top of the video memory, because addressing is memory-relative.
2417 So first check the :ti string to see if that is true.
2419 It would be simpler if the :wi string could go in the termcap
2420 entry, but it can't because it is not fully valid.
2421 If it were in the termcap entry, it would confuse other programs. */
2424 p
= TS_termcap_modes
;
2425 while (*p
&& strcmp (p
, "\033v "))
2428 TS_set_window
= "\033v%C %C %C %C ";
2430 /* Termcap entry often fails to have :in: flag */
2431 must_write_spaces
= 1;
2432 /* :ti string typically fails to have \E^G! in it */
2433 /* This limits scope of insert-char to one line. */
2434 strcpy (area
, TS_termcap_modes
);
2435 strcat (area
, "\033\007!");
2436 TS_termcap_modes
= area
;
2437 area
+= strlen (area
) + 1;
2439 /* Change all %+ parameters to %C, to handle
2440 values above 96 correctly for the C100. */
2443 if (p
[0] == '%' && p
[1] == '+')
2449 FrameRows
= FRAME_HEIGHT (sf
);
2450 FrameCols
= FRAME_WIDTH (sf
);
2451 specified_window
= FRAME_HEIGHT (sf
);
2453 if (Wcm_init () == -1) /* can't do cursor motion */
2455 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2456 It lacks the ability to position the cursor.\n\
2457 If that is not the actual type of terminal you have, use either the\n\
2458 DCL command `SET TERMINAL/DEVICE= ...' for DEC-compatible terminals,\n\
2459 or `define EMACS_TERM \"terminal type\"' for non-DEC terminals.",
2463 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2464 It lacks the ability to position the cursor.\n\
2465 If that is not the actual type of terminal you have,\n\
2466 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2467 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2468 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
2470 # else /* TERMCAP */
2471 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2472 It lacks the ability to position the cursor.\n\
2473 If that is not the actual type of terminal you have,\n\
2474 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2475 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2476 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
2478 # endif /* TERMINFO */
2480 if (FRAME_HEIGHT (sf
) <= 0
2481 || FRAME_WIDTH (sf
) <= 0)
2482 fatal ("The frame size has not been specified");
2484 delete_in_insert_mode
2485 = TS_delete_mode
&& TS_insert_mode
2486 && !strcmp (TS_delete_mode
, TS_insert_mode
);
2488 se_is_so
= (TS_standout_mode
2489 && TS_end_standout_mode
2490 && !strcmp (TS_standout_mode
, TS_end_standout_mode
));
2492 /* Remove width of standout marker from usable width of line */
2493 if (TN_standout_width
> 0)
2494 SET_FRAME_WIDTH (sf
, FRAME_WIDTH (sf
) - TN_standout_width
);
2496 UseTabs
= tabs_safe_p () && TabWidth
== 8;
2500 && (TS_set_window
|| TS_set_scroll_region
|| TS_set_scroll_region_1
));
2502 line_ins_del_ok
= (((TS_ins_line
|| TS_ins_multi_lines
)
2503 && (TS_del_line
|| TS_del_multi_lines
))
2504 || (scroll_region_ok
&& TS_fwd_scroll
&& TS_rev_scroll
));
2506 char_ins_del_ok
= ((TS_ins_char
|| TS_insert_mode
2507 || TS_pad_inserted_char
|| TS_ins_multi_chars
)
2508 && (TS_del_char
|| TS_del_multi_chars
));
2510 fast_clear_end_of_line
= TS_clr_line
!= 0;
2513 if (read_socket_hook
) /* Baudrate is somewhat */
2514 /* meaningless in this case */
2517 FRAME_CAN_HAVE_SCROLL_BARS (sf
) = 0;
2518 FRAME_VERTICAL_SCROLL_BAR_TYPE (sf
) = vertical_scroll_bar_none
;
2519 #endif /* WINDOWSNT */
2524 fatal (str
, arg1
, arg2
)
2525 char *str
, *arg1
, *arg2
;
2527 fprintf (stderr
, "emacs: ");
2528 fprintf (stderr
, str
, arg1
, arg2
);
2529 fprintf (stderr
, "\n");
2537 DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo
,
2538 "Non-nil means the system uses terminfo rather than termcap.\n\
2539 This variable can be used by terminal emulator packages.");
2541 system_uses_terminfo
= 1;
2543 system_uses_terminfo
= 0;
2546 DEFVAR_LISP ("ring-bell-function", &Vring_bell_function
,
2547 "Non-nil means call this function to ring the bell.\n\
2548 The function should accept no arguments.");
2549 Vring_bell_function
= Qnil
;
2551 defsubr (&Stty_display_color_p
);