1 /* Terminal control module for terminals described by TERMCAP
2 Copyright (C) 1985, 86, 87, 93, 94, 95, 98, 2000, 2001, 2002, 2005
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., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, 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_LINES (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_LINES (XFRAME (selected_frame)) \
82 #define OUTPUT1_IF(a) do { if (a) tputs (a, 1, cmputc); } while (0)
84 /* Display space properties */
86 extern Lisp_Object Qspace
, QCalign_to
, QCwidth
;
88 /* Function to use to ring the bell. */
90 Lisp_Object Vring_bell_function
;
92 /* Terminal characteristics that higher levels want to look at.
93 These are all extern'd in termchar.h */
95 int must_write_spaces
; /* Nonzero means spaces in the text
96 must actually be output; can't just skip
97 over some columns to leave them blank. */
98 int min_padding_speed
; /* Speed below which no padding necessary */
100 int line_ins_del_ok
; /* Terminal can insert and delete lines */
101 int char_ins_del_ok
; /* Terminal can insert and delete chars */
102 int scroll_region_ok
; /* Terminal supports setting the
104 int scroll_region_cost
; /* Cost of setting a scroll window,
105 measured in characters */
106 int memory_below_frame
; /* Terminal remembers lines
107 scrolled off bottom */
108 int fast_clear_end_of_line
; /* Terminal has a `ce' string */
110 /* Nonzero means no need to redraw the entire frame on resuming
111 a suspended Emacs. This is useful on terminals with multiple pages,
112 where one page is used for Emacs and another for all else. */
114 int no_redraw_on_reenter
;
116 /* Hook functions that you can set to snap out the functions in this file.
117 These are all extern'd in termhooks.h */
119 void (*cursor_to_hook
) P_ ((int, int));
120 void (*raw_cursor_to_hook
) P_ ((int, int));
121 void (*clear_to_end_hook
) P_ ((void));
122 void (*clear_frame_hook
) P_ ((void));
123 void (*clear_end_of_line_hook
) P_ ((int));
125 void (*ins_del_lines_hook
) P_ ((int, int));
127 void (*delete_glyphs_hook
) P_ ((int));
129 void (*ring_bell_hook
) P_ ((void));
131 void (*reset_terminal_modes_hook
) P_ ((void));
132 void (*set_terminal_modes_hook
) P_ ((void));
133 void (*update_begin_hook
) P_ ((struct frame
*));
134 void (*update_end_hook
) P_ ((struct frame
*));
135 void (*set_terminal_window_hook
) P_ ((int));
136 void (*insert_glyphs_hook
) P_ ((struct glyph
*, int));
137 void (*write_glyphs_hook
) P_ ((struct glyph
*, int));
138 void (*delete_glyphs_hook
) P_ ((int));
140 int (*read_socket_hook
) P_ ((int, int, struct input_event
*));
142 void (*frame_up_to_date_hook
) P_ ((struct frame
*));
144 /* Return the current position of the mouse.
146 Set *f to the frame the mouse is in, or zero if the mouse is in no
147 Emacs frame. If it is set to zero, all the other arguments are
150 If the motion started in a scroll bar, set *bar_window to the
151 scroll bar's window, *part to the part the mouse is currently over,
152 *x to the position of the mouse along the scroll bar, and *y to the
153 overall length of the scroll bar.
155 Otherwise, set *bar_window to Qnil, and *x and *y to the column and
156 row of the character cell the mouse is over.
158 Set *time to the time the mouse was at the returned position.
160 This should clear mouse_moved until the next motion
163 void (*mouse_position_hook
) P_ ((FRAME_PTR
*f
, int insist
,
164 Lisp_Object
*bar_window
,
165 enum scroll_bar_part
*part
,
168 unsigned long *time
));
170 /* When reading from a minibuffer in a different frame, Emacs wants
171 to shift the highlight from the selected frame to the mini-buffer's
172 frame; under X, this means it lies about where the focus is.
173 This hook tells the window system code to re-decide where to put
176 void (*frame_rehighlight_hook
) P_ ((FRAME_PTR f
));
178 /* If we're displaying frames using a window system that can stack
179 frames on top of each other, this hook allows you to bring a frame
180 to the front, or bury it behind all the other windows. If this
181 hook is zero, that means the device we're displaying on doesn't
182 support overlapping frames, so there's no need to raise or lower
185 If RAISE is non-zero, F is brought to the front, before all other
186 windows. If RAISE is zero, F is sent to the back, behind all other
189 void (*frame_raise_lower_hook
) P_ ((FRAME_PTR f
, int raise
));
191 /* Set the vertical scroll bar for WINDOW to have its upper left corner
192 at (TOP, LEFT), and be LENGTH rows high. Set its handle to
193 indicate that we are displaying PORTION characters out of a total
194 of WHOLE characters, starting at POSITION. If WINDOW doesn't yet
195 have a scroll bar, create one for it. */
197 void (*set_vertical_scroll_bar_hook
)
198 P_ ((struct window
*window
,
199 int portion
, int whole
, int position
));
202 /* The following three hooks are used when we're doing a thorough
203 redisplay of the frame. We don't explicitly know which scroll bars
204 are going to be deleted, because keeping track of when windows go
205 away is a real pain - can you say set-window-configuration?
206 Instead, we just assert at the beginning of redisplay that *all*
207 scroll bars are to be removed, and then save scroll bars from the
208 fiery pit when we actually redisplay their window. */
210 /* Arrange for all scroll bars on FRAME to be removed at the next call
211 to `*judge_scroll_bars_hook'. A scroll bar may be spared if
212 `*redeem_scroll_bar_hook' is applied to its window before the judgment.
214 This should be applied to each frame each time its window tree is
215 redisplayed, even if it is not displaying scroll bars at the moment;
216 if the HAS_SCROLL_BARS flag has just been turned off, only calling
217 this and the judge_scroll_bars_hook will get rid of them.
219 If non-zero, this hook should be safe to apply to any frame,
220 whether or not it can support scroll bars, and whether or not it is
221 currently displaying them. */
223 void (*condemn_scroll_bars_hook
) P_ ((FRAME_PTR frame
));
225 /* Unmark WINDOW's scroll bar for deletion in this judgement cycle.
226 Note that it's okay to redeem a scroll bar that is not condemned. */
228 void (*redeem_scroll_bar_hook
) P_ ((struct window
*window
));
230 /* Remove all scroll bars on FRAME that haven't been saved since the
231 last call to `*condemn_scroll_bars_hook'.
233 This should be applied to each frame after each time its window
234 tree is redisplayed, even if it is not displaying scroll bars at the
235 moment; if the HAS_SCROLL_BARS flag has just been turned off, only
236 calling this and condemn_scroll_bars_hook will get rid of them.
238 If non-zero, this hook should be safe to apply to any frame,
239 whether or not it can support scroll bars, and whether or not it is
240 currently displaying them. */
242 void (*judge_scroll_bars_hook
) P_ ((FRAME_PTR FRAME
));
244 /* Strings, numbers and flags taken from the termcap entry. */
246 char *TS_ins_line
; /* "al" */
247 char *TS_ins_multi_lines
; /* "AL" (one parameter, # lines to insert) */
248 char *TS_bell
; /* "bl" */
249 char *TS_clr_to_bottom
; /* "cd" */
250 char *TS_clr_line
; /* "ce", clear to end of line */
251 char *TS_clr_frame
; /* "cl" */
252 char *TS_set_scroll_region
; /* "cs" (2 params, first line and last line) */
253 char *TS_set_scroll_region_1
; /* "cS" (4 params: total lines,
254 lines above scroll region, lines below it,
255 total lines again) */
256 char *TS_del_char
; /* "dc" */
257 char *TS_del_multi_chars
; /* "DC" (one parameter, # chars to delete) */
258 char *TS_del_line
; /* "dl" */
259 char *TS_del_multi_lines
; /* "DL" (one parameter, # lines to delete) */
260 char *TS_delete_mode
; /* "dm", enter character-delete mode */
261 char *TS_end_delete_mode
; /* "ed", leave character-delete mode */
262 char *TS_end_insert_mode
; /* "ei", leave character-insert mode */
263 char *TS_ins_char
; /* "ic" */
264 char *TS_ins_multi_chars
; /* "IC" (one parameter, # chars to insert) */
265 char *TS_insert_mode
; /* "im", enter character-insert mode */
266 char *TS_pad_inserted_char
; /* "ip". Just padding, no commands. */
267 char *TS_end_keypad_mode
; /* "ke" */
268 char *TS_keypad_mode
; /* "ks" */
269 char *TS_pad_char
; /* "pc", char to use as padding */
270 char *TS_repeat
; /* "rp" (2 params, # times to repeat
271 and character to be repeated) */
272 char *TS_end_standout_mode
; /* "se" */
273 char *TS_fwd_scroll
; /* "sf" */
274 char *TS_standout_mode
; /* "so" */
275 char *TS_rev_scroll
; /* "sr" */
276 char *TS_end_termcap_modes
; /* "te" */
277 char *TS_termcap_modes
; /* "ti" */
278 char *TS_visible_bell
; /* "vb" */
279 char *TS_cursor_normal
; /* "ve" */
280 char *TS_cursor_visible
; /* "vs" */
281 char *TS_cursor_invisible
; /* "vi" */
282 char *TS_set_window
; /* "wi" (4 params, start and end of window,
283 each as vpos and hpos) */
285 /* Value of the "NC" (no_color_video) capability, or 0 if not
288 static int TN_no_color_video
;
290 /* Meaning of bits in no_color_video. Each bit set means that the
291 corresponding attribute cannot be combined with colors. */
295 NC_STANDOUT
= 1 << 0,
296 NC_UNDERLINE
= 1 << 1,
303 NC_ALT_CHARSET
= 1 << 8
306 /* "md" -- turn on bold (extra bright mode). */
308 char *TS_enter_bold_mode
;
310 /* "mh" -- turn on half-bright mode. */
312 char *TS_enter_dim_mode
;
314 /* "mb" -- enter blinking mode. */
316 char *TS_enter_blink_mode
;
318 /* "mr" -- enter reverse video mode. */
320 char *TS_enter_reverse_mode
;
322 /* "us"/"ue" -- start/end underlining. */
324 char *TS_exit_underline_mode
, *TS_enter_underline_mode
;
326 /* "as"/"ae" -- start/end alternate character set. Not really
329 char *TS_enter_alt_charset_mode
, *TS_exit_alt_charset_mode
;
331 /* "me" -- switch appearances off. */
333 char *TS_exit_attribute_mode
;
335 /* "Co" -- number of colors. */
339 /* "pa" -- max. number of color pairs on screen. Not handled yet.
340 Could be a problem if not equal to TN_max_colors * TN_max_colors. */
344 /* "op" -- SVr4 set default pair to its original value. */
348 /* "AF"/"AB" or "Sf"/"Sb"-- set ANSI or SVr4 foreground/background color.
349 1 param, the color index. */
351 char *TS_set_foreground
, *TS_set_background
;
353 int TF_hazeltine
; /* termcap hz flag. */
354 int TF_insmode_motion
; /* termcap mi flag: can move while in insert mode. */
355 int TF_standout_motion
; /* termcap mi flag: can move while in standout mode. */
356 int TF_underscore
; /* termcap ul flag: _ underlines if over-struck on
357 non-blank position. Must clear before writing _. */
358 int TF_teleray
; /* termcap xt flag: many weird consequences.
361 static int RPov
; /* # chars to start a TS_repeat */
363 static int delete_in_insert_mode
; /* delete mode == insert mode */
365 static int se_is_so
; /* 1 if same string both enters and leaves
370 /* The largest frame width in any call to calculate_costs. */
374 /* The largest frame height in any call to calculate_costs. */
378 static int costs_set
; /* Nonzero if costs have been calculated. */
380 int insert_mode
; /* Nonzero when in insert mode. */
381 int standout_mode
; /* Nonzero when in standout mode. */
383 /* Size of window specified by higher levels.
384 This is the number of lines, from the top of frame downwards,
385 which can participate in insert-line/delete-line operations.
387 Effectively it excludes the bottom frame_lines - specified_window_size
388 lines from those operations. */
390 int specified_window
;
392 /* Frame currently being redisplayed; 0 if not currently redisplaying.
393 (Direct output does not count). */
395 FRAME_PTR updating_frame
;
397 /* Provided for lisp packages. */
399 static int system_uses_terminfo
;
401 /* Flag used in tty_show/hide_cursor. */
403 static int tty_cursor_hidden
;
407 extern char *tgetstr ();
411 /* We aren't X windows, but we aren't termcap either. This makes me
412 uncertain as to what value to use for frame.output_method. For
413 this file, we'll define FRAME_TERMCAP_P to be zero so that our
414 output hooks get called instead of the termcap functions. Probably
415 the best long-term solution is to define an output_windows_nt... */
417 #undef FRAME_TERMCAP_P
418 #define FRAME_TERMCAP_P(_f_) 0
419 #endif /* WINDOWSNT */
424 if (!NILP (Vring_bell_function
))
426 Lisp_Object function
;
428 /* Temporarily set the global variable to nil
429 so that if we get an error, it stays nil
430 and we don't call it over and over.
432 We don't specbind it, because that would carefully
433 restore the bad value if there's an error
434 and make the loop of errors happen anyway. */
436 function
= Vring_bell_function
;
437 Vring_bell_function
= Qnil
;
441 Vring_bell_function
= function
;
443 else if (!FRAME_TERMCAP_P (XFRAME (selected_frame
)))
444 (*ring_bell_hook
) ();
446 OUTPUT (TS_visible_bell
&& visible_bell
? TS_visible_bell
: TS_bell
);
450 set_terminal_modes ()
452 if (FRAME_TERMCAP_P (XFRAME (selected_frame
)))
454 OUTPUT_IF (TS_termcap_modes
);
455 OUTPUT_IF (TS_cursor_visible
);
456 OUTPUT_IF (TS_keypad_mode
);
460 (*set_terminal_modes_hook
) ();
464 reset_terminal_modes ()
466 if (FRAME_TERMCAP_P (XFRAME (selected_frame
)))
468 turn_off_highlight ();
470 OUTPUT_IF (TS_end_keypad_mode
);
471 OUTPUT_IF (TS_cursor_normal
);
472 OUTPUT_IF (TS_end_termcap_modes
);
473 OUTPUT_IF (TS_orig_pair
);
474 /* Output raw CR so kernel can track the cursor hpos. */
477 else if (reset_terminal_modes_hook
)
478 (*reset_terminal_modes_hook
) ();
486 if (!FRAME_TERMCAP_P (f
))
487 update_begin_hook (f
);
494 if (FRAME_TERMCAP_P (f
))
496 if (!XWINDOW (selected_window
)->cursor_off_p
)
499 background_highlight ();
504 updating_frame
= NULL
;
508 set_terminal_window (size
)
511 if (FRAME_TERMCAP_P (updating_frame
))
513 specified_window
= size
? size
: FRAME_LINES (updating_frame
);
514 if (scroll_region_ok
)
515 set_scroll_region (0, specified_window
);
518 set_terminal_window_hook (size
);
522 set_scroll_region (start
, stop
)
526 struct frame
*sf
= XFRAME (selected_frame
);
528 if (TS_set_scroll_region
)
529 buf
= tparam (TS_set_scroll_region
, 0, 0, start
, stop
- 1);
530 else if (TS_set_scroll_region_1
)
531 buf
= tparam (TS_set_scroll_region_1
, 0, 0,
532 FRAME_LINES (sf
), start
,
533 FRAME_LINES (sf
) - stop
,
536 buf
= tparam (TS_set_window
, 0, 0, start
, 0, stop
, FRAME_COLS (sf
));
548 OUTPUT (TS_insert_mode
);
556 OUTPUT (TS_end_insert_mode
);
560 /* Handle highlighting. */
563 turn_off_highlight ()
566 OUTPUT_IF (TS_end_standout_mode
);
574 OUTPUT_IF (TS_standout_mode
);
582 turn_off_highlight ();
584 turn_on_highlight ();
588 /* Make cursor invisible. */
593 if (tty_cursor_hidden
== 0)
595 tty_cursor_hidden
= 1;
596 OUTPUT_IF (TS_cursor_invisible
);
601 /* Ensure that cursor is visible. */
606 if (tty_cursor_hidden
)
608 tty_cursor_hidden
= 0;
609 OUTPUT_IF (TS_cursor_normal
);
610 OUTPUT_IF (TS_cursor_visible
);
615 /* Set standout mode to the state it should be in for
616 empty space inside windows. What this is,
617 depends on the user option inverse-video. */
620 background_highlight ()
623 turn_on_highlight ();
625 turn_off_highlight ();
628 /* Set standout mode to the mode specified for the text to be output. */
631 highlight_if_desired ()
634 turn_on_highlight ();
636 turn_off_highlight ();
640 /* Move cursor to row/column position VPOS/HPOS. HPOS/VPOS are
641 frame-relative coordinates. */
644 cursor_to (vpos
, hpos
)
647 struct frame
*f
= updating_frame
? updating_frame
: XFRAME (selected_frame
);
649 if (! FRAME_TERMCAP_P (f
) && cursor_to_hook
)
651 (*cursor_to_hook
) (vpos
, hpos
);
655 /* Detect the case where we are called from reset_sys_modes
656 and the costs have never been calculated. Do nothing. */
660 if (curY
== vpos
&& curX
== hpos
)
662 if (!TF_standout_motion
)
663 background_highlight ();
664 if (!TF_insmode_motion
)
669 /* Similar but don't take any account of the wasted characters. */
672 raw_cursor_to (row
, col
)
675 struct frame
*f
= updating_frame
? updating_frame
: XFRAME (selected_frame
);
676 if (! FRAME_TERMCAP_P (f
))
678 (*raw_cursor_to_hook
) (row
, col
);
681 if (curY
== row
&& curX
== col
)
683 if (!TF_standout_motion
)
684 background_highlight ();
685 if (!TF_insmode_motion
)
690 /* Erase operations */
692 /* clear from cursor to end of frame */
698 if (clear_to_end_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
700 (*clear_to_end_hook
) ();
703 if (TS_clr_to_bottom
)
705 background_highlight ();
706 OUTPUT (TS_clr_to_bottom
);
710 for (i
= curY
; i
< FRAME_LINES (XFRAME (selected_frame
)); i
++)
713 clear_end_of_line (FRAME_COLS (XFRAME (selected_frame
)));
718 /* Clear entire frame */
723 struct frame
*sf
= XFRAME (selected_frame
);
726 && ! FRAME_TERMCAP_P ((updating_frame
? updating_frame
: sf
)))
728 (*clear_frame_hook
) ();
733 background_highlight ();
734 OUTPUT (TS_clr_frame
);
744 /* Clear from cursor to end of line.
745 Assume that the line is already clear starting at column first_unused_hpos.
747 Note that the cursor may be moved, on terminals lacking a `ce' string. */
750 clear_end_of_line (first_unused_hpos
)
751 int first_unused_hpos
;
755 if (clear_end_of_line_hook
756 && ! FRAME_TERMCAP_P ((updating_frame
758 : XFRAME (selected_frame
))))
760 (*clear_end_of_line_hook
) (first_unused_hpos
);
764 /* Detect the case where we are called from reset_sys_modes
765 and the costs have never been calculated. Do nothing. */
769 if (curX
>= first_unused_hpos
)
771 background_highlight ();
774 OUTPUT1 (TS_clr_line
);
777 { /* have to do it the hard way */
778 struct frame
*sf
= XFRAME (selected_frame
);
781 /* Do not write in last row last col with Auto-wrap on. */
782 if (AutoWrap
&& curY
== FRAME_LINES (sf
) - 1
783 && first_unused_hpos
== FRAME_COLS (sf
))
786 for (i
= curX
; i
< first_unused_hpos
; i
++)
789 fputc (' ', termscript
);
792 cmplus (first_unused_hpos
- curX
);
796 /* Buffers to store the source and result of code conversion for terminal. */
797 static unsigned char *encode_terminal_src
;
798 static unsigned char *encode_terminal_dst
;
799 /* Allocated sizes of the above buffers. */
800 static int encode_terminal_src_size
;
801 static int encode_terminal_dst_size
;
803 /* Encode SRC_LEN glyphs starting at SRC to terminal output codes.
804 Set CODING->produced to the byte-length of the resulting byte
805 sequence, and return a pointer to that byte sequence. */
808 encode_terminal_code (src
, src_len
, coding
)
811 struct coding_system
*coding
;
813 struct glyph
*src_start
= src
, *src_end
= src
+ src_len
;
816 int nchars
, nbytes
, required
;
817 register int tlen
= GLYPH_TABLE_LENGTH
;
818 register Lisp_Object
*tbase
= GLYPH_TABLE_BASE
;
819 Lisp_Object charset_list
;
821 /* Allocate sufficient size of buffer to store all characters in
822 multibyte-form. But, it may be enlarged on demand if
823 Vglyph_table contains a string. */
824 required
= MAX_MULTIBYTE_LENGTH
* src_len
;
825 if (encode_terminal_src_size
< required
)
827 if (encode_terminal_src_size
== 0)
828 encode_terminal_src
= xmalloc (required
);
830 encode_terminal_src
= xrealloc (encode_terminal_src
, required
);
831 encode_terminal_src_size
= required
;
834 charset_list
= coding_charset_list (coding
);
836 buf
= encode_terminal_src
;
838 while (src
< src_end
)
840 /* We must skip glyphs to be padded for a wide character. */
841 if (! CHAR_GLYPH_PADDING_P (*src
))
847 g
= GLYPH_FROM_CHAR_GLYPH (src
[0]);
849 if (g
< 0 || g
>= tlen
)
851 /* This glyph doesn't has an entry in Vglyph_table. */
856 /* This glyph has an entry in Vglyph_table,
857 so process any alias before testing for simpleness. */
858 GLYPH_FOLLOW_ALIASES (tbase
, tlen
, g
);
860 if (GLYPH_SIMPLE_P (tbase
, tlen
, g
))
861 /* We set the multi-byte form of a character in G
862 (that should be an ASCII character) at WORKBUF. */
863 c
= FAST_GLYPH_CHAR (g
);
865 /* We have a string in Vglyph_table. */
871 if (char_charset (c
, charset_list
, NULL
))
873 /* Store the multibyte form of C at BUF. */
874 buf
+= CHAR_STRING (c
, buf
);
879 /* C is not encodable. */
882 while (src
+ 1 < src_end
&& CHAR_GLYPH_PADDING_P (src
[1]))
892 unsigned char *p
= SDATA (string
), *pend
= p
+ SBYTES (string
);
894 if (! STRING_MULTIBYTE (string
))
895 string
= string_to_multibyte (string
);
896 nbytes
= buf
- encode_terminal_src
;
897 if (encode_terminal_src_size
< nbytes
+ SBYTES (string
))
899 encode_terminal_src_size
= nbytes
+ SBYTES (string
);
900 encode_terminal_src
= xrealloc (encode_terminal_src
,
901 encode_terminal_src_size
);
902 buf
= encode_terminal_src
+ nbytes
;
904 bcopy (SDATA (string
), buf
, SBYTES (string
));
905 buf
+= SBYTES (string
);
906 nchars
+= SCHARS (string
);
914 coding
->produced
= 0;
918 nbytes
= buf
- encode_terminal_src
;
919 coding
->source
= encode_terminal_src
;
920 if (encode_terminal_dst_size
== 0)
922 encode_terminal_dst_size
= encode_terminal_src_size
;
923 encode_terminal_dst
= xmalloc (encode_terminal_dst_size
);
925 coding
->destination
= encode_terminal_dst
;
926 coding
->dst_bytes
= encode_terminal_dst_size
;
927 encode_coding_object (coding
, Qnil
, 0, 0, nchars
, nbytes
, Qnil
);
928 /* coding->destination may have been reallocated. */
929 encode_terminal_dst
= coding
->destination
;
930 encode_terminal_dst_size
= coding
->dst_bytes
;
932 return (encode_terminal_dst
);
937 write_glyphs (string
, len
)
938 register struct glyph
*string
;
941 int produced
, consumed
;
942 struct frame
*sf
= XFRAME (selected_frame
);
943 struct frame
*f
= updating_frame
? updating_frame
: sf
;
944 unsigned char *conversion_buffer
;
945 struct coding_system
*coding
;
947 if (write_glyphs_hook
948 && ! FRAME_TERMCAP_P (f
))
950 (*write_glyphs_hook
) (string
, len
);
957 /* Don't dare write in last column of bottom line, if Auto-Wrap,
958 since that would scroll the whole frame on some terminals. */
961 && curY
+ 1 == FRAME_LINES (sf
)
962 && (curX
+ len
) == FRAME_COLS (sf
))
969 /* If terminal_coding does any conversion, use it, otherwise use
970 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
971 because it always return 1 if the member src_multibyte is 1. */
972 coding
= (terminal_coding
.common_flags
& CODING_REQUIRE_ENCODING_MASK
973 ? &terminal_coding
: &safe_terminal_coding
);
974 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
976 coding
->mode
&= ~CODING_MODE_LAST_BLOCK
;
980 /* Identify a run of glyphs with the same face. */
981 int face_id
= string
->face_id
;
984 for (n
= 1; n
< len
; ++n
)
985 if (string
[n
].face_id
!= face_id
)
988 /* Turn appearance modes of the face of the run on. */
989 highlight_if_desired ();
990 turn_on_face (f
, face_id
);
993 /* This is the last run. */
994 coding
->mode
|= CODING_MODE_LAST_BLOCK
;
995 conversion_buffer
= encode_terminal_code (string
, n
, coding
);
996 if (coding
->produced
> 0)
998 fwrite (conversion_buffer
, 1, coding
->produced
, stdout
);
1002 fwrite (conversion_buffer
, 1, coding
->produced
, termscript
);
1007 /* Turn appearance modes off. */
1008 turn_off_face (f
, face_id
);
1009 turn_off_highlight ();
1015 /* If start is zero, insert blanks instead of a string at start */
1018 insert_glyphs (start
, len
)
1019 register struct glyph
*start
;
1023 struct glyph
*glyph
= NULL
;
1024 struct frame
*f
, *sf
;
1025 unsigned char *conversion_buffer
;
1026 unsigned char space
[1];
1027 struct coding_system
*coding
;
1032 if (insert_glyphs_hook
)
1034 (*insert_glyphs_hook
) (start
, len
);
1038 sf
= XFRAME (selected_frame
);
1039 f
= updating_frame
? updating_frame
: sf
;
1041 if (TS_ins_multi_chars
)
1043 buf
= tparam (TS_ins_multi_chars
, 0, 0, len
);
1047 write_glyphs (start
, len
);
1055 space
[0] = SPACEGLYPH
;
1057 /* If terminal_coding does any conversion, use it, otherwise use
1058 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
1059 because it always return 1 if the member src_multibyte is 1. */
1060 coding
= (terminal_coding
.common_flags
& CODING_REQUIRE_ENCODING_MASK
1061 ? &terminal_coding
: &safe_terminal_coding
);
1062 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
1064 coding
->mode
&= ~CODING_MODE_LAST_BLOCK
;
1068 OUTPUT1_IF (TS_ins_char
);
1071 conversion_buffer
= space
;
1072 coding
->produced
= 1;
1076 highlight_if_desired ();
1077 turn_on_face (f
, start
->face_id
);
1080 /* We must open sufficient space for a character which
1081 occupies more than one column. */
1082 while (len
&& CHAR_GLYPH_PADDING_P (*start
))
1084 OUTPUT1_IF (TS_ins_char
);
1089 /* This is the last glyph. */
1090 coding
->mode
|= CODING_MODE_LAST_BLOCK
;
1092 conversion_buffer
= encode_terminal_code (glyph
, 1, coding
);
1095 if (coding
->produced
> 0)
1097 fwrite (conversion_buffer
, 1, coding
->produced
, stdout
);
1098 if (ferror (stdout
))
1101 fwrite (conversion_buffer
, 1, coding
->produced
, termscript
);
1104 OUTPUT1_IF (TS_pad_inserted_char
);
1107 turn_off_face (f
, glyph
->face_id
);
1108 turn_off_highlight ();
1122 if (delete_glyphs_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
1124 (*delete_glyphs_hook
) (n
);
1128 if (delete_in_insert_mode
)
1135 OUTPUT_IF (TS_delete_mode
);
1138 if (TS_del_multi_chars
)
1140 buf
= tparam (TS_del_multi_chars
, 0, 0, n
);
1145 for (i
= 0; i
< n
; i
++)
1146 OUTPUT1 (TS_del_char
);
1147 if (!delete_in_insert_mode
)
1148 OUTPUT_IF (TS_end_delete_mode
);
1151 /* Insert N lines at vpos VPOS. If N is negative, delete -N lines. */
1154 ins_del_lines (vpos
, n
)
1157 char *multi
= n
> 0 ? TS_ins_multi_lines
: TS_del_multi_lines
;
1158 char *single
= n
> 0 ? TS_ins_line
: TS_del_line
;
1159 char *scroll
= n
> 0 ? TS_rev_scroll
: TS_fwd_scroll
;
1162 register int i
= n
> 0 ? n
: -n
;
1165 if (ins_del_lines_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
1167 (*ins_del_lines_hook
) (vpos
, n
);
1171 sf
= XFRAME (selected_frame
);
1173 /* If the lines below the insertion are being pushed
1174 into the end of the window, this is the same as clearing;
1175 and we know the lines are already clear, since the matching
1176 deletion has already been done. So can ignore this. */
1177 /* If the lines below the deletion are blank lines coming
1178 out of the end of the window, don't bother,
1179 as there will be a matching inslines later that will flush them. */
1180 if (scroll_region_ok
&& vpos
+ i
>= specified_window
)
1182 if (!memory_below_frame
&& vpos
+ i
>= FRAME_LINES (sf
))
1187 raw_cursor_to (vpos
, 0);
1188 background_highlight ();
1189 buf
= tparam (multi
, 0, 0, i
);
1195 raw_cursor_to (vpos
, 0);
1196 background_highlight ();
1204 set_scroll_region (vpos
, specified_window
);
1206 raw_cursor_to (specified_window
- 1, 0);
1208 raw_cursor_to (vpos
, 0);
1209 background_highlight ();
1211 OUTPUTL (scroll
, specified_window
- vpos
);
1212 set_scroll_region (0, specified_window
);
1215 if (!scroll_region_ok
&& memory_below_frame
&& n
< 0)
1217 cursor_to (FRAME_LINES (sf
) + n
, 0);
1222 /* Compute cost of sending "str", in characters,
1223 not counting any line-dependent padding. */
1231 tputs (str
, 0, evalcost
);
1235 /* Compute cost of sending "str", in characters,
1236 counting any line-dependent padding at one line. */
1239 string_cost_one_line (str
)
1244 tputs (str
, 1, evalcost
);
1248 /* Compute per line amount of line-dependent padding,
1249 in tenths of characters. */
1257 tputs (str
, 0, evalcost
);
1260 tputs (str
, 10, evalcost
);
1265 /* char_ins_del_cost[n] is cost of inserting N characters.
1266 char_ins_del_cost[-n] is cost of deleting N characters.
1267 The length of this vector is based on max_frame_cols. */
1269 int *char_ins_del_vector
;
1271 #define char_ins_del_cost(f) (&char_ins_del_vector[FRAME_COLS ((f))])
1276 calculate_ins_del_char_costs (frame
)
1279 int ins_startup_cost
, del_startup_cost
;
1280 int ins_cost_per_char
, del_cost_per_char
;
1284 if (TS_ins_multi_chars
)
1286 ins_cost_per_char
= 0;
1287 ins_startup_cost
= string_cost_one_line (TS_ins_multi_chars
);
1289 else if (TS_ins_char
|| TS_pad_inserted_char
1290 || (TS_insert_mode
&& TS_end_insert_mode
))
1292 ins_startup_cost
= (30 * (string_cost (TS_insert_mode
)
1293 + string_cost (TS_end_insert_mode
))) / 100;
1294 ins_cost_per_char
= (string_cost_one_line (TS_ins_char
)
1295 + string_cost_one_line (TS_pad_inserted_char
));
1299 ins_startup_cost
= 9999;
1300 ins_cost_per_char
= 0;
1303 if (TS_del_multi_chars
)
1305 del_cost_per_char
= 0;
1306 del_startup_cost
= string_cost_one_line (TS_del_multi_chars
);
1308 else if (TS_del_char
)
1310 del_startup_cost
= (string_cost (TS_delete_mode
)
1311 + string_cost (TS_end_delete_mode
));
1312 if (delete_in_insert_mode
)
1313 del_startup_cost
/= 2;
1314 del_cost_per_char
= string_cost_one_line (TS_del_char
);
1318 del_startup_cost
= 9999;
1319 del_cost_per_char
= 0;
1322 /* Delete costs are at negative offsets */
1323 p
= &char_ins_del_cost (frame
)[0];
1324 for (i
= FRAME_COLS (frame
); --i
>= 0;)
1325 *--p
= (del_startup_cost
+= del_cost_per_char
);
1327 /* Doing nothing is free */
1328 p
= &char_ins_del_cost (frame
)[0];
1331 /* Insert costs are at positive offsets */
1332 for (i
= FRAME_COLS (frame
); --i
>= 0;)
1333 *p
++ = (ins_startup_cost
+= ins_cost_per_char
);
1337 calculate_costs (frame
)
1340 register char *f
= (TS_set_scroll_region
1341 ? TS_set_scroll_region
1342 : TS_set_scroll_region_1
);
1344 FRAME_COST_BAUD_RATE (frame
) = baud_rate
;
1346 scroll_region_cost
= string_cost (f
);
1348 /* These variables are only used for terminal stuff. They are allocated
1349 once for the terminal frame of X-windows emacs, but not used afterwards.
1351 char_ins_del_vector (i.e., char_ins_del_cost) isn't used because
1352 X turns off char_ins_del_ok. */
1354 max_frame_lines
= max (max_frame_lines
, FRAME_LINES (frame
));
1355 max_frame_cols
= max (max_frame_cols
, FRAME_COLS (frame
));
1359 if (char_ins_del_vector
!= 0)
1361 = (int *) xrealloc (char_ins_del_vector
,
1363 + 2 * max_frame_cols
* sizeof (int)));
1366 = (int *) xmalloc (sizeof (int)
1367 + 2 * max_frame_cols
* sizeof (int));
1369 bzero (char_ins_del_vector
, (sizeof (int)
1370 + 2 * max_frame_cols
* sizeof (int)));
1372 if (f
&& (!TS_ins_line
&& !TS_del_line
))
1373 do_line_insertion_deletion_costs (frame
,
1374 TS_rev_scroll
, TS_ins_multi_lines
,
1375 TS_fwd_scroll
, TS_del_multi_lines
,
1378 do_line_insertion_deletion_costs (frame
,
1379 TS_ins_line
, TS_ins_multi_lines
,
1380 TS_del_line
, TS_del_multi_lines
,
1383 calculate_ins_del_char_costs (frame
);
1385 /* Don't use TS_repeat if its padding is worse than sending the chars */
1386 if (TS_repeat
&& per_line_cost (TS_repeat
) * baud_rate
< 9000)
1387 RPov
= string_cost (TS_repeat
);
1389 RPov
= FRAME_COLS (frame
) * 2;
1391 cmcostinit (); /* set up cursor motion costs */
1398 /* Termcap capability names that correspond directly to X keysyms.
1399 Some of these (marked "terminfo") aren't supplied by old-style
1400 (Berkeley) termcap entries. They're listed in X keysym order;
1401 except we put the keypad keys first, so that if they clash with
1402 other keys (as on the IBM PC keyboard) they get overridden.
1405 static struct fkey_table keys
[] =
1407 {"kh", "home"}, /* termcap */
1408 {"kl", "left"}, /* termcap */
1409 {"ku", "up"}, /* termcap */
1410 {"kr", "right"}, /* termcap */
1411 {"kd", "down"}, /* termcap */
1412 {"%8", "prior"}, /* terminfo */
1413 {"%5", "next"}, /* terminfo */
1414 {"@7", "end"}, /* terminfo */
1415 {"@1", "begin"}, /* terminfo */
1416 {"*6", "select"}, /* terminfo */
1417 {"%9", "print"}, /* terminfo */
1418 {"@4", "execute"}, /* terminfo --- actually the `command' key */
1420 * "insert" --- see below
1422 {"&8", "undo"}, /* terminfo */
1423 {"%0", "redo"}, /* terminfo */
1424 {"%7", "menu"}, /* terminfo --- actually the `options' key */
1425 {"@0", "find"}, /* terminfo */
1426 {"@2", "cancel"}, /* terminfo */
1427 {"%1", "help"}, /* terminfo */
1429 * "break" goes here, but can't be reliably intercepted with termcap
1431 {"&4", "reset"}, /* terminfo --- actually `restart' */
1433 * "system" and "user" --- no termcaps
1435 {"kE", "clearline"}, /* terminfo */
1436 {"kA", "insertline"}, /* terminfo */
1437 {"kL", "deleteline"}, /* terminfo */
1438 {"kI", "insertchar"}, /* terminfo */
1439 {"kD", "deletechar"}, /* terminfo */
1440 {"kB", "backtab"}, /* terminfo */
1442 * "kp_backtab", "kp-space", "kp-tab" --- no termcaps
1444 {"@8", "kp-enter"}, /* terminfo */
1446 * "kp-f1", "kp-f2", "kp-f3" "kp-f4",
1447 * "kp-multiply", "kp-add", "kp-separator",
1448 * "kp-subtract", "kp-decimal", "kp-divide", "kp-0";
1449 * --- no termcaps for any of these.
1451 {"K4", "kp-1"}, /* terminfo */
1453 * "kp-2" --- no termcap
1455 {"K5", "kp-3"}, /* terminfo */
1457 * "kp-4" --- no termcap
1459 {"K2", "kp-5"}, /* terminfo */
1461 * "kp-6" --- no termcap
1463 {"K1", "kp-7"}, /* terminfo */
1465 * "kp-8" --- no termcap
1467 {"K3", "kp-9"}, /* terminfo */
1469 * "kp-equal" --- no termcap
1481 {"&0", "S-cancel"}, /*shifted cancel key*/
1482 {"&9", "S-begin"}, /*shifted begin key*/
1483 {"*0", "S-find"}, /*shifted find key*/
1484 {"*1", "S-execute"}, /*shifted execute? actually shifted command key*/
1485 {"*4", "S-delete"}, /*shifted delete-character key*/
1486 {"*7", "S-end"}, /*shifted end key*/
1487 {"*8", "S-clearline"}, /*shifted clear-to end-of-line key*/
1488 {"#1", "S-help"}, /*shifted help key*/
1489 {"#2", "S-home"}, /*shifted home key*/
1490 {"#3", "S-insert"}, /*shifted insert-character key*/
1491 {"#4", "S-left"}, /*shifted left-arrow key*/
1492 {"%d", "S-menu"}, /*shifted menu? actually shifted options key*/
1493 {"%c", "S-next"}, /*shifted next key*/
1494 {"%e", "S-prior"}, /*shifted previous key*/
1495 {"%f", "S-print"}, /*shifted print key*/
1496 {"%g", "S-redo"}, /*shifted redo key*/
1497 {"%i", "S-right"}, /*shifted right-arrow key*/
1498 {"!3", "S-undo"} /*shifted undo key*/
1501 static char **term_get_fkeys_arg
;
1502 static Lisp_Object
term_get_fkeys_1 ();
1504 /* Find the escape codes sent by the function keys for Vfunction_key_map.
1505 This function scans the termcap function key sequence entries, and
1506 adds entries to Vfunction_key_map for each function key it finds. */
1509 term_get_fkeys (address
)
1512 /* We run the body of the function (term_get_fkeys_1) and ignore all Lisp
1513 errors during the call. The only errors should be from Fdefine_key
1514 when given a key sequence containing an invalid prefix key. If the
1515 termcap defines function keys which use a prefix that is already bound
1516 to a command by the default bindings, we should silently ignore that
1517 function key specification, rather than giving the user an error and
1518 refusing to run at all on such a terminal. */
1520 extern Lisp_Object
Fidentity ();
1521 term_get_fkeys_arg
= address
;
1522 internal_condition_case (term_get_fkeys_1
, Qerror
, Fidentity
);
1530 char **address
= term_get_fkeys_arg
;
1532 /* This can happen if CANNOT_DUMP or with strange options. */
1534 Vfunction_key_map
= Fmake_sparse_keymap (Qnil
);
1536 for (i
= 0; i
< (sizeof (keys
)/sizeof (keys
[0])); i
++)
1538 char *sequence
= tgetstr (keys
[i
].cap
, address
);
1540 Fdefine_key (Vfunction_key_map
, build_string (sequence
),
1541 Fmake_vector (make_number (1),
1542 intern (keys
[i
].name
)));
1545 /* The uses of the "k0" capability are inconsistent; sometimes it
1546 describes F10, whereas othertimes it describes F0 and "k;" describes F10.
1547 We will attempt to politely accommodate both systems by testing for
1548 "k;", and if it is present, assuming that "k0" denotes F0, otherwise F10.
1551 char *k_semi
= tgetstr ("k;", address
);
1552 char *k0
= tgetstr ("k0", address
);
1553 char *k0_name
= "f10";
1558 /* Define f0 first, so that f10 takes precedence in case the
1559 key sequences happens to be the same. */
1560 Fdefine_key (Vfunction_key_map
, build_string (k0
),
1561 Fmake_vector (make_number (1), intern ("f0")));
1562 Fdefine_key (Vfunction_key_map
, build_string (k_semi
),
1563 Fmake_vector (make_number (1), intern ("f10")));
1566 Fdefine_key (Vfunction_key_map
, build_string (k0
),
1567 Fmake_vector (make_number (1), intern (k0_name
)));
1570 /* Set up cookies for numbered function keys above f10. */
1572 char fcap
[3], fkey
[4];
1574 fcap
[0] = 'F'; fcap
[2] = '\0';
1575 for (i
= 11; i
< 64; i
++)
1578 fcap
[1] = '1' + i
- 11;
1580 fcap
[1] = 'A' + i
- 20;
1582 fcap
[1] = 'a' + i
- 46;
1585 char *sequence
= tgetstr (fcap
, address
);
1588 sprintf (fkey
, "f%d", i
);
1589 Fdefine_key (Vfunction_key_map
, build_string (sequence
),
1590 Fmake_vector (make_number (1),
1598 * Various mappings to try and get a better fit.
1601 #define CONDITIONAL_REASSIGN(cap1, cap2, sym) \
1602 if (!tgetstr (cap1, address)) \
1604 char *sequence = tgetstr (cap2, address); \
1606 Fdefine_key (Vfunction_key_map, build_string (sequence), \
1607 Fmake_vector (make_number (1), \
1611 /* if there's no key_next keycap, map key_npage to `next' keysym */
1612 CONDITIONAL_REASSIGN ("%5", "kN", "next");
1613 /* if there's no key_prev keycap, map key_ppage to `previous' keysym */
1614 CONDITIONAL_REASSIGN ("%8", "kP", "prior");
1615 /* if there's no key_dc keycap, map key_ic to `insert' keysym */
1616 CONDITIONAL_REASSIGN ("kD", "kI", "insert");
1617 /* if there's no key_end keycap, map key_ll to 'end' keysym */
1618 CONDITIONAL_REASSIGN ("@7", "kH", "end");
1620 /* IBM has their own non-standard dialect of terminfo.
1621 If the standard name isn't found, try the IBM name. */
1622 CONDITIONAL_REASSIGN ("kB", "KO", "backtab");
1623 CONDITIONAL_REASSIGN ("@4", "kJ", "execute"); /* actually "action" */
1624 CONDITIONAL_REASSIGN ("@4", "kc", "execute"); /* actually "command" */
1625 CONDITIONAL_REASSIGN ("%7", "ki", "menu");
1626 CONDITIONAL_REASSIGN ("@7", "kw", "end");
1627 CONDITIONAL_REASSIGN ("F1", "k<", "f11");
1628 CONDITIONAL_REASSIGN ("F2", "k>", "f12");
1629 CONDITIONAL_REASSIGN ("%1", "kq", "help");
1630 CONDITIONAL_REASSIGN ("*6", "kU", "select");
1631 #undef CONDITIONAL_REASSIGN
1638 /***********************************************************************
1639 Character Display Information
1640 ***********************************************************************/
1642 static void append_glyph
P_ ((struct it
*));
1643 static void produce_stretch_glyph
P_ ((struct it
*));
1646 /* Append glyphs to IT's glyph_row. Called from produce_glyphs for
1647 terminal frames if IT->glyph_row != NULL. IT->c is the character
1648 for which to produce glyphs; IT->face_id contains the character's
1649 face. Padding glyphs are appended if IT->c has a IT->pixel_width >
1656 struct glyph
*glyph
, *end
;
1659 xassert (it
->glyph_row
);
1660 glyph
= (it
->glyph_row
->glyphs
[it
->area
]
1661 + it
->glyph_row
->used
[it
->area
]);
1662 end
= it
->glyph_row
->glyphs
[1 + it
->area
];
1665 i
< it
->pixel_width
&& glyph
< end
;
1668 glyph
->type
= CHAR_GLYPH
;
1669 glyph
->pixel_width
= 1;
1670 glyph
->u
.ch
= it
->c
;
1671 glyph
->face_id
= it
->face_id
;
1672 glyph
->padding_p
= i
> 0;
1673 glyph
->charpos
= CHARPOS (it
->position
);
1674 glyph
->object
= it
->object
;
1676 ++it
->glyph_row
->used
[it
->area
];
1682 /* Produce glyphs for the display element described by IT. *IT
1683 specifies what we want to produce a glyph for (character, image, ...),
1684 and where in the glyph matrix we currently are (glyph row and hpos).
1685 produce_glyphs fills in output fields of *IT with information such as the
1686 pixel width and height of a character, and maybe output actual glyphs at
1687 the same time if IT->glyph_row is non-null. See the explanation of
1688 struct display_iterator in dispextern.h for an overview.
1690 produce_glyphs also stores the result of glyph width, ascent
1691 etc. computations in *IT.
1693 IT->glyph_row may be null, in which case produce_glyphs does not
1694 actually fill in the glyphs. This is used in the move_* functions
1695 in xdisp.c for text width and height computations.
1697 Callers usually don't call produce_glyphs directly;
1698 instead they use the macro PRODUCE_GLYPHS. */
1704 /* If a hook is installed, let it do the work. */
1705 xassert (it
->what
== IT_CHARACTER
1706 || it
->what
== IT_COMPOSITION
1707 || it
->what
== IT_STRETCH
);
1709 if (it
->what
== IT_STRETCH
)
1711 produce_stretch_glyph (it
);
1715 /* Nothing but characters are supported on terminal frames. For a
1716 composition sequence, it->c is the first character of the
1718 xassert (it
->what
== IT_CHARACTER
1719 || it
->what
== IT_COMPOSITION
);
1721 if (it
->c
>= 040 && it
->c
< 0177)
1723 it
->pixel_width
= it
->nglyphs
= 1;
1727 else if (it
->c
== '\n')
1728 it
->pixel_width
= it
->nglyphs
= 0;
1729 else if (it
->c
== '\t')
1731 int absolute_x
= (it
->current_x
1732 + it
->continuation_lines_width
);
1734 = (((1 + absolute_x
+ it
->tab_width
- 1)
1739 /* If part of the TAB has been displayed on the previous line
1740 which is continued now, continuation_lines_width will have
1741 been incremented already by the part that fitted on the
1742 continued line. So, we will get the right number of spaces
1744 nspaces
= next_tab_x
- absolute_x
;
1751 it
->pixel_width
= it
->len
= 1;
1759 it
->pixel_width
= nspaces
;
1760 it
->nglyphs
= nspaces
;
1762 else if (CHAR_BYTE8_P (it
->c
))
1764 /* We must send the raw 8-bit byte as is to the terminal.
1765 Although there's no way to know how many columns it occupies
1766 on a screen, it is a good assumption that a single byte code
1767 has 1-column width. */
1768 it
->pixel_width
= it
->nglyphs
= 1;
1774 it
->pixel_width
= CHAR_WIDTH (it
->c
);
1775 it
->nglyphs
= it
->pixel_width
;
1782 /* Advance current_x by the pixel width as a convenience for
1784 if (it
->area
== TEXT_AREA
)
1785 it
->current_x
+= it
->pixel_width
;
1786 it
->ascent
= it
->max_ascent
= it
->phys_ascent
= it
->max_phys_ascent
= 0;
1787 it
->descent
= it
->max_descent
= it
->phys_descent
= it
->max_phys_descent
= 1;
1791 /* Produce a stretch glyph for iterator IT. IT->object is the value
1792 of the glyph property displayed. The value must be a list
1793 `(space KEYWORD VALUE ...)' with the following KEYWORD/VALUE pairs
1796 1. `:width WIDTH' specifies that the space should be WIDTH *
1797 canonical char width wide. WIDTH may be an integer or floating
1800 2. `:align-to HPOS' specifies that the space should be wide enough
1801 to reach HPOS, a value in canonical character units. */
1804 produce_stretch_glyph (it
)
1807 /* (space :width WIDTH ...) */
1808 Lisp_Object prop
, plist
;
1809 int width
= 0, align_to
= -1;
1810 int zero_width_ok_p
= 0;
1813 /* List should start with `space'. */
1814 xassert (CONSP (it
->object
) && EQ (XCAR (it
->object
), Qspace
));
1815 plist
= XCDR (it
->object
);
1817 /* Compute the width of the stretch. */
1818 if ((prop
= Fplist_get (plist
, QCwidth
), !NILP (prop
))
1819 && calc_pixel_width_or_height (&tem
, it
, prop
, 0, 1, 0))
1821 /* Absolute width `:width WIDTH' specified and valid. */
1822 zero_width_ok_p
= 1;
1823 width
= (int)(tem
+ 0.5);
1825 else if ((prop
= Fplist_get (plist
, QCalign_to
), !NILP (prop
))
1826 && calc_pixel_width_or_height (&tem
, it
, prop
, 0, 1, &align_to
))
1828 if (it
->glyph_row
== NULL
|| !it
->glyph_row
->mode_line_p
)
1829 align_to
= (align_to
< 0
1831 : align_to
- window_box_left_offset (it
->w
, TEXT_AREA
));
1832 else if (align_to
< 0)
1833 align_to
= window_box_left_offset (it
->w
, TEXT_AREA
);
1834 width
= max (0, (int)(tem
+ 0.5) + align_to
- it
->current_x
);
1835 zero_width_ok_p
= 1;
1838 /* Nothing specified -> width defaults to canonical char width. */
1839 width
= FRAME_COLUMN_WIDTH (it
->f
);
1841 if (width
<= 0 && (width
< 0 || !zero_width_ok_p
))
1844 if (width
> 0 && it
->glyph_row
)
1846 Lisp_Object o_object
= it
->object
;
1847 Lisp_Object object
= it
->stack
[it
->sp
- 1].string
;
1851 if (!STRINGP (object
))
1852 object
= it
->w
->buffer
;
1853 it
->object
= object
;
1855 it
->pixel_width
= it
->len
= 1;
1858 it
->object
= o_object
;
1861 it
->pixel_width
= width
;
1862 it
->nglyphs
= width
;
1866 /* Get information about special display element WHAT in an
1867 environment described by IT. WHAT is one of IT_TRUNCATION or
1868 IT_CONTINUATION. Maybe produce glyphs for WHAT if IT has a
1869 non-null glyph_row member. This function ensures that fields like
1870 face_id, c, len of IT are left untouched. */
1873 produce_special_glyphs (it
, what
)
1875 enum display_element_type what
;
1882 temp_it
.what
= IT_CHARACTER
;
1884 temp_it
.object
= make_number (0);
1885 bzero (&temp_it
.current
, sizeof temp_it
.current
);
1887 if (what
== IT_CONTINUATION
)
1889 /* Continuation glyph. */
1891 && INTEGERP (DISP_CONTINUE_GLYPH (it
->dp
))
1892 && GLYPH_CHAR_VALID_P (XINT (DISP_CONTINUE_GLYPH (it
->dp
))))
1894 glyph
= XINT (DISP_CONTINUE_GLYPH (it
->dp
));
1895 glyph
= spec_glyph_lookup_face (XWINDOW (it
->window
), glyph
);
1900 else if (what
== IT_TRUNCATION
)
1902 /* Truncation glyph. */
1904 && INTEGERP (DISP_TRUNC_GLYPH (it
->dp
))
1905 && GLYPH_CHAR_VALID_P (XINT (DISP_TRUNC_GLYPH (it
->dp
))))
1907 glyph
= XINT (DISP_TRUNC_GLYPH (it
->dp
));
1908 glyph
= spec_glyph_lookup_face (XWINDOW (it
->window
), glyph
);
1916 temp_it
.c
= FAST_GLYPH_CHAR (glyph
);
1917 temp_it
.face_id
= FAST_GLYPH_FACE (glyph
);
1918 temp_it
.len
= CHAR_BYTES (temp_it
.c
);
1920 produce_glyphs (&temp_it
);
1921 it
->pixel_width
= temp_it
.pixel_width
;
1922 it
->nglyphs
= temp_it
.pixel_width
;
1927 /***********************************************************************
1929 ***********************************************************************/
1931 /* Value is non-zero if attribute ATTR may be used. ATTR should be
1932 one of the enumerators from enum no_color_bit, or a bit set built
1933 from them. Some display attributes may not be used together with
1934 color; the termcap capability `NC' specifies which ones. */
1936 #define MAY_USE_WITH_COLORS_P(ATTR) \
1937 (TN_max_colors > 0 \
1938 ? (TN_no_color_video & (ATTR)) == 0 \
1941 /* Turn appearances of face FACE_ID on tty frame F on.
1942 FACE_ID is a realized face ID number, in the face cache. */
1945 turn_on_face (f
, face_id
)
1949 struct face
*face
= FACE_FROM_ID (f
, face_id
);
1950 long fg
= face
->foreground
;
1951 long bg
= face
->background
;
1953 /* Do this first because TS_end_standout_mode may be the same
1954 as TS_exit_attribute_mode, which turns all appearances off. */
1955 if (MAY_USE_WITH_COLORS_P (NC_REVERSE
))
1957 if (TN_max_colors
> 0)
1959 if (fg
>= 0 && bg
>= 0)
1961 /* If the terminal supports colors, we can set them
1962 below without using reverse video. The face's fg
1963 and bg colors are set as they should appear on
1964 the screen, i.e. they take the inverse-video'ness
1965 of the face already into account. */
1967 else if (inverse_video
)
1969 if (fg
== FACE_TTY_DEFAULT_FG_COLOR
1970 || bg
== FACE_TTY_DEFAULT_BG_COLOR
)
1971 toggle_highlight ();
1975 if (fg
== FACE_TTY_DEFAULT_BG_COLOR
1976 || bg
== FACE_TTY_DEFAULT_FG_COLOR
)
1977 toggle_highlight ();
1982 /* If we can't display colors, use reverse video
1983 if the face specifies that. */
1986 if (fg
== FACE_TTY_DEFAULT_FG_COLOR
1987 || bg
== FACE_TTY_DEFAULT_BG_COLOR
)
1988 toggle_highlight ();
1992 if (fg
== FACE_TTY_DEFAULT_BG_COLOR
1993 || bg
== FACE_TTY_DEFAULT_FG_COLOR
)
1994 toggle_highlight ();
1999 if (face
->tty_bold_p
)
2001 if (MAY_USE_WITH_COLORS_P (NC_BOLD
))
2002 OUTPUT1_IF (TS_enter_bold_mode
);
2004 else if (face
->tty_dim_p
)
2005 if (MAY_USE_WITH_COLORS_P (NC_DIM
))
2006 OUTPUT1_IF (TS_enter_dim_mode
);
2008 /* Alternate charset and blinking not yet used. */
2009 if (face
->tty_alt_charset_p
2010 && MAY_USE_WITH_COLORS_P (NC_ALT_CHARSET
))
2011 OUTPUT1_IF (TS_enter_alt_charset_mode
);
2013 if (face
->tty_blinking_p
2014 && MAY_USE_WITH_COLORS_P (NC_BLINK
))
2015 OUTPUT1_IF (TS_enter_blink_mode
);
2017 if (face
->tty_underline_p
&& MAY_USE_WITH_COLORS_P (NC_UNDERLINE
))
2018 OUTPUT1_IF (TS_enter_underline_mode
);
2020 if (TN_max_colors
> 0)
2024 if (fg
>= 0 && TS_set_foreground
)
2027 p
= tparam (TS_set_background
, NULL
, 0, (int) fg
);
2029 p
= tparam (TS_set_foreground
, NULL
, 0, (int) fg
);
2034 if (bg
>= 0 && TS_set_background
)
2037 p
= tparam (TS_set_foreground
, NULL
, 0, (int) bg
);
2039 p
= tparam (TS_set_background
, NULL
, 0, (int) bg
);
2047 /* Turn off appearances of face FACE_ID on tty frame F. */
2050 turn_off_face (f
, face_id
)
2054 struct face
*face
= FACE_FROM_ID (f
, face_id
);
2056 xassert (face
!= NULL
);
2058 if (TS_exit_attribute_mode
)
2060 /* Capability "me" will turn off appearance modes double-bright,
2061 half-bright, reverse-video, standout, underline. It may or
2062 may not turn off alt-char-mode. */
2063 if (face
->tty_bold_p
2065 || face
->tty_reverse_p
2066 || face
->tty_alt_charset_p
2067 || face
->tty_blinking_p
2068 || face
->tty_underline_p
)
2070 OUTPUT1_IF (TS_exit_attribute_mode
);
2071 if (strcmp (TS_exit_attribute_mode
, TS_end_standout_mode
) == 0)
2075 if (face
->tty_alt_charset_p
)
2076 OUTPUT_IF (TS_exit_alt_charset_mode
);
2080 /* If we don't have "me" we can only have those appearances
2081 that have exit sequences defined. */
2082 if (face
->tty_alt_charset_p
)
2083 OUTPUT_IF (TS_exit_alt_charset_mode
);
2085 if (face
->tty_underline_p
)
2086 OUTPUT_IF (TS_exit_underline_mode
);
2089 /* Switch back to default colors. */
2090 if (TN_max_colors
> 0
2091 && ((face
->foreground
!= FACE_TTY_DEFAULT_COLOR
2092 && face
->foreground
!= FACE_TTY_DEFAULT_FG_COLOR
)
2093 || (face
->background
!= FACE_TTY_DEFAULT_COLOR
2094 && face
->background
!= FACE_TTY_DEFAULT_BG_COLOR
)))
2095 OUTPUT1_IF (TS_orig_pair
);
2099 /* Return non-zero if the terminal on frame F supports all of the
2100 capabilities in CAPS simultaneously, with foreground and background
2101 colors FG and BG. */
2104 tty_capable_p (f
, caps
, fg
, bg
)
2107 unsigned long fg
, bg
;
2109 #define TTY_CAPABLE_P_TRY(cap, TS, NC_bit) \
2110 if ((caps & (cap)) && (!(TS) || !MAY_USE_WITH_COLORS_P(NC_bit))) \
2113 TTY_CAPABLE_P_TRY (TTY_CAP_INVERSE
, TS_standout_mode
, NC_REVERSE
);
2114 TTY_CAPABLE_P_TRY (TTY_CAP_UNDERLINE
, TS_enter_underline_mode
, NC_UNDERLINE
);
2115 TTY_CAPABLE_P_TRY (TTY_CAP_BOLD
, TS_enter_bold_mode
, NC_BOLD
);
2116 TTY_CAPABLE_P_TRY (TTY_CAP_DIM
, TS_enter_dim_mode
, NC_DIM
);
2117 TTY_CAPABLE_P_TRY (TTY_CAP_BLINK
, TS_enter_blink_mode
, NC_BLINK
);
2118 TTY_CAPABLE_P_TRY (TTY_CAP_ALT_CHARSET
, TS_enter_alt_charset_mode
, NC_ALT_CHARSET
);
2125 /* Return non-zero if the terminal is capable to display colors. */
2127 DEFUN ("tty-display-color-p", Ftty_display_color_p
, Stty_display_color_p
,
2129 doc
: /* Return non-nil if TTY can display colors on DISPLAY. */)
2131 Lisp_Object display
;
2133 return TN_max_colors
> 0 ? Qt
: Qnil
;
2136 /* Return the number of supported colors. */
2137 DEFUN ("tty-display-color-cells", Ftty_display_color_cells
,
2138 Stty_display_color_cells
, 0, 1, 0,
2139 doc
: /* Return the number of colors supported by TTY on DISPLAY. */)
2141 Lisp_Object display
;
2143 return make_number (TN_max_colors
);
2148 /* Save or restore the default color-related capabilities of this
2151 tty_default_color_capabilities (save
)
2155 *default_orig_pair
, *default_set_foreground
, *default_set_background
;
2156 static int default_max_colors
, default_max_pairs
, default_no_color_video
;
2160 if (default_orig_pair
)
2161 xfree (default_orig_pair
);
2162 default_orig_pair
= TS_orig_pair
? xstrdup (TS_orig_pair
) : NULL
;
2164 if (default_set_foreground
)
2165 xfree (default_set_foreground
);
2166 default_set_foreground
= TS_set_foreground
? xstrdup (TS_set_foreground
)
2169 if (default_set_background
)
2170 xfree (default_set_background
);
2171 default_set_background
= TS_set_background
? xstrdup (TS_set_background
)
2174 default_max_colors
= TN_max_colors
;
2175 default_max_pairs
= TN_max_pairs
;
2176 default_no_color_video
= TN_no_color_video
;
2180 TS_orig_pair
= default_orig_pair
;
2181 TS_set_foreground
= default_set_foreground
;
2182 TS_set_background
= default_set_background
;
2183 TN_max_colors
= default_max_colors
;
2184 TN_max_pairs
= default_max_pairs
;
2185 TN_no_color_video
= default_no_color_video
;
2189 /* Setup one of the standard tty color schemes according to MODE.
2190 MODE's value is generally the number of colors which we want to
2191 support; zero means set up for the default capabilities, the ones
2192 we saw at term_init time; -1 means turn off color support. */
2194 tty_setup_colors (mode
)
2197 /* Canonicalize all negative values of MODE. */
2203 case -1: /* no colors at all */
2206 TN_no_color_video
= 0;
2207 TS_set_foreground
= TS_set_background
= TS_orig_pair
= NULL
;
2209 case 0: /* default colors, if any */
2211 tty_default_color_capabilities (0);
2213 case 8: /* 8 standard ANSI colors */
2214 TS_orig_pair
= "\033[0m";
2216 TS_set_foreground
= "\033[3%p1%dm";
2217 TS_set_background
= "\033[4%p1%dm";
2219 TS_set_foreground
= "\033[3%dm";
2220 TS_set_background
= "\033[4%dm";
2224 TN_no_color_video
= 0;
2230 set_tty_color_mode (f
, val
)
2234 Lisp_Object color_mode_spec
, current_mode_spec
;
2235 Lisp_Object color_mode
, current_mode
;
2237 extern Lisp_Object Qtty_color_mode
;
2238 Lisp_Object tty_color_mode_alist
;
2240 tty_color_mode_alist
= Fintern_soft (build_string ("tty-color-mode-alist"),
2247 if (NILP (tty_color_mode_alist
))
2248 color_mode_spec
= Qnil
;
2250 color_mode_spec
= Fassq (val
, XSYMBOL (tty_color_mode_alist
)->value
);
2252 if (CONSP (color_mode_spec
))
2253 color_mode
= XCDR (color_mode_spec
);
2258 current_mode_spec
= assq_no_quit (Qtty_color_mode
, f
->param_alist
);
2260 if (CONSP (current_mode_spec
))
2261 current_mode
= XCDR (current_mode_spec
);
2263 current_mode
= Qnil
;
2264 if (INTEGERP (color_mode
))
2265 mode
= XINT (color_mode
);
2267 mode
= 0; /* meaning default */
2268 if (INTEGERP (current_mode
))
2269 old_mode
= XINT (current_mode
);
2273 if (mode
!= old_mode
)
2275 tty_setup_colors (mode
);
2276 /* This recomputes all the faces given the new color
2278 call0 (intern ("tty-set-up-initial-frame-faces"));
2283 #endif /* !WINDOWSNT */
2286 /***********************************************************************
2288 ***********************************************************************/
2291 term_init (terminal_type
)
2292 char *terminal_type
;
2295 char **address
= &area
;
2296 char *buffer
= NULL
;
2297 int buffer_size
= 4096;
2300 struct frame
*sf
= XFRAME (selected_frame
);
2302 encode_terminal_src_size
= 0;
2303 encode_terminal_dst_size
= 0;
2306 initialize_w32_display ();
2310 area
= (char *) xmalloc (2044);
2312 FrameRows
= FRAME_LINES (sf
);
2313 FrameCols
= FRAME_COLS (sf
);
2314 specified_window
= FRAME_LINES (sf
);
2316 delete_in_insert_mode
= 1;
2319 scroll_region_ok
= 0;
2321 /* Seems to insert lines when it's not supposed to, messing
2322 up the display. In doing a trace, it didn't seem to be
2323 called much, so I don't think we're losing anything by
2326 line_ins_del_ok
= 0;
2327 char_ins_del_ok
= 1;
2331 FRAME_CAN_HAVE_SCROLL_BARS (sf
) = 0;
2332 FRAME_VERTICAL_SCROLL_BAR_TYPE (sf
) = vertical_scroll_bar_none
;
2333 TN_max_colors
= 16; /* Required to be non-zero for tty-display-color-p */
2336 #else /* not WINDOWSNT */
2340 buffer
= (char *) xmalloc (buffer_size
);
2341 status
= tgetent (buffer
, terminal_type
);
2345 fatal ("Cannot open terminfo database file");
2347 fatal ("Cannot open termcap database file");
2353 fatal ("Terminal type %s is not defined.\n\
2354 If that is not the actual type of terminal you have,\n\
2355 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2356 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2357 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
2360 fatal ("Terminal type %s is not defined.\n\
2361 If that is not the actual type of terminal you have,\n\
2362 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2363 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2364 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
2370 if (strlen (buffer
) >= buffer_size
)
2372 buffer_size
= strlen (buffer
);
2374 area
= (char *) xmalloc (buffer_size
);
2376 TS_ins_line
= tgetstr ("al", address
);
2377 TS_ins_multi_lines
= tgetstr ("AL", address
);
2378 TS_bell
= tgetstr ("bl", address
);
2379 BackTab
= tgetstr ("bt", address
);
2380 TS_clr_to_bottom
= tgetstr ("cd", address
);
2381 TS_clr_line
= tgetstr ("ce", address
);
2382 TS_clr_frame
= tgetstr ("cl", address
);
2383 ColPosition
= NULL
; /* tgetstr ("ch", address); */
2384 AbsPosition
= tgetstr ("cm", address
);
2385 CR
= tgetstr ("cr", address
);
2386 TS_set_scroll_region
= tgetstr ("cs", address
);
2387 TS_set_scroll_region_1
= tgetstr ("cS", address
);
2388 RowPosition
= tgetstr ("cv", address
);
2389 TS_del_char
= tgetstr ("dc", address
);
2390 TS_del_multi_chars
= tgetstr ("DC", address
);
2391 TS_del_line
= tgetstr ("dl", address
);
2392 TS_del_multi_lines
= tgetstr ("DL", address
);
2393 TS_delete_mode
= tgetstr ("dm", address
);
2394 TS_end_delete_mode
= tgetstr ("ed", address
);
2395 TS_end_insert_mode
= tgetstr ("ei", address
);
2396 Home
= tgetstr ("ho", address
);
2397 TS_ins_char
= tgetstr ("ic", address
);
2398 TS_ins_multi_chars
= tgetstr ("IC", address
);
2399 TS_insert_mode
= tgetstr ("im", address
);
2400 TS_pad_inserted_char
= tgetstr ("ip", address
);
2401 TS_end_keypad_mode
= tgetstr ("ke", address
);
2402 TS_keypad_mode
= tgetstr ("ks", address
);
2403 LastLine
= tgetstr ("ll", address
);
2404 Right
= tgetstr ("nd", address
);
2405 Down
= tgetstr ("do", address
);
2407 Down
= tgetstr ("nl", address
); /* Obsolete name for "do" */
2409 /* VMS puts a carriage return before each linefeed,
2410 so it is not safe to use linefeeds. */
2411 if (Down
&& Down
[0] == '\n' && Down
[1] == '\0')
2414 if (tgetflag ("bs"))
2415 Left
= "\b"; /* can't possibly be longer! */
2416 else /* (Actually, "bs" is obsolete...) */
2417 Left
= tgetstr ("le", address
);
2419 Left
= tgetstr ("bc", address
); /* Obsolete name for "le" */
2420 TS_pad_char
= tgetstr ("pc", address
);
2421 TS_repeat
= tgetstr ("rp", address
);
2422 TS_end_standout_mode
= tgetstr ("se", address
);
2423 TS_fwd_scroll
= tgetstr ("sf", address
);
2424 TS_standout_mode
= tgetstr ("so", address
);
2425 TS_rev_scroll
= tgetstr ("sr", address
);
2426 Wcm
.cm_tab
= tgetstr ("ta", address
);
2427 TS_end_termcap_modes
= tgetstr ("te", address
);
2428 TS_termcap_modes
= tgetstr ("ti", address
);
2429 Up
= tgetstr ("up", address
);
2430 TS_visible_bell
= tgetstr ("vb", address
);
2431 TS_cursor_normal
= tgetstr ("ve", address
);
2432 TS_cursor_visible
= tgetstr ("vs", address
);
2433 TS_cursor_invisible
= tgetstr ("vi", address
);
2434 TS_set_window
= tgetstr ("wi", address
);
2436 TS_enter_underline_mode
= tgetstr ("us", address
);
2437 TS_exit_underline_mode
= tgetstr ("ue", address
);
2438 TS_enter_bold_mode
= tgetstr ("md", address
);
2439 TS_enter_dim_mode
= tgetstr ("mh", address
);
2440 TS_enter_blink_mode
= tgetstr ("mb", address
);
2441 TS_enter_reverse_mode
= tgetstr ("mr", address
);
2442 TS_enter_alt_charset_mode
= tgetstr ("as", address
);
2443 TS_exit_alt_charset_mode
= tgetstr ("ae", address
);
2444 TS_exit_attribute_mode
= tgetstr ("me", address
);
2446 MultiUp
= tgetstr ("UP", address
);
2447 MultiDown
= tgetstr ("DO", address
);
2448 MultiLeft
= tgetstr ("LE", address
);
2449 MultiRight
= tgetstr ("RI", address
);
2451 /* SVr4/ANSI color suppert. If "op" isn't available, don't support
2452 color because we can't switch back to the default foreground and
2454 TS_orig_pair
= tgetstr ("op", address
);
2457 TS_set_foreground
= tgetstr ("AF", address
);
2458 TS_set_background
= tgetstr ("AB", address
);
2459 if (!TS_set_foreground
)
2462 TS_set_foreground
= tgetstr ("Sf", address
);
2463 TS_set_background
= tgetstr ("Sb", address
);
2466 TN_max_colors
= tgetnum ("Co");
2467 TN_max_pairs
= tgetnum ("pa");
2469 TN_no_color_video
= tgetnum ("NC");
2470 if (TN_no_color_video
== -1)
2471 TN_no_color_video
= 0;
2474 tty_default_color_capabilities (1);
2476 MagicWrap
= tgetflag ("xn");
2477 /* Since we make MagicWrap terminals look like AutoWrap, we need to have
2478 the former flag imply the latter. */
2479 AutoWrap
= MagicWrap
|| tgetflag ("am");
2480 memory_below_frame
= tgetflag ("db");
2481 TF_hazeltine
= tgetflag ("hz");
2482 must_write_spaces
= tgetflag ("in");
2483 meta_key
= tgetflag ("km") || tgetflag ("MT");
2484 TF_insmode_motion
= tgetflag ("mi");
2485 TF_standout_motion
= tgetflag ("ms");
2486 TF_underscore
= tgetflag ("ul");
2487 TF_teleray
= tgetflag ("xt");
2489 term_get_fkeys (address
);
2491 /* Get frame size from system, or else from termcap. */
2494 get_frame_size (&width
, &height
);
2495 FRAME_COLS (sf
) = width
;
2496 FRAME_LINES (sf
) = height
;
2499 if (FRAME_COLS (sf
) <= 0)
2500 SET_FRAME_COLS (sf
, tgetnum ("co"));
2502 /* Keep width and external_width consistent */
2503 SET_FRAME_COLS (sf
, FRAME_COLS (sf
));
2504 if (FRAME_LINES (sf
) <= 0)
2505 FRAME_LINES (sf
) = tgetnum ("li");
2507 if (FRAME_LINES (sf
) < 3 || FRAME_COLS (sf
) < 3)
2508 fatal ("Screen size %dx%d is too small",
2509 FRAME_LINES (sf
), FRAME_COLS (sf
));
2511 min_padding_speed
= tgetnum ("pb");
2512 TabWidth
= tgetnum ("tw");
2515 /* These capabilities commonly use ^J.
2516 I don't know why, but sending them on VMS does not work;
2517 it causes following spaces to be lost, sometimes.
2518 For now, the simplest fix is to avoid using these capabilities ever. */
2519 if (Down
&& Down
[0] == '\n')
2527 TS_fwd_scroll
= Down
;
2529 PC
= TS_pad_char
? *TS_pad_char
: 0;
2534 /* Turned off since /etc/termcap seems to have :ta= for most terminals
2535 and newer termcap doc does not seem to say there is a default.
2540 /* We don't support standout modes that use `magic cookies', so
2541 turn off any that do. */
2542 if (TS_standout_mode
&& tgetnum ("sg") >= 0)
2544 TS_standout_mode
= 0;
2545 TS_end_standout_mode
= 0;
2547 if (TS_enter_underline_mode
&& tgetnum ("ug") >= 0)
2549 TS_enter_underline_mode
= 0;
2550 TS_exit_underline_mode
= 0;
2553 /* If there's no standout mode, try to use underlining instead. */
2554 if (TS_standout_mode
== 0)
2556 TS_standout_mode
= TS_enter_underline_mode
;
2557 TS_end_standout_mode
= TS_exit_underline_mode
;
2560 /* If no `se' string, try using a `me' string instead.
2561 If that fails, we can't use standout mode at all. */
2562 if (TS_end_standout_mode
== 0)
2564 char *s
= tgetstr ("me", address
);
2566 TS_end_standout_mode
= s
;
2568 TS_standout_mode
= 0;
2574 /* We can't support standout mode, because it uses magic cookies. */
2575 TS_standout_mode
= 0;
2576 /* But that means we cannot rely on ^M to go to column zero! */
2578 /* LF can't be trusted either -- can alter hpos */
2579 /* if move at column 0 thru a line with TS_standout_mode */
2583 /* Special handling for certain terminal types known to need it */
2585 if (!strcmp (terminal_type
, "supdup"))
2587 memory_below_frame
= 1;
2588 Wcm
.cm_losewrap
= 1;
2590 if (!strncmp (terminal_type
, "c10", 3)
2591 || !strcmp (terminal_type
, "perq"))
2593 /* Supply a makeshift :wi string.
2594 This string is not valid in general since it works only
2595 for windows starting at the upper left corner;
2596 but that is all Emacs uses.
2598 This string works only if the frame is using
2599 the top of the video memory, because addressing is memory-relative.
2600 So first check the :ti string to see if that is true.
2602 It would be simpler if the :wi string could go in the termcap
2603 entry, but it can't because it is not fully valid.
2604 If it were in the termcap entry, it would confuse other programs. */
2607 p
= TS_termcap_modes
;
2608 while (*p
&& strcmp (p
, "\033v "))
2611 TS_set_window
= "\033v%C %C %C %C ";
2613 /* Termcap entry often fails to have :in: flag */
2614 must_write_spaces
= 1;
2615 /* :ti string typically fails to have \E^G! in it */
2616 /* This limits scope of insert-char to one line. */
2617 strcpy (area
, TS_termcap_modes
);
2618 strcat (area
, "\033\007!");
2619 TS_termcap_modes
= area
;
2620 area
+= strlen (area
) + 1;
2622 /* Change all %+ parameters to %C, to handle
2623 values above 96 correctly for the C100. */
2626 if (p
[0] == '%' && p
[1] == '+')
2632 FrameRows
= FRAME_LINES (sf
);
2633 FrameCols
= FRAME_COLS (sf
);
2634 specified_window
= FRAME_LINES (sf
);
2636 if (Wcm_init () == -1) /* can't do cursor motion */
2638 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2639 It lacks the ability to position the cursor.\n\
2640 If that is not the actual type of terminal you have, use either the\n\
2641 DCL command `SET TERMINAL/DEVICE= ...' for DEC-compatible terminals,\n\
2642 or `define EMACS_TERM \"terminal type\"' for non-DEC terminals.",
2646 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2647 It lacks the ability to position the cursor.\n\
2648 If that is not the actual type of terminal you have,\n\
2649 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2650 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2651 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
2653 # else /* TERMCAP */
2654 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2655 It lacks the ability to position the cursor.\n\
2656 If that is not the actual type of terminal you have,\n\
2657 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2658 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2659 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
2661 # endif /* TERMINFO */
2663 if (FRAME_LINES (sf
) <= 0
2664 || FRAME_COLS (sf
) <= 0)
2665 fatal ("The frame size has not been specified");
2667 delete_in_insert_mode
2668 = TS_delete_mode
&& TS_insert_mode
2669 && !strcmp (TS_delete_mode
, TS_insert_mode
);
2671 se_is_so
= (TS_standout_mode
2672 && TS_end_standout_mode
2673 && !strcmp (TS_standout_mode
, TS_end_standout_mode
));
2675 UseTabs
= tabs_safe_p () && TabWidth
== 8;
2679 && (TS_set_window
|| TS_set_scroll_region
|| TS_set_scroll_region_1
));
2681 line_ins_del_ok
= (((TS_ins_line
|| TS_ins_multi_lines
)
2682 && (TS_del_line
|| TS_del_multi_lines
))
2683 || (scroll_region_ok
&& TS_fwd_scroll
&& TS_rev_scroll
));
2685 char_ins_del_ok
= ((TS_ins_char
|| TS_insert_mode
2686 || TS_pad_inserted_char
|| TS_ins_multi_chars
)
2687 && (TS_del_char
|| TS_del_multi_chars
));
2689 fast_clear_end_of_line
= TS_clr_line
!= 0;
2692 if (read_socket_hook
) /* Baudrate is somewhat */
2693 /* meaningless in this case */
2696 FRAME_CAN_HAVE_SCROLL_BARS (sf
) = 0;
2697 FRAME_VERTICAL_SCROLL_BAR_TYPE (sf
) = vertical_scroll_bar_none
;
2698 #endif /* WINDOWSNT */
2705 fatal (str
, arg1
, arg2
)
2706 char *str
, *arg1
, *arg2
;
2708 fprintf (stderr
, "emacs: ");
2709 fprintf (stderr
, str
, arg1
, arg2
);
2710 fprintf (stderr
, "\n");
2715 DEFUN ("tty-no-underline", Ftty_no_underline
, Stty_no_underline
, 0, 0, 0,
2716 doc
: /* Declare that this terminal does not handle underlining.
2717 This is used to override the terminfo data, for certain terminals that
2718 do not really do underlining, but say that they do. */)
2721 TS_enter_underline_mode
= 0;
2728 DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo
,
2729 doc
: /* Non-nil means the system uses terminfo rather than termcap.
2730 This variable can be used by terminal emulator packages. */);
2732 system_uses_terminfo
= 1;
2734 system_uses_terminfo
= 0;
2737 DEFVAR_LISP ("ring-bell-function", &Vring_bell_function
,
2738 doc
: /* Non-nil means call this function to ring the bell.
2739 The function should accept no arguments. */);
2740 Vring_bell_function
= Qnil
;
2742 defsubr (&Stty_display_color_p
);
2743 defsubr (&Stty_display_color_cells
);
2744 defsubr (&Stty_no_underline
);
2747 /* arch-tag: 498e7449-6f2e-45e2-91dd-b7d4ca488193
2748 (do not change this comment) */