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
;
1861 /* A multi-byte character. The display width is fixed for all
1862 characters of the set. Some of the glyphs may have to be
1863 ignored because they are already displayed in a continued
1865 int charset
= CHAR_CHARSET (it
->c
);
1867 it
->pixel_width
= CHARSET_WIDTH (charset
);
1868 it
->nglyphs
= it
->pixel_width
;
1874 /* Advance current_x by the pixel width as a convenience for
1876 if (it
->area
== TEXT_AREA
)
1877 it
->current_x
+= it
->pixel_width
;
1878 it
->ascent
= it
->max_ascent
= it
->phys_ascent
= it
->max_phys_ascent
= 0;
1879 it
->descent
= it
->max_descent
= it
->phys_descent
= it
->max_phys_descent
= 1;
1883 /* Get information about special display element WHAT in an
1884 environment described by IT. WHAT is one of IT_TRUNCATION or
1885 IT_CONTINUATION. Maybe produce glyphs for WHAT if IT has a
1886 non-null glyph_row member. This function ensures that fields like
1887 face_id, c, len of IT are left untouched. */
1890 produce_special_glyphs (it
, what
)
1892 enum display_element_type what
;
1898 temp_it
.what
= IT_CHARACTER
;
1900 temp_it
.object
= make_number (0);
1901 bzero (&temp_it
.current
, sizeof temp_it
.current
);
1903 if (what
== IT_CONTINUATION
)
1905 /* Continuation glyph. */
1907 && INTEGERP (DISP_CONTINUE_GLYPH (it
->dp
))
1908 && GLYPH_CHAR_VALID_P (XINT (DISP_CONTINUE_GLYPH (it
->dp
))))
1910 temp_it
.c
= FAST_GLYPH_CHAR (XINT (DISP_CONTINUE_GLYPH (it
->dp
)));
1911 temp_it
.len
= CHAR_BYTES (temp_it
.c
);
1916 produce_glyphs (&temp_it
);
1917 it
->pixel_width
= temp_it
.pixel_width
;
1918 it
->nglyphs
= temp_it
.pixel_width
;
1920 else if (what
== IT_TRUNCATION
)
1922 /* Truncation glyph. */
1924 && INTEGERP (DISP_TRUNC_GLYPH (it
->dp
))
1925 && GLYPH_CHAR_VALID_P (XINT (DISP_TRUNC_GLYPH (it
->dp
))))
1927 temp_it
.c
= FAST_GLYPH_CHAR (XINT (DISP_TRUNC_GLYPH (it
->dp
)));
1928 temp_it
.len
= CHAR_BYTES (temp_it
.c
);
1933 produce_glyphs (&temp_it
);
1934 it
->pixel_width
= temp_it
.pixel_width
;
1935 it
->nglyphs
= temp_it
.pixel_width
;
1942 /* Return an estimation of the pixel height of mode or top lines on
1943 frame F. FACE_ID specifies what line's height to estimate. */
1946 estimate_mode_line_height (f
, face_id
)
1948 enum face_id face_id
;
1950 if (estimate_mode_line_height_hook
)
1951 return estimate_mode_line_height_hook (f
, face_id
);
1958 /***********************************************************************
1960 ***********************************************************************/
1962 /* Value is non-zero if attribute ATTR may be used. ATTR should be
1963 one of the enumerators from enum no_color_bit, or a bit set built
1964 from them. Some display attributes may not be used together with
1965 color; the termcap capability `NC' specifies which ones. */
1967 #define MAY_USE_WITH_COLORS_P(ATTR) \
1968 (TN_max_colors > 0 \
1969 ? (TN_no_color_video & (ATTR)) == 0 \
1972 /* Turn appearances of face FACE_ID on tty frame F on. */
1975 turn_on_face (f
, face_id
)
1979 struct face
*face
= FACE_FROM_ID (f
, face_id
);
1981 xassert (face
!= NULL
);
1983 if (face
->tty_bold_p
)
1985 if (MAY_USE_WITH_COLORS_P (NC_BOLD
))
1986 OUTPUT1_IF (TS_enter_bold_mode
);
1988 else if (face
->tty_dim_p
)
1989 if (MAY_USE_WITH_COLORS_P (NC_DIM
))
1990 OUTPUT1_IF (TS_enter_dim_mode
);
1992 /* Alternate charset and blinking not yet used. */
1993 if (face
->tty_alt_charset_p
1994 && MAY_USE_WITH_COLORS_P (NC_ALT_CHARSET
))
1995 OUTPUT1_IF (TS_enter_alt_charset_mode
);
1997 if (face
->tty_blinking_p
1998 && MAY_USE_WITH_COLORS_P (NC_BLINK
))
1999 OUTPUT1_IF (TS_enter_blink_mode
);
2001 if (face
->tty_underline_p
2002 /* Don't underline if that's difficult. */
2003 && TN_magic_cookie_glitch_ul
<= 0
2004 && MAY_USE_WITH_COLORS_P (NC_UNDERLINE
))
2005 OUTPUT1_IF (TS_enter_underline_mode
);
2007 if (MAY_USE_WITH_COLORS_P (NC_REVERSE
))
2008 if (face
->tty_reverse_p
2009 || face
->foreground
== FACE_TTY_DEFAULT_BG_COLOR
2010 || face
->background
== FACE_TTY_DEFAULT_FG_COLOR
)
2011 OUTPUT1_IF (TS_enter_reverse_mode
);
2013 if (TN_max_colors
> 0)
2017 if (face
->foreground
!= FACE_TTY_DEFAULT_COLOR
2018 && face
->foreground
!= FACE_TTY_DEFAULT_FG_COLOR
2019 && face
->foreground
!= FACE_TTY_DEFAULT_BG_COLOR
2020 && TS_set_foreground
)
2022 p
= tparam (TS_set_foreground
, NULL
, 0, (int) face
->foreground
);
2027 if (face
->background
!= FACE_TTY_DEFAULT_COLOR
2028 && face
->background
!= FACE_TTY_DEFAULT_BG_COLOR
2029 && face
->background
!= FACE_TTY_DEFAULT_FG_COLOR
2030 && TS_set_background
)
2032 p
= tparam (TS_set_background
, NULL
, 0, (int) face
->background
);
2040 /* Turn off appearances of face FACE_ID on tty frame F. */
2043 turn_off_face (f
, face_id
)
2047 struct face
*face
= FACE_FROM_ID (f
, face_id
);
2049 xassert (face
!= NULL
);
2051 if (TS_exit_attribute_mode
)
2053 /* Capability "me" will turn off appearance modes double-bright,
2054 half-bright, reverse-video, standout, underline. It may or
2055 may not turn off alt-char-mode. */
2056 if (face
->tty_bold_p
2058 || face
->tty_reverse_p
2059 || face
->tty_alt_charset_p
2060 || face
->tty_blinking_p
2061 || face
->tty_underline_p
)
2062 OUTPUT1_IF (TS_exit_attribute_mode
);
2064 if (face
->tty_alt_charset_p
)
2065 OUTPUT_IF (TS_exit_alt_charset_mode
);
2069 /* If we don't have "me" we can only have those appearances
2070 that have exit sequences defined. */
2071 if (face
->tty_alt_charset_p
)
2072 OUTPUT_IF (TS_exit_alt_charset_mode
);
2074 if (face
->tty_underline_p
2075 /* We don't underline if that's difficult. */
2076 && TN_magic_cookie_glitch_ul
<= 0)
2077 OUTPUT_IF (TS_exit_underline_mode
);
2080 /* Switch back to default colors. */
2081 if (TN_max_colors
> 0
2082 && ((face
->foreground
!= FACE_TTY_DEFAULT_COLOR
2083 && face
->foreground
!= FACE_TTY_DEFAULT_FG_COLOR
)
2084 || (face
->background
!= FACE_TTY_DEFAULT_COLOR
2085 && face
->background
!= FACE_TTY_DEFAULT_BG_COLOR
)))
2086 OUTPUT1_IF (TS_orig_pair
);
2090 /* Return non-zero if the terminal is capable to display colors. */
2092 DEFUN ("tty-display-color-p", Ftty_display_color_p
, Stty_display_color_p
,
2094 "Return non-nil if TTY can display colors on FRAME.")
2098 return TN_max_colors
> 0 ? Qt
: Qnil
;
2104 /***********************************************************************
2106 ***********************************************************************/
2109 term_init (terminal_type
)
2110 char *terminal_type
;
2113 char **address
= &area
;
2117 struct frame
*sf
= XFRAME (selected_frame
);
2120 initialize_w32_display ();
2124 area
= (char *) xmalloc (2044);
2129 FrameRows
= FRAME_HEIGHT (sf
);
2130 FrameCols
= FRAME_WIDTH (sf
);
2131 specified_window
= FRAME_HEIGHT (sf
);
2133 delete_in_insert_mode
= 1;
2136 scroll_region_ok
= 0;
2138 /* Seems to insert lines when it's not supposed to, messing
2139 up the display. In doing a trace, it didn't seem to be
2140 called much, so I don't think we're losing anything by
2143 line_ins_del_ok
= 0;
2144 char_ins_del_ok
= 1;
2148 FRAME_CAN_HAVE_SCROLL_BARS (sf
) = 0;
2149 FRAME_VERTICAL_SCROLL_BAR_TYPE (sf
) = vertical_scroll_bar_none
;
2150 TN_max_colors
= 16; /* Required to be non-zero for tty-display-color-p */
2153 #else /* not WINDOWSNT */
2157 status
= tgetent (buffer
, terminal_type
);
2161 fatal ("Cannot open terminfo database file");
2163 fatal ("Cannot open termcap database file");
2169 fatal ("Terminal type %s is not defined.\n\
2170 If that is not the actual type of terminal you have,\n\
2171 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2172 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2173 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
2176 fatal ("Terminal type %s is not defined.\n\
2177 If that is not the actual type of terminal you have,\n\
2178 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2179 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2180 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
2185 area
= (char *) xmalloc (2044);
2187 area
= (char *) xmalloc (strlen (buffer
));
2188 #endif /* not TERMINFO */
2192 TS_ins_line
= tgetstr ("al", address
);
2193 TS_ins_multi_lines
= tgetstr ("AL", address
);
2194 TS_bell
= tgetstr ("bl", address
);
2195 BackTab
= tgetstr ("bt", address
);
2196 TS_clr_to_bottom
= tgetstr ("cd", address
);
2197 TS_clr_line
= tgetstr ("ce", address
);
2198 TS_clr_frame
= tgetstr ("cl", address
);
2199 ColPosition
= NULL
; /* tgetstr ("ch", address); */
2200 AbsPosition
= tgetstr ("cm", address
);
2201 CR
= tgetstr ("cr", address
);
2202 TS_set_scroll_region
= tgetstr ("cs", address
);
2203 TS_set_scroll_region_1
= tgetstr ("cS", address
);
2204 RowPosition
= tgetstr ("cv", address
);
2205 TS_del_char
= tgetstr ("dc", address
);
2206 TS_del_multi_chars
= tgetstr ("DC", address
);
2207 TS_del_line
= tgetstr ("dl", address
);
2208 TS_del_multi_lines
= tgetstr ("DL", address
);
2209 TS_delete_mode
= tgetstr ("dm", address
);
2210 TS_end_delete_mode
= tgetstr ("ed", address
);
2211 TS_end_insert_mode
= tgetstr ("ei", address
);
2212 Home
= tgetstr ("ho", address
);
2213 TS_ins_char
= tgetstr ("ic", address
);
2214 TS_ins_multi_chars
= tgetstr ("IC", address
);
2215 TS_insert_mode
= tgetstr ("im", address
);
2216 TS_pad_inserted_char
= tgetstr ("ip", address
);
2217 TS_end_keypad_mode
= tgetstr ("ke", address
);
2218 TS_keypad_mode
= tgetstr ("ks", address
);
2219 LastLine
= tgetstr ("ll", address
);
2220 Right
= tgetstr ("nd", address
);
2221 Down
= tgetstr ("do", address
);
2223 Down
= tgetstr ("nl", address
); /* Obsolete name for "do" */
2225 /* VMS puts a carriage return before each linefeed,
2226 so it is not safe to use linefeeds. */
2227 if (Down
&& Down
[0] == '\n' && Down
[1] == '\0')
2230 if (tgetflag ("bs"))
2231 Left
= "\b"; /* can't possibly be longer! */
2232 else /* (Actually, "bs" is obsolete...) */
2233 Left
= tgetstr ("le", address
);
2235 Left
= tgetstr ("bc", address
); /* Obsolete name for "le" */
2236 TS_pad_char
= tgetstr ("pc", address
);
2237 TS_repeat
= tgetstr ("rp", address
);
2238 TS_end_standout_mode
= tgetstr ("se", address
);
2239 TS_fwd_scroll
= tgetstr ("sf", address
);
2240 TS_standout_mode
= tgetstr ("so", address
);
2241 TS_rev_scroll
= tgetstr ("sr", address
);
2242 Wcm
.cm_tab
= tgetstr ("ta", address
);
2243 TS_end_termcap_modes
= tgetstr ("te", address
);
2244 TS_termcap_modes
= tgetstr ("ti", address
);
2245 Up
= tgetstr ("up", address
);
2246 TS_visible_bell
= tgetstr ("vb", address
);
2247 TS_cursor_normal
= tgetstr ("ve", address
);
2248 TS_cursor_visible
= tgetstr ("vs", address
);
2249 TS_cursor_invisible
= tgetstr ("vi", address
);
2250 TS_set_window
= tgetstr ("wi", address
);
2252 TS_enter_underline_mode
= tgetstr ("us", address
);
2253 TS_exit_underline_mode
= tgetstr ("ue", address
);
2254 TN_magic_cookie_glitch_ul
= tgetnum ("ug");
2255 TS_enter_bold_mode
= tgetstr ("md", address
);
2256 TS_enter_dim_mode
= tgetstr ("mh", address
);
2257 TS_enter_blink_mode
= tgetstr ("mb", address
);
2258 TS_enter_reverse_mode
= tgetstr ("mr", address
);
2259 TS_enter_alt_charset_mode
= tgetstr ("as", address
);
2260 TS_exit_alt_charset_mode
= tgetstr ("ae", address
);
2261 TS_exit_attribute_mode
= tgetstr ("me", address
);
2263 MultiUp
= tgetstr ("UP", address
);
2264 MultiDown
= tgetstr ("DO", address
);
2265 MultiLeft
= tgetstr ("LE", address
);
2266 MultiRight
= tgetstr ("RI", address
);
2268 /* SVr4/ANSI color suppert. If "op" isn't available, don't support
2269 color because we can't switch back to the default foreground and
2271 TS_orig_pair
= tgetstr ("op", address
);
2274 TS_set_foreground
= tgetstr ("AF", address
);
2275 TS_set_background
= tgetstr ("AB", address
);
2276 if (!TS_set_foreground
)
2279 TS_set_foreground
= tgetstr ("Sf", address
);
2280 TS_set_background
= tgetstr ("Sb", address
);
2283 TN_max_colors
= tgetnum ("Co");
2284 TN_max_pairs
= tgetnum ("pa");
2286 TN_no_color_video
= tgetnum ("NC");
2287 if (TN_no_color_video
== -1)
2288 TN_no_color_video
= 0;
2291 MagicWrap
= tgetflag ("xn");
2292 /* Since we make MagicWrap terminals look like AutoWrap, we need to have
2293 the former flag imply the latter. */
2294 AutoWrap
= MagicWrap
|| tgetflag ("am");
2295 memory_below_frame
= tgetflag ("db");
2296 TF_hazeltine
= tgetflag ("hz");
2297 must_write_spaces
= tgetflag ("in");
2298 meta_key
= tgetflag ("km") || tgetflag ("MT");
2299 TF_insmode_motion
= tgetflag ("mi");
2300 TF_standout_motion
= tgetflag ("ms");
2301 TF_underscore
= tgetflag ("ul");
2302 TF_xs
= tgetflag ("xs");
2303 TF_teleray
= tgetflag ("xt");
2305 term_get_fkeys (address
);
2307 /* Get frame size from system, or else from termcap. */
2310 get_frame_size (&width
, &height
);
2311 FRAME_WIDTH (sf
) = width
;
2312 FRAME_HEIGHT (sf
) = height
;
2315 if (FRAME_WIDTH (sf
) <= 0)
2316 SET_FRAME_WIDTH (sf
, tgetnum ("co"));
2318 /* Keep width and external_width consistent */
2319 SET_FRAME_WIDTH (sf
, FRAME_WIDTH (sf
));
2320 if (FRAME_HEIGHT (sf
) <= 0)
2321 FRAME_HEIGHT (sf
) = tgetnum ("li");
2323 if (FRAME_HEIGHT (sf
) < 3 || FRAME_WIDTH (sf
) < 3)
2324 fatal ("Screen size %dx%d is too small",
2325 FRAME_HEIGHT (sf
), FRAME_WIDTH (sf
));
2327 min_padding_speed
= tgetnum ("pb");
2328 TN_standout_width
= tgetnum ("sg");
2329 TabWidth
= tgetnum ("tw");
2332 /* These capabilities commonly use ^J.
2333 I don't know why, but sending them on VMS does not work;
2334 it causes following spaces to be lost, sometimes.
2335 For now, the simplest fix is to avoid using these capabilities ever. */
2336 if (Down
&& Down
[0] == '\n')
2344 TS_fwd_scroll
= Down
;
2346 PC
= TS_pad_char
? *TS_pad_char
: 0;
2351 /* Turned off since /etc/termcap seems to have :ta= for most terminals
2352 and newer termcap doc does not seem to say there is a default.
2357 if (TS_standout_mode
== 0)
2359 TN_standout_width
= tgetnum ("ug");
2360 TS_end_standout_mode
= tgetstr ("ue", address
);
2361 TS_standout_mode
= tgetstr ("us", address
);
2364 /* If no `se' string, try using a `me' string instead.
2365 If that fails, we can't use standout mode at all. */
2366 if (TS_end_standout_mode
== 0)
2368 char *s
= tgetstr ("me", address
);
2370 TS_end_standout_mode
= s
;
2372 TS_standout_mode
= 0;
2378 /* Teleray: most programs want a space in front of TS_standout_mode,
2379 but Emacs can do without it (and give one extra column). */
2380 TS_standout_mode
= "\033RD";
2381 TN_standout_width
= 1;
2382 /* But that means we cannot rely on ^M to go to column zero! */
2384 /* LF can't be trusted either -- can alter hpos */
2385 /* if move at column 0 thru a line with TS_standout_mode */
2389 /* Special handling for certain terminal types known to need it */
2391 if (!strcmp (terminal_type
, "supdup"))
2393 memory_below_frame
= 1;
2394 Wcm
.cm_losewrap
= 1;
2396 if (!strncmp (terminal_type
, "c10", 3)
2397 || !strcmp (terminal_type
, "perq"))
2399 /* Supply a makeshift :wi string.
2400 This string is not valid in general since it works only
2401 for windows starting at the upper left corner;
2402 but that is all Emacs uses.
2404 This string works only if the frame is using
2405 the top of the video memory, because addressing is memory-relative.
2406 So first check the :ti string to see if that is true.
2408 It would be simpler if the :wi string could go in the termcap
2409 entry, but it can't because it is not fully valid.
2410 If it were in the termcap entry, it would confuse other programs. */
2413 p
= TS_termcap_modes
;
2414 while (*p
&& strcmp (p
, "\033v "))
2417 TS_set_window
= "\033v%C %C %C %C ";
2419 /* Termcap entry often fails to have :in: flag */
2420 must_write_spaces
= 1;
2421 /* :ti string typically fails to have \E^G! in it */
2422 /* This limits scope of insert-char to one line. */
2423 strcpy (area
, TS_termcap_modes
);
2424 strcat (area
, "\033\007!");
2425 TS_termcap_modes
= area
;
2426 area
+= strlen (area
) + 1;
2428 /* Change all %+ parameters to %C, to handle
2429 values above 96 correctly for the C100. */
2432 if (p
[0] == '%' && p
[1] == '+')
2438 FrameRows
= FRAME_HEIGHT (sf
);
2439 FrameCols
= FRAME_WIDTH (sf
);
2440 specified_window
= FRAME_HEIGHT (sf
);
2442 if (Wcm_init () == -1) /* can't do cursor motion */
2444 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2445 It lacks the ability to position the cursor.\n\
2446 If that is not the actual type of terminal you have, use either the\n\
2447 DCL command `SET TERMINAL/DEVICE= ...' for DEC-compatible terminals,\n\
2448 or `define EMACS_TERM \"terminal type\"' for non-DEC terminals.",
2452 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2453 It lacks the ability to position the cursor.\n\
2454 If that is not the actual type of terminal you have,\n\
2455 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2456 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2457 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
2459 # else /* TERMCAP */
2460 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2461 It lacks the ability to position the cursor.\n\
2462 If that is not the actual type of terminal you have,\n\
2463 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2464 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2465 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
2467 # endif /* TERMINFO */
2469 if (FRAME_HEIGHT (sf
) <= 0
2470 || FRAME_WIDTH (sf
) <= 0)
2471 fatal ("The frame size has not been specified");
2473 delete_in_insert_mode
2474 = TS_delete_mode
&& TS_insert_mode
2475 && !strcmp (TS_delete_mode
, TS_insert_mode
);
2477 se_is_so
= (TS_standout_mode
2478 && TS_end_standout_mode
2479 && !strcmp (TS_standout_mode
, TS_end_standout_mode
));
2481 /* Remove width of standout marker from usable width of line */
2482 if (TN_standout_width
> 0)
2483 SET_FRAME_WIDTH (sf
, FRAME_WIDTH (sf
) - TN_standout_width
);
2485 UseTabs
= tabs_safe_p () && TabWidth
== 8;
2489 && (TS_set_window
|| TS_set_scroll_region
|| TS_set_scroll_region_1
));
2491 line_ins_del_ok
= (((TS_ins_line
|| TS_ins_multi_lines
)
2492 && (TS_del_line
|| TS_del_multi_lines
))
2493 || (scroll_region_ok
&& TS_fwd_scroll
&& TS_rev_scroll
));
2495 char_ins_del_ok
= ((TS_ins_char
|| TS_insert_mode
2496 || TS_pad_inserted_char
|| TS_ins_multi_chars
)
2497 && (TS_del_char
|| TS_del_multi_chars
));
2499 fast_clear_end_of_line
= TS_clr_line
!= 0;
2502 if (read_socket_hook
) /* Baudrate is somewhat */
2503 /* meaningless in this case */
2506 FRAME_CAN_HAVE_SCROLL_BARS (sf
) = 0;
2507 FRAME_VERTICAL_SCROLL_BAR_TYPE (sf
) = vertical_scroll_bar_none
;
2508 #endif /* WINDOWSNT */
2513 fatal (str
, arg1
, arg2
)
2514 char *str
, *arg1
, *arg2
;
2516 fprintf (stderr
, "emacs: ");
2517 fprintf (stderr
, str
, arg1
, arg2
);
2518 fprintf (stderr
, "\n");
2526 DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo
,
2527 "Non-nil means the system uses terminfo rather than termcap.\n\
2528 This variable can be used by terminal emulator packages.");
2530 system_uses_terminfo
= 1;
2532 system_uses_terminfo
= 0;
2535 DEFVAR_LISP ("ring-bell-function", &Vring_bell_function
,
2536 "Non-nil means call this function to ring the bell.\n\
2537 The function should accept no arguments.");
2538 Vring_bell_function
= Qnil
;
2540 defsubr (&Stty_display_color_p
);