1 /* Terminal hooks for GNU Emacs on the Microsoft Windows API.
2 Copyright (C) 1992, 1999, 2001-2013 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
20 Tim Fleehart (apollo@online.com) 1-17-92
21 Geoff Voelker (voelker@cs.washington.edu) 9-12-93
31 #include "character.h"
36 #include "termhooks.h"
38 #include "dispextern.h"
40 #include "w32common.h" /* for os_subtype */
44 extern Lisp_Object
Frecenter (Lisp_Object
);
46 static void w32con_move_cursor (struct frame
*f
, int row
, int col
);
47 static void w32con_clear_to_end (struct frame
*f
);
48 static void w32con_clear_frame (struct frame
*f
);
49 static void w32con_clear_end_of_line (struct frame
*f
, int);
50 static void w32con_ins_del_lines (struct frame
*f
, int vpos
, int n
);
51 static void w32con_insert_glyphs (struct frame
*f
, struct glyph
*start
, int len
);
52 static void w32con_write_glyphs (struct frame
*f
, struct glyph
*string
, int len
);
53 static void w32con_delete_glyphs (struct frame
*f
, int n
);
54 static void w32con_reset_terminal_modes (struct terminal
*t
);
55 static void w32con_set_terminal_modes (struct terminal
*t
);
56 static void w32con_set_terminal_window (struct frame
*f
, int size
);
57 static void w32con_update_begin (struct frame
* f
);
58 static void w32con_update_end (struct frame
* f
);
59 static WORD
w32_face_attributes (struct frame
*f
, int face_id
);
61 static COORD cursor_coords
;
62 static HANDLE prev_screen
, cur_screen
;
63 static WORD char_attr_normal
;
64 static DWORD prev_console_mode
;
66 #ifndef USE_SEPARATE_SCREEN
67 static CONSOLE_CURSOR_INFO prev_console_cursor
;
70 HANDLE keyboard_handle
;
71 int w32_console_unicode_input
;
74 /* Setting this as the ctrl handler prevents emacs from being killed when
75 someone hits ^C in a 'suspended' session (child shell).
76 Also ignore Ctrl-Break signals. */
79 ctrl_c_handler (unsigned long type
)
81 /* Only ignore "interrupt" events when running interactively. */
82 return (!noninteractive
83 && (type
== CTRL_C_EVENT
|| type
== CTRL_BREAK_EVENT
));
87 /* Move the cursor to (ROW, COL) on FRAME. */
89 w32con_move_cursor (struct frame
*f
, int row
, int col
)
91 cursor_coords
.X
= col
;
92 cursor_coords
.Y
= row
;
94 /* TODO: for multi-tty support, cur_screen should be replaced with a
95 reference to the terminal for this frame. */
96 SetConsoleCursorPosition (cur_screen
, cursor_coords
);
99 /* Clear from cursor to end of screen. */
101 w32con_clear_to_end (struct frame
*f
)
103 w32con_clear_end_of_line (f
, FRAME_COLS (f
) - 1);
104 w32con_ins_del_lines (f
, cursor_coords
.Y
, FRAME_LINES (f
) - cursor_coords
.Y
- 1);
107 /* Clear the frame. */
109 w32con_clear_frame (struct frame
*f
)
114 CONSOLE_SCREEN_BUFFER_INFO info
;
116 GetConsoleScreenBufferInfo (GetStdHandle (STD_OUTPUT_HANDLE
), &info
);
118 /* Remember that the screen buffer might be wider than the window. */
119 n
= FRAME_LINES (f
) * info
.dwSize
.X
;
122 FillConsoleOutputAttribute (cur_screen
, char_attr_normal
, n
, dest
, &r
);
123 FillConsoleOutputCharacter (cur_screen
, ' ', n
, dest
, &r
);
125 w32con_move_cursor (f
, 0, 0);
129 static struct glyph glyph_base
[256];
130 static BOOL ceol_initialized
= FALSE
;
132 /* Clear from Cursor to end (what's "standout marker"?). */
134 w32con_clear_end_of_line (struct frame
*f
, int end
)
136 if (!ceol_initialized
)
139 for (i
= 0; i
< 256; i
++)
141 memcpy (&glyph_base
[i
], &space_glyph
, sizeof (struct glyph
));
143 ceol_initialized
= TRUE
;
145 w32con_write_glyphs (f
, glyph_base
, end
- cursor_coords
.X
); /* fencepost ? */
148 /* Insert n lines at vpos. if n is negative delete -n lines. */
150 w32con_ins_del_lines (struct frame
*f
, int vpos
, int n
)
160 scroll
.Top
= vpos
- n
;
161 scroll
.Bottom
= FRAME_LINES (f
);
167 scroll
.Bottom
= FRAME_LINES (f
) - n
;
170 clip
.Top
= clip
.Left
= scroll
.Left
= 0;
171 clip
.Right
= scroll
.Right
= FRAME_COLS (f
);
172 clip
.Bottom
= FRAME_LINES (f
);
176 fill
.Char
.AsciiChar
= 0x20;
177 fill
.Attributes
= char_attr_normal
;
179 ScrollConsoleScreenBuffer (cur_screen
, &scroll
, &clip
, dest
, &fill
);
181 /* Here we have to deal with a w32 console flake: If the scroll
182 region looks like abc and we scroll c to a and fill with d we get
183 cbd... if we scroll block c one line at a time to a, we get cdd...
184 Emacs expects cdd consistently... So we have to deal with that
185 here... (this also occurs scrolling the same way in the other
190 if (scroll
.Bottom
< dest
.Y
)
192 for (i
= scroll
.Bottom
; i
< dest
.Y
; i
++)
194 w32con_move_cursor (f
, i
, 0);
195 w32con_clear_end_of_line (f
, FRAME_COLS (f
));
201 nb
= dest
.Y
+ (scroll
.Bottom
- scroll
.Top
) + 1;
205 for (i
= nb
; i
< scroll
.Top
; i
++)
207 w32con_move_cursor (f
, i
, 0);
208 w32con_clear_end_of_line (f
, FRAME_COLS (f
));
214 cursor_coords
.Y
= vpos
;
223 scroll_line (struct frame
*f
, int dist
, int direction
)
225 /* The idea here is to implement a horizontal scroll in one line to
226 implement delete and half of insert. */
227 SMALL_RECT scroll
, clip
;
231 clip
.Top
= scroll
.Top
= clip
.Bottom
= scroll
.Bottom
= cursor_coords
.Y
;
233 clip
.Right
= FRAME_COLS (f
);
235 if (direction
== LEFT
)
237 scroll
.Left
= cursor_coords
.X
+ dist
;
238 scroll
.Right
= FRAME_COLS (f
) - 1;
242 scroll
.Left
= cursor_coords
.X
;
243 scroll
.Right
= FRAME_COLS (f
) - dist
- 1;
246 dest
.X
= cursor_coords
.X
;
247 dest
.Y
= cursor_coords
.Y
;
249 fill
.Char
.AsciiChar
= 0x20;
250 fill
.Attributes
= char_attr_normal
;
252 ScrollConsoleScreenBuffer (cur_screen
, &scroll
, &clip
, dest
, &fill
);
256 /* If start is zero insert blanks instead of a string at start ?. */
258 w32con_insert_glyphs (struct frame
*f
, register struct glyph
*start
,
261 scroll_line (f
, len
, RIGHT
);
263 /* Move len chars to the right starting at cursor_coords, fill with blanks */
266 /* Print the first len characters of start, cursor_coords.X adjusted
269 w32con_write_glyphs (f
, start
, len
);
273 w32con_clear_end_of_line (f
, cursor_coords
.X
+ len
);
278 w32con_write_glyphs (struct frame
*f
, register struct glyph
*string
,
283 unsigned char *conversion_buffer
;
284 struct coding_system
*coding
;
289 /* If terminal_coding does any conversion, use it, otherwise use
290 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
291 because it always return 1 if the member src_multibyte is 1. */
292 coding
= (FRAME_TERMINAL_CODING (f
)->common_flags
& CODING_REQUIRE_ENCODING_MASK
293 ? FRAME_TERMINAL_CODING (f
) : &safe_terminal_coding
);
294 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
296 coding
->mode
&= ~CODING_MODE_LAST_BLOCK
;
300 /* Identify a run of glyphs with the same face. */
301 int face_id
= string
->face_id
;
304 for (n
= 1; n
< len
; ++n
)
305 if (string
[n
].face_id
!= face_id
)
308 /* Turn appearance modes of the face of the run on. */
309 char_attr
= w32_face_attributes (f
, face_id
);
312 /* This is the last run. */
313 coding
->mode
|= CODING_MODE_LAST_BLOCK
;
314 conversion_buffer
= encode_terminal_code (string
, n
, coding
);
315 if (coding
->produced
> 0)
317 /* Set the attribute for these characters. */
318 if (!FillConsoleOutputAttribute (cur_screen
, char_attr
,
319 coding
->produced
, cursor_coords
,
322 printf ("Failed writing console attributes: %d\n",
327 /* Write the characters. */
328 if (!WriteConsoleOutputCharacter (cur_screen
, conversion_buffer
,
329 coding
->produced
, cursor_coords
,
332 printf ("Failed writing console characters: %d\n",
337 cursor_coords
.X
+= coding
->produced
;
338 w32con_move_cursor (f
, cursor_coords
.Y
, cursor_coords
.X
);
345 /* Used for mouse highlight. */
347 w32con_write_glyphs_with_face (struct frame
*f
, register int x
, register int y
,
348 register struct glyph
*string
, register int len
,
349 register int face_id
)
351 unsigned char *conversion_buffer
;
352 struct coding_system
*coding
;
357 /* If terminal_coding does any conversion, use it, otherwise use
358 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
359 because it always return 1 if the member src_multibyte is 1. */
360 coding
= (FRAME_TERMINAL_CODING (f
)->common_flags
& CODING_REQUIRE_ENCODING_MASK
361 ? FRAME_TERMINAL_CODING (f
) : &safe_terminal_coding
);
362 /* We are going to write the entire block of glyphs in one go, as
363 they all have the same face. So this _is_ the last block. */
364 coding
->mode
|= CODING_MODE_LAST_BLOCK
;
366 conversion_buffer
= encode_terminal_code (string
, len
, coding
);
367 if (coding
->produced
> 0)
369 DWORD filled
, written
;
370 /* Compute the character attributes corresponding to the face. */
371 DWORD char_attr
= w32_face_attributes (f
, face_id
);
376 /* Set the attribute for these characters. */
377 if (!FillConsoleOutputAttribute (cur_screen
, char_attr
,
378 coding
->produced
, start_coords
,
380 DebPrint (("Failed writing console attributes: %d\n", GetLastError ()));
383 /* Write the characters. */
384 if (!WriteConsoleOutputCharacter (cur_screen
, conversion_buffer
,
385 filled
, start_coords
, &written
))
386 DebPrint (("Failed writing console characters: %d\n",
392 /* Implementation of draw_row_with_mouse_face for W32 console. */
394 tty_draw_row_with_mouse_face (struct window
*w
, struct glyph_row
*row
,
395 int start_hpos
, int end_hpos
,
396 enum draw_glyphs_face draw
)
398 int nglyphs
= end_hpos
- start_hpos
;
399 struct frame
*f
= XFRAME (WINDOW_FRAME (w
));
400 struct tty_display_info
*tty
= FRAME_TTY (f
);
401 int face_id
= tty
->mouse_highlight
.mouse_face_face_id
;
404 if (end_hpos
>= row
->used
[TEXT_AREA
])
405 nglyphs
= row
->used
[TEXT_AREA
] - start_hpos
;
407 pos_y
= row
->y
+ WINDOW_TOP_EDGE_Y (w
);
408 pos_x
= row
->used
[LEFT_MARGIN_AREA
] + start_hpos
+ WINDOW_LEFT_EDGE_X (w
);
410 if (draw
== DRAW_MOUSE_FACE
)
411 w32con_write_glyphs_with_face (f
, pos_x
, pos_y
,
412 row
->glyphs
[TEXT_AREA
] + start_hpos
,
414 else if (draw
== DRAW_NORMAL_TEXT
)
416 COORD save_coords
= cursor_coords
;
418 w32con_move_cursor (f
, pos_y
, pos_x
);
419 write_glyphs (f
, row
->glyphs
[TEXT_AREA
] + start_hpos
, nglyphs
);
420 w32con_move_cursor (f
, save_coords
.Y
, save_coords
.X
);
425 w32con_delete_glyphs (struct frame
*f
, int n
)
427 /* delete chars means scroll chars from cursor_coords.X + n to
428 cursor_coords.X, anything beyond the edge of the screen should
431 scroll_line (f
, n
, LEFT
);
436 w32con_reset_terminal_modes (struct terminal
*t
)
439 CONSOLE_SCREEN_BUFFER_INFO info
;
443 /* Clear the complete screen buffer. This is required because Emacs
444 sets the cursor position to the top of the buffer, but there might
445 be other output below the bottom of the Emacs frame if the screen buffer
446 is larger than the window size. */
447 GetConsoleScreenBufferInfo (cur_screen
, &info
);
450 n
= info
.dwSize
.X
* info
.dwSize
.Y
;
452 FillConsoleOutputAttribute (cur_screen
, char_attr_normal
, n
, dest
, &r
);
453 FillConsoleOutputCharacter (cur_screen
, ' ', n
, dest
, &r
);
454 /* Now that the screen is clear, put the cursor at the top. */
455 SetConsoleCursorPosition (cur_screen
, dest
);
457 #ifdef USE_SEPARATE_SCREEN
458 SetConsoleActiveScreenBuffer (prev_screen
);
460 SetConsoleCursorInfo (prev_screen
, &prev_console_cursor
);
463 SetConsoleMode (keyboard_handle
, prev_console_mode
);
467 w32con_set_terminal_modes (struct terminal
*t
)
469 CONSOLE_CURSOR_INFO cci
;
471 /* make cursor big and visible (100 on Windows 95 makes it disappear) */
474 (void) SetConsoleCursorInfo (cur_screen
, &cci
);
476 SetConsoleActiveScreenBuffer (cur_screen
);
478 SetConsoleMode (keyboard_handle
, ENABLE_MOUSE_INPUT
| ENABLE_WINDOW_INPUT
);
480 /* Initialize input mode: interrupt_input off, no flow control, allow
481 8 bit character input, standard quit char. */
482 Fset_input_mode (Qnil
, Qnil
, make_number (2), Qnil
);
485 /* hmmm... perhaps these let us bracket screen changes so that we can flush
486 clumps rather than one-character-at-a-time...
488 we'll start with not moving the cursor while an update is in progress. */
490 w32con_update_begin (struct frame
* f
)
495 w32con_update_end (struct frame
* f
)
497 SetConsoleCursorPosition (cur_screen
, cursor_coords
);
501 w32con_set_terminal_window (struct frame
*f
, int size
)
505 /***********************************************************************
507 ***********************************************************************/
510 sys_tputs (char *str
, int nlines
, int (*outfun
) (int))
515 sys_tgetstr (char *cap
, char **area
)
521 /***********************************************************************
523 ***********************************************************************/
525 struct tty_display_info
*current_tty
= NULL
;
541 cmcheckmagic (struct tty_display_info
*tty
)
546 cmcostinit (struct tty_display_info
*tty
)
551 cmgoto (struct tty_display_info
*tty
, int row
, int col
)
556 Wcm_clear (struct tty_display_info
*tty
)
561 /***********************************************************************
563 ***********************************************************************/
566 /* Turn appearances of face FACE_ID on tty frame F on. */
569 w32_face_attributes (struct frame
*f
, int face_id
)
572 struct face
*face
= FACE_FROM_ID (f
, face_id
);
574 eassert (face
!= NULL
);
576 char_attr
= char_attr_normal
;
578 /* Reverse the default color if requested. If background and
579 foreground are specified, then they have been reversed already. */
580 if (face
->tty_reverse_p
)
581 char_attr
= (char_attr
& 0xff00) + ((char_attr
& 0x000f) << 4)
582 + ((char_attr
& 0x00f0) >> 4);
584 /* Before the terminal is properly initialized, all colors map to 0.
585 Don't try to resolve them. */
586 if (NILP (Vtty_defined_color_alist
))
589 /* Colors should be in the range 0...15 unless they are one of
590 FACE_TTY_DEFAULT_COLOR, FACE_TTY_DEFAULT_FG_COLOR or
591 FACE_TTY_DEFAULT_BG_COLOR. Other out of range colors are
592 invalid, so it is better to use the default color if they ever
593 get through to here. */
594 if (face
->foreground
>= 0 && face
->foreground
< 16)
595 char_attr
= (char_attr
& 0xfff0) + face
->foreground
;
597 if (face
->background
>= 0 && face
->background
< 16)
598 char_attr
= (char_attr
& 0xff0f) + (face
->background
<< 4);
604 initialize_w32_display (struct terminal
*term
, int *width
, int *height
)
606 CONSOLE_SCREEN_BUFFER_INFO info
;
607 Mouse_HLInfo
*hlinfo
;
609 term
->rif
= 0; /* No window based redisplay on the console. */
610 term
->cursor_to_hook
= w32con_move_cursor
;
611 term
->raw_cursor_to_hook
= w32con_move_cursor
;
612 term
->clear_to_end_hook
= w32con_clear_to_end
;
613 term
->clear_frame_hook
= w32con_clear_frame
;
614 term
->clear_end_of_line_hook
= w32con_clear_end_of_line
;
615 term
->ins_del_lines_hook
= w32con_ins_del_lines
;
616 term
->insert_glyphs_hook
= w32con_insert_glyphs
;
617 term
->write_glyphs_hook
= w32con_write_glyphs
;
618 term
->delete_glyphs_hook
= w32con_delete_glyphs
;
619 term
->ring_bell_hook
= w32_sys_ring_bell
;
620 term
->reset_terminal_modes_hook
= w32con_reset_terminal_modes
;
621 term
->set_terminal_modes_hook
= w32con_set_terminal_modes
;
622 term
->set_terminal_window_hook
= w32con_set_terminal_window
;
623 term
->update_begin_hook
= w32con_update_begin
;
624 term
->update_end_hook
= w32con_update_end
;
626 term
->read_socket_hook
= w32_console_read_socket
;
627 term
->mouse_position_hook
= w32_console_mouse_position
;
629 /* The following are not used on the console. */
630 term
->frame_rehighlight_hook
= 0;
631 term
->frame_raise_lower_hook
= 0;
632 term
->set_vertical_scroll_bar_hook
= 0;
633 term
->condemn_scroll_bars_hook
= 0;
634 term
->redeem_scroll_bar_hook
= 0;
635 term
->judge_scroll_bars_hook
= 0;
636 term
->frame_up_to_date_hook
= 0;
638 /* Initialize the mouse-highlight data. */
639 reset_mouse_highlight (&term
->display_info
.tty
->mouse_highlight
);
641 /* Initialize interrupt_handle. */
644 /* Remember original console settings. */
645 keyboard_handle
= GetStdHandle (STD_INPUT_HANDLE
);
646 GetConsoleMode (keyboard_handle
, &prev_console_mode
);
648 prev_screen
= GetStdHandle (STD_OUTPUT_HANDLE
);
650 #ifdef USE_SEPARATE_SCREEN
651 cur_screen
= CreateConsoleScreenBuffer (GENERIC_READ
| GENERIC_WRITE
,
653 CONSOLE_TEXTMODE_BUFFER
,
656 if (cur_screen
== INVALID_HANDLE_VALUE
)
658 printf ("CreateConsoleScreenBuffer failed in ResetTerm\n");
659 printf ("LastError = 0x%lx\n", GetLastError ());
664 cur_screen
= prev_screen
;
665 GetConsoleCursorInfo (prev_screen
, &prev_console_cursor
);
668 /* Respect setting of LINES and COLUMNS environment variables. */
670 char * lines
= getenv ("LINES");
671 char * columns
= getenv ("COLUMNS");
673 if (lines
!= NULL
&& columns
!= NULL
)
675 SMALL_RECT new_win_dims
;
678 new_size
.X
= atoi (columns
);
679 new_size
.Y
= atoi (lines
);
681 GetConsoleScreenBufferInfo (cur_screen
, &info
);
683 /* Shrink the window first, so the buffer dimensions can be
684 reduced if necessary. */
685 new_win_dims
.Top
= 0;
686 new_win_dims
.Left
= 0;
687 new_win_dims
.Bottom
= min (new_size
.Y
, info
.dwSize
.Y
) - 1;
688 new_win_dims
.Right
= min (new_size
.X
, info
.dwSize
.X
) - 1;
689 SetConsoleWindowInfo (cur_screen
, TRUE
, &new_win_dims
);
691 SetConsoleScreenBufferSize (cur_screen
, new_size
);
693 /* Set the window size to match the buffer dimension. */
694 new_win_dims
.Top
= 0;
695 new_win_dims
.Left
= 0;
696 new_win_dims
.Bottom
= new_size
.Y
- 1;
697 new_win_dims
.Right
= new_size
.X
- 1;
698 SetConsoleWindowInfo (cur_screen
, TRUE
, &new_win_dims
);
702 GetConsoleScreenBufferInfo (cur_screen
, &info
);
704 char_attr_normal
= info
.wAttributes
;
706 /* Determine if the info returned by GetConsoleScreenBufferInfo
707 is realistic. Old MS Telnet servers used to only fill out
708 the dwSize portion, even modern one fill the whole struct with
709 garbage when using non-MS telnet clients. */
710 if ((w32_use_full_screen_buffer
711 && (info
.dwSize
.Y
< 20 || info
.dwSize
.Y
> 100
712 || info
.dwSize
.X
< 40 || info
.dwSize
.X
> 200))
713 || (!w32_use_full_screen_buffer
714 && (info
.srWindow
.Bottom
- info
.srWindow
.Top
< 20
715 || info
.srWindow
.Bottom
- info
.srWindow
.Top
> 100
716 || info
.srWindow
.Right
- info
.srWindow
.Left
< 40
717 || info
.srWindow
.Right
- info
.srWindow
.Left
> 100)))
723 else if (w32_use_full_screen_buffer
)
725 *height
= info
.dwSize
.Y
; /* lines per page */
726 *width
= info
.dwSize
.X
; /* characters per line */
730 /* Lines per page. Use buffer coords instead of buffer size. */
731 *height
= 1 + info
.srWindow
.Bottom
- info
.srWindow
.Top
;
732 /* Characters per line. Use buffer coords instead of buffer size. */
733 *width
= 1 + info
.srWindow
.Right
- info
.srWindow
.Left
;
736 if (os_subtype
== OS_NT
)
737 w32_console_unicode_input
= 1;
739 w32_console_unicode_input
= 0;
741 /* This is needed by w32notify.c:send_notifications. */
742 dwMainThreadId
= GetCurrentThreadId ();
744 /* Setup w32_display_info structure for this frame. */
746 w32_initialize_display_info (build_string ("Console"));
751 DEFUN ("set-screen-color", Fset_screen_color
, Sset_screen_color
, 2, 2, 0,
752 doc
: /* Set screen foreground and background colors.
754 Arguments should be indices between 0 and 15, see w32console.el. */)
755 (Lisp_Object foreground
, Lisp_Object background
)
757 char_attr_normal
= XFASTINT (foreground
) + (XFASTINT (background
) << 4);
763 DEFUN ("get-screen-color", Fget_screen_color
, Sget_screen_color
, 0, 0, 0,
764 doc
: /* Get color indices of the current screen foreground and background.
766 The colors are returned as a list of 2 indices (FOREGROUND BACKGROUND).
767 See w32console.el and `tty-defined-color-alist' for mapping of indices
771 return Fcons (make_number (char_attr_normal
& 0x000f),
772 Fcons (make_number ((char_attr_normal
>> 4) & 0x000f), Qnil
));
775 DEFUN ("set-cursor-size", Fset_cursor_size
, Sset_cursor_size
, 1, 1, 0,
776 doc
: /* Set cursor size. */)
779 CONSOLE_CURSOR_INFO cci
;
780 cci
.dwSize
= XFASTINT (size
);
782 (void) SetConsoleCursorInfo (cur_screen
, &cci
);
788 syms_of_ntterm (void)
790 DEFVAR_BOOL ("w32-use-full-screen-buffer",
791 w32_use_full_screen_buffer
,
792 doc
: /* Non-nil means make terminal frames use the full screen buffer dimensions.
793 This is desirable when running Emacs over telnet.
794 A value of nil means use the current console window dimensions; this
795 may be preferable when working directly at the console with a large
796 scroll-back buffer. */);
797 w32_use_full_screen_buffer
= 0;
799 defsubr (&Sset_screen_color
);
800 defsubr (&Sget_screen_color
);
801 defsubr (&Sset_cursor_size
);