1 /* Terminal control module for terminals described by TERMCAP
2 Copyright (C) 1985, 86, 87, 93, 94, 95, 98, 2000, 2001
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@gnu.org>. */
33 #include "character.h"
39 #include "termhooks.h"
40 #include "dispextern.h"
44 /* For now, don't try to include termcap.h. On some systems,
45 configure finds a non-standard termcap.h that the main build
48 #if defined HAVE_TERMCAP_H && 0
51 extern void tputs
P_ ((const char *, int, int (*)(int)));
52 extern int tgetent
P_ ((char *, const char *));
53 extern int tgetflag
P_ ((char *id
));
54 extern int tgetnum
P_ ((char *id
));
65 static void turn_on_face
P_ ((struct frame
*, int face_id
));
66 static void turn_off_face
P_ ((struct frame
*, int face_id
));
67 static void tty_show_cursor
P_ ((void));
68 static void tty_hide_cursor
P_ ((void));
71 tputs (a, (int) (FRAME_HEIGHT (XFRAME (selected_frame)) - curY), cmputc)
72 #define OUTPUT1(a) tputs (a, 1, cmputc)
73 #define OUTPUTL(a, lines) tputs (a, lines, cmputc)
75 #define OUTPUT_IF(a) \
78 tputs (a, (int) (FRAME_HEIGHT (XFRAME (selected_frame)) \
82 #define OUTPUT1_IF(a) do { if (a) tputs (a, 1, cmputc); } while (0)
84 /* Function to use to ring the bell. */
86 Lisp_Object Vring_bell_function
;
88 /* Terminal characteristics that higher levels want to look at.
89 These are all extern'd in termchar.h */
91 int must_write_spaces
; /* Nonzero means spaces in the text
92 must actually be output; can't just skip
93 over some columns to leave them blank. */
94 int min_padding_speed
; /* Speed below which no padding necessary */
96 int line_ins_del_ok
; /* Terminal can insert and delete lines */
97 int char_ins_del_ok
; /* Terminal can insert and delete chars */
98 int scroll_region_ok
; /* Terminal supports setting the
100 int scroll_region_cost
; /* Cost of setting a scroll window,
101 measured in characters */
102 int memory_below_frame
; /* Terminal remembers lines
103 scrolled off bottom */
104 int fast_clear_end_of_line
; /* Terminal has a `ce' string */
106 /* Nonzero means no need to redraw the entire frame on resuming
107 a suspended Emacs. This is useful on terminals with multiple pages,
108 where one page is used for Emacs and another for all else. */
110 int no_redraw_on_reenter
;
112 /* Hook functions that you can set to snap out the functions in this file.
113 These are all extern'd in termhooks.h */
115 void (*cursor_to_hook
) P_ ((int, int));
116 void (*raw_cursor_to_hook
) P_ ((int, int));
117 void (*clear_to_end_hook
) P_ ((void));
118 void (*clear_frame_hook
) P_ ((void));
119 void (*clear_end_of_line_hook
) P_ ((int));
121 void (*ins_del_lines_hook
) P_ ((int, int));
123 void (*delete_glyphs_hook
) P_ ((int));
125 void (*ring_bell_hook
) P_ ((void));
127 void (*reset_terminal_modes_hook
) P_ ((void));
128 void (*set_terminal_modes_hook
) P_ ((void));
129 void (*update_begin_hook
) P_ ((struct frame
*));
130 void (*update_end_hook
) P_ ((struct frame
*));
131 void (*set_terminal_window_hook
) P_ ((int));
132 void (*insert_glyphs_hook
) P_ ((struct glyph
*, int));
133 void (*write_glyphs_hook
) P_ ((struct glyph
*, int));
134 void (*delete_glyphs_hook
) P_ ((int));
136 int (*read_socket_hook
) P_ ((int, struct input_event
*, int, int));
138 void (*frame_up_to_date_hook
) P_ ((struct frame
*));
140 /* Return the current position of the mouse.
142 Set *f to the frame the mouse is in, or zero if the mouse is in no
143 Emacs frame. If it is set to zero, all the other arguments are
146 If the motion started in a scroll bar, set *bar_window to the
147 scroll bar's window, *part to the part the mouse is currently over,
148 *x to the position of the mouse along the scroll bar, and *y to the
149 overall length of the scroll bar.
151 Otherwise, set *bar_window to Qnil, and *x and *y to the column and
152 row of the character cell the mouse is over.
154 Set *time to the time the mouse was at the returned position.
156 This should clear mouse_moved until the next motion
159 void (*mouse_position_hook
) P_ ((FRAME_PTR
*f
, int insist
,
160 Lisp_Object
*bar_window
,
161 enum scroll_bar_part
*part
,
164 unsigned long *time
));
166 /* When reading from a minibuffer in a different frame, Emacs wants
167 to shift the highlight from the selected frame to the mini-buffer's
168 frame; under X, this means it lies about where the focus is.
169 This hook tells the window system code to re-decide where to put
172 void (*frame_rehighlight_hook
) P_ ((FRAME_PTR f
));
174 /* If we're displaying frames using a window system that can stack
175 frames on top of each other, this hook allows you to bring a frame
176 to the front, or bury it behind all the other windows. If this
177 hook is zero, that means the device we're displaying on doesn't
178 support overlapping frames, so there's no need to raise or lower
181 If RAISE is non-zero, F is brought to the front, before all other
182 windows. If RAISE is zero, F is sent to the back, behind all other
185 void (*frame_raise_lower_hook
) P_ ((FRAME_PTR f
, int raise
));
187 /* Set the vertical scroll bar for WINDOW to have its upper left corner
188 at (TOP, LEFT), and be LENGTH rows high. Set its handle to
189 indicate that we are displaying PORTION characters out of a total
190 of WHOLE characters, starting at POSITION. If WINDOW doesn't yet
191 have a scroll bar, create one for it. */
193 void (*set_vertical_scroll_bar_hook
)
194 P_ ((struct window
*window
,
195 int portion
, int whole
, int position
));
198 /* The following three hooks are used when we're doing a thorough
199 redisplay of the frame. We don't explicitly know which scroll bars
200 are going to be deleted, because keeping track of when windows go
201 away is a real pain - can you say set-window-configuration?
202 Instead, we just assert at the beginning of redisplay that *all*
203 scroll bars are to be removed, and then save scroll bars from the
204 fiery pit when we actually redisplay their window. */
206 /* Arrange for all scroll bars on FRAME to be removed at the next call
207 to `*judge_scroll_bars_hook'. A scroll bar may be spared if
208 `*redeem_scroll_bar_hook' is applied to its window before the judgment.
210 This should be applied to each frame each time its window tree is
211 redisplayed, even if it is not displaying scroll bars at the moment;
212 if the HAS_SCROLL_BARS flag has just been turned off, only calling
213 this and the judge_scroll_bars_hook will get rid of them.
215 If non-zero, this hook should be safe to apply to any frame,
216 whether or not it can support scroll bars, and whether or not it is
217 currently displaying them. */
219 void (*condemn_scroll_bars_hook
) P_ ((FRAME_PTR frame
));
221 /* Unmark WINDOW's scroll bar for deletion in this judgement cycle.
222 Note that it's okay to redeem a scroll bar that is not condemned. */
224 void (*redeem_scroll_bar_hook
) P_ ((struct window
*window
));
226 /* Remove all scroll bars on FRAME that haven't been saved since the
227 last call to `*condemn_scroll_bars_hook'.
229 This should be applied to each frame after each time its window
230 tree is redisplayed, even if it is not displaying scroll bars at the
231 moment; if the HAS_SCROLL_BARS flag has just been turned off, only
232 calling this and condemn_scroll_bars_hook will get rid of them.
234 If non-zero, this hook should be safe to apply to any frame,
235 whether or not it can support scroll bars, and whether or not it is
236 currently displaying them. */
238 void (*judge_scroll_bars_hook
) P_ ((FRAME_PTR FRAME
));
240 /* Hook to call in estimate_mode_line_height, if any. */
242 int (* estimate_mode_line_height_hook
) P_ ((struct frame
*f
, enum face_id
));
245 /* Strings, numbers and flags taken from the termcap entry. */
247 char *TS_ins_line
; /* "al" */
248 char *TS_ins_multi_lines
; /* "AL" (one parameter, # lines to insert) */
249 char *TS_bell
; /* "bl" */
250 char *TS_clr_to_bottom
; /* "cd" */
251 char *TS_clr_line
; /* "ce", clear to end of line */
252 char *TS_clr_frame
; /* "cl" */
253 char *TS_set_scroll_region
; /* "cs" (2 params, first line and last line) */
254 char *TS_set_scroll_region_1
; /* "cS" (4 params: total lines,
255 lines above scroll region, lines below it,
256 total lines again) */
257 char *TS_del_char
; /* "dc" */
258 char *TS_del_multi_chars
; /* "DC" (one parameter, # chars to delete) */
259 char *TS_del_line
; /* "dl" */
260 char *TS_del_multi_lines
; /* "DL" (one parameter, # lines to delete) */
261 char *TS_delete_mode
; /* "dm", enter character-delete mode */
262 char *TS_end_delete_mode
; /* "ed", leave character-delete mode */
263 char *TS_end_insert_mode
; /* "ei", leave character-insert mode */
264 char *TS_ins_char
; /* "ic" */
265 char *TS_ins_multi_chars
; /* "IC" (one parameter, # chars to insert) */
266 char *TS_insert_mode
; /* "im", enter character-insert mode */
267 char *TS_pad_inserted_char
; /* "ip". Just padding, no commands. */
268 char *TS_end_keypad_mode
; /* "ke" */
269 char *TS_keypad_mode
; /* "ks" */
270 char *TS_pad_char
; /* "pc", char to use as padding */
271 char *TS_repeat
; /* "rp" (2 params, # times to repeat
272 and character to be repeated) */
273 char *TS_end_standout_mode
; /* "se" */
274 char *TS_fwd_scroll
; /* "sf" */
275 char *TS_standout_mode
; /* "so" */
276 char *TS_rev_scroll
; /* "sr" */
277 char *TS_end_termcap_modes
; /* "te" */
278 char *TS_termcap_modes
; /* "ti" */
279 char *TS_visible_bell
; /* "vb" */
280 char *TS_cursor_normal
; /* "ve" */
281 char *TS_cursor_visible
; /* "vs" */
282 char *TS_cursor_invisible
; /* "vi" */
283 char *TS_set_window
; /* "wi" (4 params, start and end of window,
284 each as vpos and hpos) */
286 /* Value of the "NC" (no_color_video) capability, or 0 if not
289 static int TN_no_color_video
;
291 /* Meaning of bits in no_color_video. Each bit set means that the
292 corresponding attribute cannot be combined with colors. */
296 NC_STANDOUT
= 1 << 0,
297 NC_UNDERLINE
= 1 << 1,
304 NC_ALT_CHARSET
= 1 << 8
307 /* "md" -- turn on bold (extra bright mode). */
309 char *TS_enter_bold_mode
;
311 /* "mh" -- turn on half-bright mode. */
313 char *TS_enter_dim_mode
;
315 /* "mb" -- enter blinking mode. */
317 char *TS_enter_blink_mode
;
319 /* "mr" -- enter reverse video mode. */
321 char *TS_enter_reverse_mode
;
323 /* "us"/"ue" -- start/end underlining. */
325 char *TS_exit_underline_mode
, *TS_enter_underline_mode
;
327 /* "as"/"ae" -- start/end alternate character set. Not really
330 char *TS_enter_alt_charset_mode
, *TS_exit_alt_charset_mode
;
332 /* "me" -- switch appearances off. */
334 char *TS_exit_attribute_mode
;
336 /* "Co" -- number of colors. */
340 /* "pa" -- max. number of color pairs on screen. Not handled yet.
341 Could be a problem if not equal to TN_max_colors * TN_max_colors. */
345 /* "op" -- SVr4 set default pair to its original value. */
349 /* "AF"/"AB" or "Sf"/"Sb"-- set ANSI or SVr4 foreground/background color.
350 1 param, the color index. */
352 char *TS_set_foreground
, *TS_set_background
;
354 int TF_hazeltine
; /* termcap hz flag. */
355 int TF_insmode_motion
; /* termcap mi flag: can move while in insert mode. */
356 int TF_standout_motion
; /* termcap mi flag: can move while in standout mode. */
357 int TF_underscore
; /* termcap ul flag: _ underlines if over-struck on
358 non-blank position. Must clear before writing _. */
359 int TF_teleray
; /* termcap xt flag: many weird consequences.
362 static int RPov
; /* # chars to start a TS_repeat */
364 static int delete_in_insert_mode
; /* delete mode == insert mode */
366 static int se_is_so
; /* 1 if same string both enters and leaves
371 /* The largest frame width in any call to calculate_costs. */
375 /* The largest frame height in any call to calculate_costs. */
377 int max_frame_height
;
379 int costs_set
= 0; /* Nonzero if costs have been calculated. */
381 int insert_mode
; /* Nonzero when in insert mode. */
382 int standout_mode
; /* Nonzero when in standout mode. */
384 /* Size of window specified by higher levels.
385 This is the number of lines, from the top of frame downwards,
386 which can participate in insert-line/delete-line operations.
388 Effectively it excludes the bottom frame_height - specified_window_size
389 lines from those operations. */
391 int specified_window
;
393 /* Frame currently being redisplayed; 0 if not currently redisplaying.
394 (Direct output does not count). */
396 FRAME_PTR updating_frame
;
398 /* Provided for lisp packages. */
400 static int system_uses_terminfo
;
402 /* Flag used in tty_show/hide_cursor. */
404 static int tty_cursor_hidden
;
408 extern char *tgetstr ();
412 /* We aren't X windows, but we aren't termcap either. This makes me
413 uncertain as to what value to use for frame.output_method. For
414 this file, we'll define FRAME_TERMCAP_P to be zero so that our
415 output hooks get called instead of the termcap functions. Probably
416 the best long-term solution is to define an output_windows_nt... */
418 #undef FRAME_TERMCAP_P
419 #define FRAME_TERMCAP_P(_f_) 0
420 #endif /* WINDOWSNT */
425 if (!NILP (Vring_bell_function
))
427 Lisp_Object function
;
429 /* Temporarily set the global variable to nil
430 so that if we get an error, it stays nil
431 and we don't call it over and over.
433 We don't specbind it, because that would carefully
434 restore the bad value if there's an error
435 and make the loop of errors happen anyway. */
437 function
= Vring_bell_function
;
438 Vring_bell_function
= Qnil
;
442 Vring_bell_function
= function
;
444 else if (!FRAME_TERMCAP_P (XFRAME (selected_frame
)))
445 (*ring_bell_hook
) ();
447 OUTPUT (TS_visible_bell
&& visible_bell
? TS_visible_bell
: TS_bell
);
451 set_terminal_modes ()
453 if (FRAME_TERMCAP_P (XFRAME (selected_frame
)))
455 OUTPUT_IF (TS_termcap_modes
);
456 OUTPUT_IF (TS_cursor_visible
);
457 OUTPUT_IF (TS_keypad_mode
);
461 (*set_terminal_modes_hook
) ();
465 reset_terminal_modes ()
467 if (FRAME_TERMCAP_P (XFRAME (selected_frame
)))
469 turn_off_highlight ();
471 OUTPUT_IF (TS_end_keypad_mode
);
472 OUTPUT_IF (TS_cursor_normal
);
473 OUTPUT_IF (TS_end_termcap_modes
);
474 OUTPUT_IF (TS_orig_pair
);
475 /* Output raw CR so kernel can track the cursor hpos. */
478 else if (reset_terminal_modes_hook
)
479 (*reset_terminal_modes_hook
) ();
487 if (!FRAME_TERMCAP_P (f
))
488 update_begin_hook (f
);
495 if (FRAME_TERMCAP_P (f
))
497 if (!XWINDOW (selected_window
)->cursor_off_p
)
500 background_highlight ();
505 updating_frame
= NULL
;
509 set_terminal_window (size
)
512 if (FRAME_TERMCAP_P (updating_frame
))
514 specified_window
= size
? size
: FRAME_HEIGHT (updating_frame
);
515 if (scroll_region_ok
)
516 set_scroll_region (0, specified_window
);
519 set_terminal_window_hook (size
);
523 set_scroll_region (start
, stop
)
527 struct frame
*sf
= XFRAME (selected_frame
);
529 if (TS_set_scroll_region
)
530 buf
= tparam (TS_set_scroll_region
, 0, 0, start
, stop
- 1);
531 else if (TS_set_scroll_region_1
)
532 buf
= tparam (TS_set_scroll_region_1
, 0, 0,
533 FRAME_HEIGHT (sf
), start
,
534 FRAME_HEIGHT (sf
) - stop
,
537 buf
= tparam (TS_set_window
, 0, 0, start
, 0, stop
, FRAME_WIDTH (sf
));
549 OUTPUT (TS_insert_mode
);
557 OUTPUT (TS_end_insert_mode
);
561 /* Handle highlighting. */
564 turn_off_highlight ()
567 OUTPUT_IF (TS_end_standout_mode
);
575 OUTPUT_IF (TS_standout_mode
);
583 turn_off_highlight ();
585 turn_on_highlight ();
589 /* Make cursor invisible. */
594 if (tty_cursor_hidden
== 0)
596 tty_cursor_hidden
= 1;
597 OUTPUT_IF (TS_cursor_invisible
);
602 /* Ensure that cursor is visible. */
607 if (tty_cursor_hidden
)
609 tty_cursor_hidden
= 0;
610 OUTPUT_IF (TS_cursor_normal
);
611 OUTPUT_IF (TS_cursor_visible
);
616 /* Set standout mode to the state it should be in for
617 empty space inside windows. What this is,
618 depends on the user option inverse-video. */
621 background_highlight ()
624 turn_on_highlight ();
626 turn_off_highlight ();
629 /* Set standout mode to the mode specified for the text to be output. */
632 highlight_if_desired ()
635 turn_on_highlight ();
637 turn_off_highlight ();
641 /* Move cursor to row/column position VPOS/HPOS. HPOS/VPOS are
642 frame-relative coordinates. */
645 cursor_to (vpos
, hpos
)
648 struct frame
*f
= updating_frame
? updating_frame
: XFRAME (selected_frame
);
650 if (! FRAME_TERMCAP_P (f
) && cursor_to_hook
)
652 (*cursor_to_hook
) (vpos
, hpos
);
656 /* Detect the case where we are called from reset_sys_modes
657 and the costs have never been calculated. Do nothing. */
661 if (curY
== vpos
&& curX
== hpos
)
663 if (!TF_standout_motion
)
664 background_highlight ();
665 if (!TF_insmode_motion
)
670 /* Similar but don't take any account of the wasted characters. */
673 raw_cursor_to (row
, col
)
676 struct frame
*f
= updating_frame
? updating_frame
: XFRAME (selected_frame
);
677 if (! FRAME_TERMCAP_P (f
))
679 (*raw_cursor_to_hook
) (row
, col
);
682 if (curY
== row
&& curX
== col
)
684 if (!TF_standout_motion
)
685 background_highlight ();
686 if (!TF_insmode_motion
)
691 /* Erase operations */
693 /* clear from cursor to end of frame */
699 if (clear_to_end_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
701 (*clear_to_end_hook
) ();
704 if (TS_clr_to_bottom
)
706 background_highlight ();
707 OUTPUT (TS_clr_to_bottom
);
711 for (i
= curY
; i
< FRAME_HEIGHT (XFRAME (selected_frame
)); i
++)
714 clear_end_of_line (FRAME_WIDTH (XFRAME (selected_frame
)));
719 /* Clear entire frame */
724 struct frame
*sf
= XFRAME (selected_frame
);
727 && ! FRAME_TERMCAP_P ((updating_frame
? updating_frame
: sf
)))
729 (*clear_frame_hook
) ();
734 background_highlight ();
735 OUTPUT (TS_clr_frame
);
745 /* Clear from cursor to end of line.
746 Assume that the line is already clear starting at column first_unused_hpos.
748 Note that the cursor may be moved, on terminals lacking a `ce' string. */
751 clear_end_of_line (first_unused_hpos
)
752 int first_unused_hpos
;
756 if (clear_end_of_line_hook
757 && ! FRAME_TERMCAP_P ((updating_frame
759 : XFRAME (selected_frame
))))
761 (*clear_end_of_line_hook
) (first_unused_hpos
);
765 /* Detect the case where we are called from reset_sys_modes
766 and the costs have never been calculated. Do nothing. */
770 if (curX
>= first_unused_hpos
)
772 background_highlight ();
775 OUTPUT1 (TS_clr_line
);
778 { /* have to do it the hard way */
779 struct frame
*sf
= XFRAME (selected_frame
);
782 /* Do not write in last row last col with Auto-wrap on. */
783 if (AutoWrap
&& curY
== FRAME_HEIGHT (sf
) - 1
784 && first_unused_hpos
== FRAME_WIDTH (sf
))
787 for (i
= curX
; i
< first_unused_hpos
; i
++)
790 fputc (' ', termscript
);
793 cmplus (first_unused_hpos
- curX
);
797 /* Encode SRC_LEN glyphs starting at SRC to terminal output codes and
798 store them at DST. Do not write more than DST_LEN bytes. That may
799 require stopping before all SRC_LEN input glyphs have been
802 We store the number of glyphs actually converted in *CONSUMED. The
803 return value is the number of bytes store in DST. */
806 encode_terminal_code (src
, dst
, src_len
, dst_len
, consumed
)
810 int dst_len
, *consumed
;
812 struct glyph
*src_start
= src
, *src_end
= src
+ src_len
;
813 unsigned char *dst_start
= dst
, *dst_end
= dst
+ dst_len
;
815 unsigned char workbuf
[MAX_MULTIBYTE_LENGTH
], *buf
;
817 register int tlen
= GLYPH_TABLE_LENGTH
;
818 register Lisp_Object
*tbase
= GLYPH_TABLE_BASE
;
820 struct coding_system
*coding
;
822 /* If terminal_coding does any conversion, use it, otherwise use
823 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
824 because it always return 1 if the member src_multibyte is 1. */
825 coding
= (terminal_coding
.common_flags
& CODING_REQUIRE_ENCODING_MASK
827 : &safe_terminal_coding
);
829 while (src
< src_end
)
831 /* We must skip glyphs to be padded for a wide character. */
832 if (! CHAR_GLYPH_PADDING_P (*src
))
834 g
= GLYPH_FROM_CHAR_GLYPH (src
[0]);
836 if (g
< 0 || g
>= tlen
)
838 /* This glyph doesn't has an entry in Vglyph_table. */
839 if (! CHAR_VALID_P (src
->u
.ch
, 0))
843 coding
->src_multibyte
= 0;
847 len
= CHAR_STRING (src
->u
.ch
, workbuf
);
849 coding
->src_multibyte
= 1;
854 /* This glyph has an entry in Vglyph_table,
855 so process any alias before testing for simpleness. */
856 GLYPH_FOLLOW_ALIASES (tbase
, tlen
, g
);
858 if (GLYPH_SIMPLE_P (tbase
, tlen
, g
))
860 /* We set the multi-byte form of a character in G
861 (that should be an ASCII character) at
863 workbuf
[0] = FAST_GLYPH_CHAR (g
);
866 coding
->src_multibyte
= 0;
870 /* We have a string in Vglyph_table. */
871 len
= GLYPH_LENGTH (tbase
, g
);
872 buf
= GLYPH_STRING (tbase
, g
);
873 coding
->src_multibyte
= STRING_MULTIBYTE (tbase
[g
]);
877 coding
->source
= buf
;
878 coding
->destination
= dst
;
879 coding
->dst_bytes
= dst_end
- dst
;
880 encode_coding_object (coding
, Qnil
, 0, 0, 1, len
, Qnil
);
881 len
-= coding
->consumed
;
882 dst
+= coding
->produced
;
883 if (coding
->result
== CODING_RESULT_INSUFFICIENT_DST
)
884 /* The remaining output buffer is too short. We must
885 break the loop here without increasing SRC so that the
886 next call of this function starts from the same glyph. */
891 /* This is the case that a code of the range 0200..0237
892 exists in buf. We must just write out such a code. */
893 buf
+= coding
->consumed
;
901 *consumed
= src
- src_start
;
902 return (dst
- dst_start
);
907 write_glyphs (string
, len
)
908 register struct glyph
*string
;
911 int produced
, consumed
;
912 struct frame
*sf
= XFRAME (selected_frame
);
913 struct frame
*f
= updating_frame
? updating_frame
: sf
;
914 unsigned char conversion_buffer
[1024];
915 int conversion_buffer_size
= sizeof conversion_buffer
;
917 if (write_glyphs_hook
918 && ! FRAME_TERMCAP_P (f
))
920 (*write_glyphs_hook
) (string
, len
);
927 /* Don't dare write in last column of bottom line, if Auto-Wrap,
928 since that would scroll the whole frame on some terminals. */
931 && curY
+ 1 == FRAME_HEIGHT (sf
)
932 && (curX
+ len
) == FRAME_WIDTH (sf
))
939 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
941 terminal_coding
.mode
&= ~CODING_MODE_LAST_BLOCK
;
945 /* Identify a run of glyphs with the same face. */
946 int face_id
= string
->face_id
;
949 for (n
= 1; n
< len
; ++n
)
950 if (string
[n
].face_id
!= face_id
)
953 /* Turn appearance modes of the face of the run on. */
954 highlight_if_desired ();
955 turn_on_face (f
, face_id
);
959 /* We use a fixed size (1024 bytes) of conversion buffer.
960 Usually it is sufficient, but if not, we just repeat the
962 produced
= encode_terminal_code (string
, conversion_buffer
,
963 n
, conversion_buffer_size
,
967 fwrite (conversion_buffer
, 1, produced
, stdout
);
971 fwrite (conversion_buffer
, 1, produced
, termscript
);
978 /* Turn appearance modes off. */
979 turn_off_face (f
, face_id
);
980 turn_off_highlight ();
983 /* We may have to output some codes to terminate the writing. */
984 if (CODING_REQUIRE_FLUSHING (&terminal_coding
))
986 terminal_coding
.mode
|= CODING_MODE_LAST_BLOCK
;
987 terminal_coding
.source
= (unsigned char *) "";
988 terminal_coding
.destination
= conversion_buffer
;
989 terminal_coding
.dst_bytes
= conversion_buffer_size
;
990 encode_coding_object (&terminal_coding
, Qnil
, 0, 0, 0, 0, Qnil
);
991 if (terminal_coding
.produced
> 0)
993 fwrite (conversion_buffer
, 1, terminal_coding
.produced
, stdout
);
997 fwrite (conversion_buffer
, 1, terminal_coding
.produced
,
1005 /* If start is zero, insert blanks instead of a string at start */
1008 insert_glyphs (start
, len
)
1009 register struct glyph
*start
;
1013 struct glyph
*glyph
= NULL
;
1014 struct frame
*f
, *sf
;
1019 if (insert_glyphs_hook
)
1021 (*insert_glyphs_hook
) (start
, len
);
1025 sf
= XFRAME (selected_frame
);
1026 f
= updating_frame
? updating_frame
: sf
;
1028 if (TS_ins_multi_chars
)
1030 buf
= tparam (TS_ins_multi_chars
, 0, 0, len
);
1034 write_glyphs (start
, len
);
1040 /* The bit CODING_MODE_LAST_BLOCK should be set to 1 only at the tail. */
1041 terminal_coding
.mode
&= ~CODING_MODE_LAST_BLOCK
;
1044 int produced
, consumed
;
1045 unsigned char conversion_buffer
[1024];
1046 int conversion_buffer_size
= sizeof conversion_buffer
;
1048 OUTPUT1_IF (TS_ins_char
);
1051 conversion_buffer
[0] = SPACEGLYPH
;
1056 highlight_if_desired ();
1057 turn_on_face (f
, start
->face_id
);
1060 /* We must open sufficient space for a character which
1061 occupies more than one column. */
1062 while (len
&& CHAR_GLYPH_PADDING_P (*start
))
1064 OUTPUT1_IF (TS_ins_char
);
1069 /* This is the last glyph. */
1070 terminal_coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1072 /* The size of conversion buffer (1024 bytes) is surely
1073 sufficient for just one glyph. */
1074 produced
= encode_terminal_code (glyph
, conversion_buffer
, 1,
1075 conversion_buffer_size
, &consumed
);
1080 fwrite (conversion_buffer
, 1, produced
, stdout
);
1081 if (ferror (stdout
))
1084 fwrite (conversion_buffer
, 1, produced
, termscript
);
1087 OUTPUT1_IF (TS_pad_inserted_char
);
1090 turn_off_face (f
, glyph
->face_id
);
1091 turn_off_highlight ();
1105 if (delete_glyphs_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
1107 (*delete_glyphs_hook
) (n
);
1111 if (delete_in_insert_mode
)
1118 OUTPUT_IF (TS_delete_mode
);
1121 if (TS_del_multi_chars
)
1123 buf
= tparam (TS_del_multi_chars
, 0, 0, n
);
1128 for (i
= 0; i
< n
; i
++)
1129 OUTPUT1 (TS_del_char
);
1130 if (!delete_in_insert_mode
)
1131 OUTPUT_IF (TS_end_delete_mode
);
1134 /* Insert N lines at vpos VPOS. If N is negative, delete -N lines. */
1137 ins_del_lines (vpos
, n
)
1140 char *multi
= n
> 0 ? TS_ins_multi_lines
: TS_del_multi_lines
;
1141 char *single
= n
> 0 ? TS_ins_line
: TS_del_line
;
1142 char *scroll
= n
> 0 ? TS_rev_scroll
: TS_fwd_scroll
;
1145 register int i
= n
> 0 ? n
: -n
;
1148 if (ins_del_lines_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
1150 (*ins_del_lines_hook
) (vpos
, n
);
1154 sf
= XFRAME (selected_frame
);
1156 /* If the lines below the insertion are being pushed
1157 into the end of the window, this is the same as clearing;
1158 and we know the lines are already clear, since the matching
1159 deletion has already been done. So can ignore this. */
1160 /* If the lines below the deletion are blank lines coming
1161 out of the end of the window, don't bother,
1162 as there will be a matching inslines later that will flush them. */
1163 if (scroll_region_ok
&& vpos
+ i
>= specified_window
)
1165 if (!memory_below_frame
&& vpos
+ i
>= FRAME_HEIGHT (sf
))
1170 raw_cursor_to (vpos
, 0);
1171 background_highlight ();
1172 buf
= tparam (multi
, 0, 0, i
);
1178 raw_cursor_to (vpos
, 0);
1179 background_highlight ();
1187 set_scroll_region (vpos
, specified_window
);
1189 raw_cursor_to (specified_window
- 1, 0);
1191 raw_cursor_to (vpos
, 0);
1192 background_highlight ();
1194 OUTPUTL (scroll
, specified_window
- vpos
);
1195 set_scroll_region (0, specified_window
);
1198 if (!scroll_region_ok
&& memory_below_frame
&& n
< 0)
1200 cursor_to (FRAME_HEIGHT (sf
) + n
, 0);
1205 /* Compute cost of sending "str", in characters,
1206 not counting any line-dependent padding. */
1214 tputs (str
, 0, evalcost
);
1218 /* Compute cost of sending "str", in characters,
1219 counting any line-dependent padding at one line. */
1222 string_cost_one_line (str
)
1227 tputs (str
, 1, evalcost
);
1231 /* Compute per line amount of line-dependent padding,
1232 in tenths of characters. */
1240 tputs (str
, 0, evalcost
);
1243 tputs (str
, 10, evalcost
);
1248 /* char_ins_del_cost[n] is cost of inserting N characters.
1249 char_ins_del_cost[-n] is cost of deleting N characters.
1250 The length of this vector is based on max_frame_width. */
1252 int *char_ins_del_vector
;
1254 #define char_ins_del_cost(f) (&char_ins_del_vector[FRAME_WIDTH ((f))])
1259 calculate_ins_del_char_costs (frame
)
1262 int ins_startup_cost
, del_startup_cost
;
1263 int ins_cost_per_char
, del_cost_per_char
;
1267 if (TS_ins_multi_chars
)
1269 ins_cost_per_char
= 0;
1270 ins_startup_cost
= string_cost_one_line (TS_ins_multi_chars
);
1272 else if (TS_ins_char
|| TS_pad_inserted_char
1273 || (TS_insert_mode
&& TS_end_insert_mode
))
1275 ins_startup_cost
= (30 * (string_cost (TS_insert_mode
)
1276 + string_cost (TS_end_insert_mode
))) / 100;
1277 ins_cost_per_char
= (string_cost_one_line (TS_ins_char
)
1278 + string_cost_one_line (TS_pad_inserted_char
));
1282 ins_startup_cost
= 9999;
1283 ins_cost_per_char
= 0;
1286 if (TS_del_multi_chars
)
1288 del_cost_per_char
= 0;
1289 del_startup_cost
= string_cost_one_line (TS_del_multi_chars
);
1291 else if (TS_del_char
)
1293 del_startup_cost
= (string_cost (TS_delete_mode
)
1294 + string_cost (TS_end_delete_mode
));
1295 if (delete_in_insert_mode
)
1296 del_startup_cost
/= 2;
1297 del_cost_per_char
= string_cost_one_line (TS_del_char
);
1301 del_startup_cost
= 9999;
1302 del_cost_per_char
= 0;
1305 /* Delete costs are at negative offsets */
1306 p
= &char_ins_del_cost (frame
)[0];
1307 for (i
= FRAME_WIDTH (frame
); --i
>= 0;)
1308 *--p
= (del_startup_cost
+= del_cost_per_char
);
1310 /* Doing nothing is free */
1311 p
= &char_ins_del_cost (frame
)[0];
1314 /* Insert costs are at positive offsets */
1315 for (i
= FRAME_WIDTH (frame
); --i
>= 0;)
1316 *p
++ = (ins_startup_cost
+= ins_cost_per_char
);
1320 calculate_costs (frame
)
1323 register char *f
= (TS_set_scroll_region
1324 ? TS_set_scroll_region
1325 : TS_set_scroll_region_1
);
1327 FRAME_COST_BAUD_RATE (frame
) = baud_rate
;
1329 scroll_region_cost
= string_cost (f
);
1331 /* These variables are only used for terminal stuff. They are allocated
1332 once for the terminal frame of X-windows emacs, but not used afterwards.
1334 char_ins_del_vector (i.e., char_ins_del_cost) isn't used because
1335 X turns off char_ins_del_ok. */
1337 max_frame_height
= max (max_frame_height
, FRAME_HEIGHT (frame
));
1338 max_frame_width
= max (max_frame_width
, FRAME_WIDTH (frame
));
1342 if (char_ins_del_vector
!= 0)
1344 = (int *) xrealloc (char_ins_del_vector
,
1346 + 2 * max_frame_width
* sizeof (int)));
1349 = (int *) xmalloc (sizeof (int)
1350 + 2 * max_frame_width
* sizeof (int));
1352 bzero (char_ins_del_vector
, (sizeof (int)
1353 + 2 * max_frame_width
* sizeof (int)));
1355 if (f
&& (!TS_ins_line
&& !TS_del_line
))
1356 do_line_insertion_deletion_costs (frame
,
1357 TS_rev_scroll
, TS_ins_multi_lines
,
1358 TS_fwd_scroll
, TS_del_multi_lines
,
1361 do_line_insertion_deletion_costs (frame
,
1362 TS_ins_line
, TS_ins_multi_lines
,
1363 TS_del_line
, TS_del_multi_lines
,
1366 calculate_ins_del_char_costs (frame
);
1368 /* Don't use TS_repeat if its padding is worse than sending the chars */
1369 if (TS_repeat
&& per_line_cost (TS_repeat
) * baud_rate
< 9000)
1370 RPov
= string_cost (TS_repeat
);
1372 RPov
= FRAME_WIDTH (frame
) * 2;
1374 cmcostinit (); /* set up cursor motion costs */
1381 /* Termcap capability names that correspond directly to X keysyms.
1382 Some of these (marked "terminfo") aren't supplied by old-style
1383 (Berkeley) termcap entries. They're listed in X keysym order;
1384 except we put the keypad keys first, so that if they clash with
1385 other keys (as on the IBM PC keyboard) they get overridden.
1388 static struct fkey_table keys
[] =
1390 {"kh", "home"}, /* termcap */
1391 {"kl", "left"}, /* termcap */
1392 {"ku", "up"}, /* termcap */
1393 {"kr", "right"}, /* termcap */
1394 {"kd", "down"}, /* termcap */
1395 {"%8", "prior"}, /* terminfo */
1396 {"%5", "next"}, /* terminfo */
1397 {"@7", "end"}, /* terminfo */
1398 {"@1", "begin"}, /* terminfo */
1399 {"*6", "select"}, /* terminfo */
1400 {"%9", "print"}, /* terminfo */
1401 {"@4", "execute"}, /* terminfo --- actually the `command' key */
1403 * "insert" --- see below
1405 {"&8", "undo"}, /* terminfo */
1406 {"%0", "redo"}, /* terminfo */
1407 {"%7", "menu"}, /* terminfo --- actually the `options' key */
1408 {"@0", "find"}, /* terminfo */
1409 {"@2", "cancel"}, /* terminfo */
1410 {"%1", "help"}, /* terminfo */
1412 * "break" goes here, but can't be reliably intercepted with termcap
1414 {"&4", "reset"}, /* terminfo --- actually `restart' */
1416 * "system" and "user" --- no termcaps
1418 {"kE", "clearline"}, /* terminfo */
1419 {"kA", "insertline"}, /* terminfo */
1420 {"kL", "deleteline"}, /* terminfo */
1421 {"kI", "insertchar"}, /* terminfo */
1422 {"kD", "deletechar"}, /* terminfo */
1423 {"kB", "backtab"}, /* terminfo */
1425 * "kp_backtab", "kp-space", "kp-tab" --- no termcaps
1427 {"@8", "kp-enter"}, /* terminfo */
1429 * "kp-f1", "kp-f2", "kp-f3" "kp-f4",
1430 * "kp-multiply", "kp-add", "kp-separator",
1431 * "kp-subtract", "kp-decimal", "kp-divide", "kp-0";
1432 * --- no termcaps for any of these.
1434 {"K4", "kp-1"}, /* terminfo */
1436 * "kp-2" --- no termcap
1438 {"K5", "kp-3"}, /* terminfo */
1440 * "kp-4" --- no termcap
1442 {"K2", "kp-5"}, /* terminfo */
1444 * "kp-6" --- no termcap
1446 {"K1", "kp-7"}, /* terminfo */
1448 * "kp-8" --- no termcap
1450 {"K3", "kp-9"}, /* terminfo */
1452 * "kp-equal" --- no termcap
1465 static char **term_get_fkeys_arg
;
1466 static Lisp_Object
term_get_fkeys_1 ();
1468 /* Find the escape codes sent by the function keys for Vfunction_key_map.
1469 This function scans the termcap function key sequence entries, and
1470 adds entries to Vfunction_key_map for each function key it finds. */
1473 term_get_fkeys (address
)
1476 /* We run the body of the function (term_get_fkeys_1) and ignore all Lisp
1477 errors during the call. The only errors should be from Fdefine_key
1478 when given a key sequence containing an invalid prefix key. If the
1479 termcap defines function keys which use a prefix that is already bound
1480 to a command by the default bindings, we should silently ignore that
1481 function key specification, rather than giving the user an error and
1482 refusing to run at all on such a terminal. */
1484 extern Lisp_Object
Fidentity ();
1485 term_get_fkeys_arg
= address
;
1486 internal_condition_case (term_get_fkeys_1
, Qerror
, Fidentity
);
1494 char **address
= term_get_fkeys_arg
;
1496 /* This can happen if CANNOT_DUMP or with strange options. */
1498 Vfunction_key_map
= Fmake_sparse_keymap (Qnil
);
1500 for (i
= 0; i
< (sizeof (keys
)/sizeof (keys
[0])); i
++)
1502 char *sequence
= tgetstr (keys
[i
].cap
, address
);
1504 Fdefine_key (Vfunction_key_map
, build_string (sequence
),
1505 Fmake_vector (make_number (1),
1506 intern (keys
[i
].name
)));
1509 /* The uses of the "k0" capability are inconsistent; sometimes it
1510 describes F10, whereas othertimes it describes F0 and "k;" describes F10.
1511 We will attempt to politely accommodate both systems by testing for
1512 "k;", and if it is present, assuming that "k0" denotes F0, otherwise F10.
1515 char *k_semi
= tgetstr ("k;", address
);
1516 char *k0
= tgetstr ("k0", address
);
1517 char *k0_name
= "f10";
1522 /* Define f0 first, so that f10 takes precedence in case the
1523 key sequences happens to be the same. */
1524 Fdefine_key (Vfunction_key_map
, build_string (k0
),
1525 Fmake_vector (make_number (1), intern ("f0")));
1526 Fdefine_key (Vfunction_key_map
, build_string (k_semi
),
1527 Fmake_vector (make_number (1), intern ("f10")));
1530 Fdefine_key (Vfunction_key_map
, build_string (k0
),
1531 Fmake_vector (make_number (1), intern (k0_name
)));
1534 /* Set up cookies for numbered function keys above f10. */
1536 char fcap
[3], fkey
[4];
1538 fcap
[0] = 'F'; fcap
[2] = '\0';
1539 for (i
= 11; i
< 64; i
++)
1542 fcap
[1] = '1' + i
- 11;
1544 fcap
[1] = 'A' + i
- 20;
1546 fcap
[1] = 'a' + i
- 46;
1549 char *sequence
= tgetstr (fcap
, address
);
1552 sprintf (fkey
, "f%d", i
);
1553 Fdefine_key (Vfunction_key_map
, build_string (sequence
),
1554 Fmake_vector (make_number (1),
1562 * Various mappings to try and get a better fit.
1565 #define CONDITIONAL_REASSIGN(cap1, cap2, sym) \
1566 if (!tgetstr (cap1, address)) \
1568 char *sequence = tgetstr (cap2, address); \
1570 Fdefine_key (Vfunction_key_map, build_string (sequence), \
1571 Fmake_vector (make_number (1), \
1575 /* if there's no key_next keycap, map key_npage to `next' keysym */
1576 CONDITIONAL_REASSIGN ("%5", "kN", "next");
1577 /* if there's no key_prev keycap, map key_ppage to `previous' keysym */
1578 CONDITIONAL_REASSIGN ("%8", "kP", "prior");
1579 /* if there's no key_dc keycap, map key_ic to `insert' keysym */
1580 CONDITIONAL_REASSIGN ("kD", "kI", "insert");
1581 /* if there's no key_end keycap, map key_ll to 'end' keysym */
1582 CONDITIONAL_REASSIGN ("@7", "kH", "end");
1584 /* IBM has their own non-standard dialect of terminfo.
1585 If the standard name isn't found, try the IBM name. */
1586 CONDITIONAL_REASSIGN ("kB", "KO", "backtab");
1587 CONDITIONAL_REASSIGN ("@4", "kJ", "execute"); /* actually "action" */
1588 CONDITIONAL_REASSIGN ("@4", "kc", "execute"); /* actually "command" */
1589 CONDITIONAL_REASSIGN ("%7", "ki", "menu");
1590 CONDITIONAL_REASSIGN ("@7", "kw", "end");
1591 CONDITIONAL_REASSIGN ("F1", "k<", "f11");
1592 CONDITIONAL_REASSIGN ("F2", "k>", "f12");
1593 CONDITIONAL_REASSIGN ("%1", "kq", "help");
1594 CONDITIONAL_REASSIGN ("*6", "kU", "select");
1595 #undef CONDITIONAL_REASSIGN
1602 /***********************************************************************
1603 Character Display Information
1604 ***********************************************************************/
1606 static void append_glyph
P_ ((struct it
*));
1609 /* Append glyphs to IT's glyph_row. Called from produce_glyphs for
1610 terminal frames if IT->glyph_row != NULL. IT->c is the character
1611 for which to produce glyphs; IT->face_id contains the character's
1612 face. Padding glyphs are appended if IT->c has a IT->pixel_width >
1619 struct glyph
*glyph
, *end
;
1622 xassert (it
->glyph_row
);
1623 glyph
= (it
->glyph_row
->glyphs
[it
->area
]
1624 + it
->glyph_row
->used
[it
->area
]);
1625 end
= it
->glyph_row
->glyphs
[1 + it
->area
];
1628 i
< it
->pixel_width
&& glyph
< end
;
1631 glyph
->type
= CHAR_GLYPH
;
1632 glyph
->pixel_width
= 1;
1633 glyph
->u
.ch
= it
->c
;
1634 glyph
->face_id
= it
->face_id
;
1635 glyph
->padding_p
= i
> 0;
1636 glyph
->charpos
= CHARPOS (it
->position
);
1637 glyph
->object
= it
->object
;
1639 ++it
->glyph_row
->used
[it
->area
];
1645 /* Produce glyphs for the display element described by IT. The
1646 function fills output fields of IT with pixel information like the
1647 pixel width and height of a character, and maybe produces glyphs at
1648 the same time if IT->glyph_row is non-null. See the explanation of
1649 struct display_iterator in dispextern.h for an overview. */
1655 /* If a hook is installed, let it do the work. */
1656 xassert (it
->what
== IT_CHARACTER
1657 || it
->what
== IT_COMPOSITION
1658 || it
->what
== IT_IMAGE
1659 || it
->what
== IT_STRETCH
);
1661 /* Nothing but characters are supported on terminal frames. For a
1662 composition sequence, it->c is the first character of the
1664 xassert (it
->what
== IT_CHARACTER
1665 || it
->what
== IT_COMPOSITION
);
1667 if (it
->c
>= 040 && it
->c
< 0177)
1669 it
->pixel_width
= it
->nglyphs
= 1;
1673 else if (it
->c
== '\n')
1674 it
->pixel_width
= it
->nglyphs
= 0;
1675 else if (it
->c
== '\t')
1677 int absolute_x
= (it
->current_x
1678 + it
->continuation_lines_width
);
1680 = (((1 + absolute_x
+ it
->tab_width
- 1)
1685 /* If part of the TAB has been displayed on the previous line
1686 which is continued now, continuation_lines_width will have
1687 been incremented already by the part that fitted on the
1688 continued line. So, we will get the right number of spaces
1690 nspaces
= next_tab_x
- absolute_x
;
1697 it
->pixel_width
= it
->len
= 1;
1705 it
->pixel_width
= nspaces
;
1706 it
->nglyphs
= nspaces
;
1708 else if (SINGLE_BYTE_CHAR_P (it
->c
))
1710 /* Coming here means that it->c is from display table, thus we
1711 must send the code as is to the terminal. Although there's
1712 no way to know how many columns it occupies on a screen, it
1713 is a good assumption that a single byte code has 1-column
1715 it
->pixel_width
= it
->nglyphs
= 1;
1721 it
->pixel_width
= CHAR_WIDTH (it
->c
);
1722 it
->nglyphs
= it
->pixel_width
;
1728 /* Advance current_x by the pixel width as a convenience for
1730 if (it
->area
== TEXT_AREA
)
1731 it
->current_x
+= it
->pixel_width
;
1732 it
->ascent
= it
->max_ascent
= it
->phys_ascent
= it
->max_phys_ascent
= 0;
1733 it
->descent
= it
->max_descent
= it
->phys_descent
= it
->max_phys_descent
= 1;
1737 /* Get information about special display element WHAT in an
1738 environment described by IT. WHAT is one of IT_TRUNCATION or
1739 IT_CONTINUATION. Maybe produce glyphs for WHAT if IT has a
1740 non-null glyph_row member. This function ensures that fields like
1741 face_id, c, len of IT are left untouched. */
1744 produce_special_glyphs (it
, what
)
1746 enum display_element_type what
;
1752 temp_it
.what
= IT_CHARACTER
;
1754 temp_it
.object
= make_number (0);
1755 bzero (&temp_it
.current
, sizeof temp_it
.current
);
1757 if (what
== IT_CONTINUATION
)
1759 /* Continuation glyph. */
1761 && INTEGERP (DISP_CONTINUE_GLYPH (it
->dp
))
1762 && GLYPH_CHAR_VALID_P (XINT (DISP_CONTINUE_GLYPH (it
->dp
))))
1764 temp_it
.c
= FAST_GLYPH_CHAR (XINT (DISP_CONTINUE_GLYPH (it
->dp
)));
1765 temp_it
.len
= CHAR_BYTES (temp_it
.c
);
1770 produce_glyphs (&temp_it
);
1771 it
->pixel_width
= temp_it
.pixel_width
;
1772 it
->nglyphs
= temp_it
.pixel_width
;
1774 else if (what
== IT_TRUNCATION
)
1776 /* Truncation glyph. */
1778 && INTEGERP (DISP_TRUNC_GLYPH (it
->dp
))
1779 && GLYPH_CHAR_VALID_P (XINT (DISP_TRUNC_GLYPH (it
->dp
))))
1781 temp_it
.c
= FAST_GLYPH_CHAR (XINT (DISP_TRUNC_GLYPH (it
->dp
)));
1782 temp_it
.len
= CHAR_BYTES (temp_it
.c
);
1787 produce_glyphs (&temp_it
);
1788 it
->pixel_width
= temp_it
.pixel_width
;
1789 it
->nglyphs
= temp_it
.pixel_width
;
1796 /* Return an estimation of the pixel height of mode or top lines on
1797 frame F. FACE_ID specifies what line's height to estimate. */
1800 estimate_mode_line_height (f
, face_id
)
1802 enum face_id face_id
;
1804 if (estimate_mode_line_height_hook
)
1805 return estimate_mode_line_height_hook (f
, face_id
);
1812 /***********************************************************************
1814 ***********************************************************************/
1816 /* Value is non-zero if attribute ATTR may be used. ATTR should be
1817 one of the enumerators from enum no_color_bit, or a bit set built
1818 from them. Some display attributes may not be used together with
1819 color; the termcap capability `NC' specifies which ones. */
1821 #define MAY_USE_WITH_COLORS_P(ATTR) \
1822 (TN_max_colors > 0 \
1823 ? (TN_no_color_video & (ATTR)) == 0 \
1826 /* Turn appearances of face FACE_ID on tty frame F on. */
1829 turn_on_face (f
, face_id
)
1833 struct face
*face
= FACE_FROM_ID (f
, face_id
);
1834 long fg
= face
->foreground
;
1835 long bg
= face
->background
;
1837 /* Do this first because TS_end_standout_mode may be the same
1838 as TS_exit_attribute_mode, which turns all appearances off. */
1839 if (MAY_USE_WITH_COLORS_P (NC_REVERSE
))
1841 if (TN_max_colors
> 0)
1843 if (fg
>= 0 && bg
>= 0)
1845 /* If the terminal supports colors, we can set them
1846 below without using reverse video. The face's fg
1847 and bg colors are set as they should appear on
1848 the screen, i.e. they take the inverse-video'ness
1849 of the face already into account. */
1851 else if (inverse_video
)
1853 if (fg
== FACE_TTY_DEFAULT_FG_COLOR
1854 || bg
== FACE_TTY_DEFAULT_BG_COLOR
)
1855 toggle_highlight ();
1859 if (fg
== FACE_TTY_DEFAULT_BG_COLOR
1860 || bg
== FACE_TTY_DEFAULT_FG_COLOR
)
1861 toggle_highlight ();
1866 /* If we can't display colors, use reverse video
1867 if the face specifies that. */
1870 if (fg
== FACE_TTY_DEFAULT_FG_COLOR
1871 || bg
== FACE_TTY_DEFAULT_BG_COLOR
)
1872 toggle_highlight ();
1876 if (fg
== FACE_TTY_DEFAULT_BG_COLOR
1877 || bg
== FACE_TTY_DEFAULT_FG_COLOR
)
1878 toggle_highlight ();
1883 if (face
->tty_bold_p
)
1885 if (MAY_USE_WITH_COLORS_P (NC_BOLD
))
1886 OUTPUT1_IF (TS_enter_bold_mode
);
1888 else if (face
->tty_dim_p
)
1889 if (MAY_USE_WITH_COLORS_P (NC_DIM
))
1890 OUTPUT1_IF (TS_enter_dim_mode
);
1892 /* Alternate charset and blinking not yet used. */
1893 if (face
->tty_alt_charset_p
1894 && MAY_USE_WITH_COLORS_P (NC_ALT_CHARSET
))
1895 OUTPUT1_IF (TS_enter_alt_charset_mode
);
1897 if (face
->tty_blinking_p
1898 && MAY_USE_WITH_COLORS_P (NC_BLINK
))
1899 OUTPUT1_IF (TS_enter_blink_mode
);
1901 if (face
->tty_underline_p
&& MAY_USE_WITH_COLORS_P (NC_UNDERLINE
))
1902 OUTPUT1_IF (TS_enter_underline_mode
);
1904 if (TN_max_colors
> 0)
1908 if (fg
>= 0 && TS_set_foreground
)
1910 p
= tparam (TS_set_foreground
, NULL
, 0, (int) fg
);
1915 if (bg
>= 0 && TS_set_background
)
1917 p
= tparam (TS_set_background
, NULL
, 0, (int) bg
);
1925 /* Turn off appearances of face FACE_ID on tty frame F. */
1928 turn_off_face (f
, face_id
)
1932 struct face
*face
= FACE_FROM_ID (f
, face_id
);
1934 xassert (face
!= NULL
);
1936 if (TS_exit_attribute_mode
)
1938 /* Capability "me" will turn off appearance modes double-bright,
1939 half-bright, reverse-video, standout, underline. It may or
1940 may not turn off alt-char-mode. */
1941 if (face
->tty_bold_p
1943 || face
->tty_reverse_p
1944 || face
->tty_alt_charset_p
1945 || face
->tty_blinking_p
1946 || face
->tty_underline_p
)
1948 OUTPUT1_IF (TS_exit_attribute_mode
);
1949 if (strcmp (TS_exit_attribute_mode
, TS_end_standout_mode
) == 0)
1953 if (face
->tty_alt_charset_p
)
1954 OUTPUT_IF (TS_exit_alt_charset_mode
);
1958 /* If we don't have "me" we can only have those appearances
1959 that have exit sequences defined. */
1960 if (face
->tty_alt_charset_p
)
1961 OUTPUT_IF (TS_exit_alt_charset_mode
);
1963 if (face
->tty_underline_p
)
1964 OUTPUT_IF (TS_exit_underline_mode
);
1967 /* Switch back to default colors. */
1968 if (TN_max_colors
> 0
1969 && ((face
->foreground
!= FACE_TTY_DEFAULT_COLOR
1970 && face
->foreground
!= FACE_TTY_DEFAULT_FG_COLOR
)
1971 || (face
->background
!= FACE_TTY_DEFAULT_COLOR
1972 && face
->background
!= FACE_TTY_DEFAULT_BG_COLOR
)))
1973 OUTPUT1_IF (TS_orig_pair
);
1977 /* Return non-zero if the terminal is capable to display colors. */
1979 DEFUN ("tty-display-color-p", Ftty_display_color_p
, Stty_display_color_p
,
1981 doc
: /* Return non-nil if TTY can display colors on DISPLAY. */)
1983 Lisp_Object display
;
1985 return TN_max_colors
> 0 ? Qt
: Qnil
;
1988 /* Return the number of supported colors. */
1989 DEFUN ("tty-display-color-cells", Ftty_display_color_cells
,
1990 Stty_display_color_cells
, 0, 1, 0,
1991 doc
: /* Return the number of colors supported by TTY on DISPLAY. */)
1993 Lisp_Object display
;
1995 return make_number (TN_max_colors
);
2000 /* Save or restore the default color-related capabilities of this
2003 tty_default_color_capabilities (save
)
2007 *default_orig_pair
, *default_set_foreground
, *default_set_background
;
2008 static int default_max_colors
, default_max_pairs
, default_no_color_video
;
2012 if (default_orig_pair
)
2013 xfree (default_orig_pair
);
2014 default_orig_pair
= TS_orig_pair
? xstrdup (TS_orig_pair
) : NULL
;
2016 if (default_set_foreground
)
2017 xfree (default_set_foreground
);
2018 default_set_foreground
= TS_set_foreground
? xstrdup (TS_set_foreground
)
2021 if (default_set_background
)
2022 xfree (default_set_background
);
2023 default_set_background
= TS_set_background
? xstrdup (TS_set_background
)
2026 default_max_colors
= TN_max_colors
;
2027 default_max_pairs
= TN_max_pairs
;
2028 default_no_color_video
= TN_no_color_video
;
2032 TS_orig_pair
= default_orig_pair
;
2033 TS_set_foreground
= default_set_foreground
;
2034 TS_set_background
= default_set_background
;
2035 TN_max_colors
= default_max_colors
;
2036 TN_max_pairs
= default_max_pairs
;
2037 TN_no_color_video
= default_no_color_video
;
2041 /* Setup one of the standard tty color schemes according to MODE.
2042 MODE's value is generally the number of colors which we want to
2043 support; zero means set up for the default capabilities, the ones
2044 we saw at term_init time; -1 means turn off color support. */
2046 tty_setup_colors (mode
)
2051 case -1: /* no colors at all */
2054 TN_no_color_video
= 0;
2055 TS_set_foreground
= TS_set_background
= TS_orig_pair
= NULL
;
2057 case 0: /* default colors, if any */
2059 tty_default_color_capabilities (0);
2061 case 8: /* 8 standard ANSI colors */
2062 TS_orig_pair
= "\033[0m";
2064 TS_set_foreground
= "\033[3%p1%dm";
2065 TS_set_background
= "\033[4%p1%dm";
2067 TS_set_foreground
= "\033[3%dm";
2068 TS_set_background
= "\033[4%dm";
2072 TN_no_color_video
= 0;
2078 set_tty_color_mode (f
, val
)
2082 Lisp_Object color_mode_spec
, current_mode_spec
;
2083 Lisp_Object color_mode
, current_mode
;
2085 extern Lisp_Object Qtty_color_mode
;
2086 Lisp_Object tty_color_mode_alist
;
2088 tty_color_mode_alist
= Fintern_soft (build_string ("tty-color-mode-alist"),
2095 if (NILP (tty_color_mode_alist
))
2096 color_mode_spec
= Qnil
;
2098 color_mode_spec
= Fassq (val
, XSYMBOL (tty_color_mode_alist
)->value
);
2099 current_mode_spec
= assq_no_quit (Qtty_color_mode
, f
->param_alist
);
2101 if (CONSP (color_mode_spec
))
2102 color_mode
= XCDR (color_mode_spec
);
2106 if (CONSP (current_mode_spec
))
2107 current_mode
= XCDR (current_mode_spec
);
2109 current_mode
= Qnil
;
2110 if (NATNUMP (color_mode
))
2111 mode
= XINT (color_mode
);
2113 mode
= 0; /* meaning default */
2114 if (NATNUMP (current_mode
))
2115 old_mode
= XINT (current_mode
);
2119 if (mode
!= old_mode
)
2121 tty_setup_colors (mode
);
2122 /* This recomputes all the faces given the new color
2124 call0 (intern ("tty-set-up-initial-frame-faces"));
2129 #endif /* !WINDOWSNT */
2132 /***********************************************************************
2134 ***********************************************************************/
2137 term_init (terminal_type
)
2138 char *terminal_type
;
2141 char **address
= &area
;
2145 struct frame
*sf
= XFRAME (selected_frame
);
2148 initialize_w32_display ();
2152 area
= (char *) xmalloc (2044);
2157 FrameRows
= FRAME_HEIGHT (sf
);
2158 FrameCols
= FRAME_WIDTH (sf
);
2159 specified_window
= FRAME_HEIGHT (sf
);
2161 delete_in_insert_mode
= 1;
2164 scroll_region_ok
= 0;
2166 /* Seems to insert lines when it's not supposed to, messing
2167 up the display. In doing a trace, it didn't seem to be
2168 called much, so I don't think we're losing anything by
2171 line_ins_del_ok
= 0;
2172 char_ins_del_ok
= 1;
2176 FRAME_CAN_HAVE_SCROLL_BARS (sf
) = 0;
2177 FRAME_VERTICAL_SCROLL_BAR_TYPE (sf
) = vertical_scroll_bar_none
;
2178 TN_max_colors
= 16; /* Required to be non-zero for tty-display-color-p */
2181 #else /* not WINDOWSNT */
2185 status
= tgetent (buffer
, terminal_type
);
2189 fatal ("Cannot open terminfo database file");
2191 fatal ("Cannot open termcap database file");
2197 fatal ("Terminal type %s is not defined.\n\
2198 If that is not the actual type of terminal you have,\n\
2199 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2200 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2201 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
2204 fatal ("Terminal type %s is not defined.\n\
2205 If that is not the actual type of terminal you have,\n\
2206 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2207 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2208 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
2213 area
= (char *) xmalloc (2044);
2215 area
= (char *) xmalloc (strlen (buffer
));
2216 #endif /* not TERMINFO */
2220 TS_ins_line
= tgetstr ("al", address
);
2221 TS_ins_multi_lines
= tgetstr ("AL", address
);
2222 TS_bell
= tgetstr ("bl", address
);
2223 BackTab
= tgetstr ("bt", address
);
2224 TS_clr_to_bottom
= tgetstr ("cd", address
);
2225 TS_clr_line
= tgetstr ("ce", address
);
2226 TS_clr_frame
= tgetstr ("cl", address
);
2227 ColPosition
= NULL
; /* tgetstr ("ch", address); */
2228 AbsPosition
= tgetstr ("cm", address
);
2229 CR
= tgetstr ("cr", address
);
2230 TS_set_scroll_region
= tgetstr ("cs", address
);
2231 TS_set_scroll_region_1
= tgetstr ("cS", address
);
2232 RowPosition
= tgetstr ("cv", address
);
2233 TS_del_char
= tgetstr ("dc", address
);
2234 TS_del_multi_chars
= tgetstr ("DC", address
);
2235 TS_del_line
= tgetstr ("dl", address
);
2236 TS_del_multi_lines
= tgetstr ("DL", address
);
2237 TS_delete_mode
= tgetstr ("dm", address
);
2238 TS_end_delete_mode
= tgetstr ("ed", address
);
2239 TS_end_insert_mode
= tgetstr ("ei", address
);
2240 Home
= tgetstr ("ho", address
);
2241 TS_ins_char
= tgetstr ("ic", address
);
2242 TS_ins_multi_chars
= tgetstr ("IC", address
);
2243 TS_insert_mode
= tgetstr ("im", address
);
2244 TS_pad_inserted_char
= tgetstr ("ip", address
);
2245 TS_end_keypad_mode
= tgetstr ("ke", address
);
2246 TS_keypad_mode
= tgetstr ("ks", address
);
2247 LastLine
= tgetstr ("ll", address
);
2248 Right
= tgetstr ("nd", address
);
2249 Down
= tgetstr ("do", address
);
2251 Down
= tgetstr ("nl", address
); /* Obsolete name for "do" */
2253 /* VMS puts a carriage return before each linefeed,
2254 so it is not safe to use linefeeds. */
2255 if (Down
&& Down
[0] == '\n' && Down
[1] == '\0')
2258 if (tgetflag ("bs"))
2259 Left
= "\b"; /* can't possibly be longer! */
2260 else /* (Actually, "bs" is obsolete...) */
2261 Left
= tgetstr ("le", address
);
2263 Left
= tgetstr ("bc", address
); /* Obsolete name for "le" */
2264 TS_pad_char
= tgetstr ("pc", address
);
2265 TS_repeat
= tgetstr ("rp", address
);
2266 TS_end_standout_mode
= tgetstr ("se", address
);
2267 TS_fwd_scroll
= tgetstr ("sf", address
);
2268 TS_standout_mode
= tgetstr ("so", address
);
2269 TS_rev_scroll
= tgetstr ("sr", address
);
2270 Wcm
.cm_tab
= tgetstr ("ta", address
);
2271 TS_end_termcap_modes
= tgetstr ("te", address
);
2272 TS_termcap_modes
= tgetstr ("ti", address
);
2273 Up
= tgetstr ("up", address
);
2274 TS_visible_bell
= tgetstr ("vb", address
);
2275 TS_cursor_normal
= tgetstr ("ve", address
);
2276 TS_cursor_visible
= tgetstr ("vs", address
);
2277 TS_cursor_invisible
= tgetstr ("vi", address
);
2278 TS_set_window
= tgetstr ("wi", address
);
2280 TS_enter_underline_mode
= tgetstr ("us", address
);
2281 TS_exit_underline_mode
= tgetstr ("ue", address
);
2282 TS_enter_bold_mode
= tgetstr ("md", address
);
2283 TS_enter_dim_mode
= tgetstr ("mh", address
);
2284 TS_enter_blink_mode
= tgetstr ("mb", address
);
2285 TS_enter_reverse_mode
= tgetstr ("mr", address
);
2286 TS_enter_alt_charset_mode
= tgetstr ("as", address
);
2287 TS_exit_alt_charset_mode
= tgetstr ("ae", address
);
2288 TS_exit_attribute_mode
= tgetstr ("me", address
);
2290 MultiUp
= tgetstr ("UP", address
);
2291 MultiDown
= tgetstr ("DO", address
);
2292 MultiLeft
= tgetstr ("LE", address
);
2293 MultiRight
= tgetstr ("RI", address
);
2295 /* SVr4/ANSI color suppert. If "op" isn't available, don't support
2296 color because we can't switch back to the default foreground and
2298 TS_orig_pair
= tgetstr ("op", address
);
2301 TS_set_foreground
= tgetstr ("AF", address
);
2302 TS_set_background
= tgetstr ("AB", address
);
2303 if (!TS_set_foreground
)
2306 TS_set_foreground
= tgetstr ("Sf", address
);
2307 TS_set_background
= tgetstr ("Sb", address
);
2310 TN_max_colors
= tgetnum ("Co");
2311 TN_max_pairs
= tgetnum ("pa");
2313 TN_no_color_video
= tgetnum ("NC");
2314 if (TN_no_color_video
== -1)
2315 TN_no_color_video
= 0;
2318 tty_default_color_capabilities (1);
2320 MagicWrap
= tgetflag ("xn");
2321 /* Since we make MagicWrap terminals look like AutoWrap, we need to have
2322 the former flag imply the latter. */
2323 AutoWrap
= MagicWrap
|| tgetflag ("am");
2324 memory_below_frame
= tgetflag ("db");
2325 TF_hazeltine
= tgetflag ("hz");
2326 must_write_spaces
= tgetflag ("in");
2327 meta_key
= tgetflag ("km") || tgetflag ("MT");
2328 TF_insmode_motion
= tgetflag ("mi");
2329 TF_standout_motion
= tgetflag ("ms");
2330 TF_underscore
= tgetflag ("ul");
2331 TF_teleray
= tgetflag ("xt");
2333 term_get_fkeys (address
);
2335 /* Get frame size from system, or else from termcap. */
2338 get_frame_size (&width
, &height
);
2339 FRAME_WIDTH (sf
) = width
;
2340 FRAME_HEIGHT (sf
) = height
;
2343 if (FRAME_WIDTH (sf
) <= 0)
2344 SET_FRAME_WIDTH (sf
, tgetnum ("co"));
2346 /* Keep width and external_width consistent */
2347 SET_FRAME_WIDTH (sf
, FRAME_WIDTH (sf
));
2348 if (FRAME_HEIGHT (sf
) <= 0)
2349 FRAME_HEIGHT (sf
) = tgetnum ("li");
2351 if (FRAME_HEIGHT (sf
) < 3 || FRAME_WIDTH (sf
) < 3)
2352 fatal ("Screen size %dx%d is too small",
2353 FRAME_HEIGHT (sf
), FRAME_WIDTH (sf
));
2355 min_padding_speed
= tgetnum ("pb");
2356 TabWidth
= tgetnum ("tw");
2359 /* These capabilities commonly use ^J.
2360 I don't know why, but sending them on VMS does not work;
2361 it causes following spaces to be lost, sometimes.
2362 For now, the simplest fix is to avoid using these capabilities ever. */
2363 if (Down
&& Down
[0] == '\n')
2371 TS_fwd_scroll
= Down
;
2373 PC
= TS_pad_char
? *TS_pad_char
: 0;
2378 /* Turned off since /etc/termcap seems to have :ta= for most terminals
2379 and newer termcap doc does not seem to say there is a default.
2384 /* We don't support standout modes that use `magic cookies', so
2385 turn off any that do. */
2386 if (TS_standout_mode
&& tgetnum ("sg") >= 0)
2388 TS_standout_mode
= 0;
2389 TS_end_standout_mode
= 0;
2391 if (TS_enter_underline_mode
&& tgetnum ("ug") >= 0)
2393 TS_enter_underline_mode
= 0;
2394 TS_exit_underline_mode
= 0;
2397 /* If there's no standout mode, try to use underlining instead. */
2398 if (TS_standout_mode
== 0)
2400 TS_standout_mode
= TS_enter_underline_mode
;
2401 TS_end_standout_mode
= TS_exit_underline_mode
;
2404 /* If no `se' string, try using a `me' string instead.
2405 If that fails, we can't use standout mode at all. */
2406 if (TS_end_standout_mode
== 0)
2408 char *s
= tgetstr ("me", address
);
2410 TS_end_standout_mode
= s
;
2412 TS_standout_mode
= 0;
2418 /* We can't support standout mode, because it uses magic cookies. */
2419 TS_standout_mode
= 0;
2420 /* But that means we cannot rely on ^M to go to column zero! */
2422 /* LF can't be trusted either -- can alter hpos */
2423 /* if move at column 0 thru a line with TS_standout_mode */
2427 /* Special handling for certain terminal types known to need it */
2429 if (!strcmp (terminal_type
, "supdup"))
2431 memory_below_frame
= 1;
2432 Wcm
.cm_losewrap
= 1;
2434 if (!strncmp (terminal_type
, "c10", 3)
2435 || !strcmp (terminal_type
, "perq"))
2437 /* Supply a makeshift :wi string.
2438 This string is not valid in general since it works only
2439 for windows starting at the upper left corner;
2440 but that is all Emacs uses.
2442 This string works only if the frame is using
2443 the top of the video memory, because addressing is memory-relative.
2444 So first check the :ti string to see if that is true.
2446 It would be simpler if the :wi string could go in the termcap
2447 entry, but it can't because it is not fully valid.
2448 If it were in the termcap entry, it would confuse other programs. */
2451 p
= TS_termcap_modes
;
2452 while (*p
&& strcmp (p
, "\033v "))
2455 TS_set_window
= "\033v%C %C %C %C ";
2457 /* Termcap entry often fails to have :in: flag */
2458 must_write_spaces
= 1;
2459 /* :ti string typically fails to have \E^G! in it */
2460 /* This limits scope of insert-char to one line. */
2461 strcpy (area
, TS_termcap_modes
);
2462 strcat (area
, "\033\007!");
2463 TS_termcap_modes
= area
;
2464 area
+= strlen (area
) + 1;
2466 /* Change all %+ parameters to %C, to handle
2467 values above 96 correctly for the C100. */
2470 if (p
[0] == '%' && p
[1] == '+')
2476 FrameRows
= FRAME_HEIGHT (sf
);
2477 FrameCols
= FRAME_WIDTH (sf
);
2478 specified_window
= FRAME_HEIGHT (sf
);
2480 if (Wcm_init () == -1) /* can't do cursor motion */
2482 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2483 It lacks the ability to position the cursor.\n\
2484 If that is not the actual type of terminal you have, use either the\n\
2485 DCL command `SET TERMINAL/DEVICE= ...' for DEC-compatible terminals,\n\
2486 or `define EMACS_TERM \"terminal type\"' for non-DEC terminals.",
2490 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2491 It lacks the ability to position the cursor.\n\
2492 If that is not the actual type of terminal you have,\n\
2493 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2494 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2495 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
2497 # else /* TERMCAP */
2498 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2499 It lacks the ability to position the cursor.\n\
2500 If that is not the actual type of terminal you have,\n\
2501 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2502 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2503 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
2505 # endif /* TERMINFO */
2507 if (FRAME_HEIGHT (sf
) <= 0
2508 || FRAME_WIDTH (sf
) <= 0)
2509 fatal ("The frame size has not been specified");
2511 delete_in_insert_mode
2512 = TS_delete_mode
&& TS_insert_mode
2513 && !strcmp (TS_delete_mode
, TS_insert_mode
);
2515 se_is_so
= (TS_standout_mode
2516 && TS_end_standout_mode
2517 && !strcmp (TS_standout_mode
, TS_end_standout_mode
));
2519 UseTabs
= tabs_safe_p () && TabWidth
== 8;
2523 && (TS_set_window
|| TS_set_scroll_region
|| TS_set_scroll_region_1
));
2525 line_ins_del_ok
= (((TS_ins_line
|| TS_ins_multi_lines
)
2526 && (TS_del_line
|| TS_del_multi_lines
))
2527 || (scroll_region_ok
&& TS_fwd_scroll
&& TS_rev_scroll
));
2529 char_ins_del_ok
= ((TS_ins_char
|| TS_insert_mode
2530 || TS_pad_inserted_char
|| TS_ins_multi_chars
)
2531 && (TS_del_char
|| TS_del_multi_chars
));
2533 fast_clear_end_of_line
= TS_clr_line
!= 0;
2536 if (read_socket_hook
) /* Baudrate is somewhat */
2537 /* meaningless in this case */
2540 FRAME_CAN_HAVE_SCROLL_BARS (sf
) = 0;
2541 FRAME_VERTICAL_SCROLL_BAR_TYPE (sf
) = vertical_scroll_bar_none
;
2542 #endif /* WINDOWSNT */
2547 fatal (str
, arg1
, arg2
)
2548 char *str
, *arg1
, *arg2
;
2550 fprintf (stderr
, "emacs: ");
2551 fprintf (stderr
, str
, arg1
, arg2
);
2552 fprintf (stderr
, "\n");
2560 DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo
,
2561 doc
: /* Non-nil means the system uses terminfo rather than termcap.
2562 This variable can be used by terminal emulator packages. */);
2564 system_uses_terminfo
= 1;
2566 system_uses_terminfo
= 0;
2569 DEFVAR_LISP ("ring-bell-function", &Vring_bell_function
,
2570 doc
: /* Non-nil means call this function to ring the bell.
2571 The function should accept no arguments. */);
2572 Vring_bell_function
= Qnil
;
2574 defsubr (&Stty_display_color_p
);
2575 defsubr (&Stty_display_color_cells
);