1 /* Terminal hooks for GNU Emacs on the Microsoft Windows API.
2 Copyright (C) 1992, 1999, 2001-2012 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
32 #include "character.h"
37 #include "termhooks.h"
39 #include "dispextern.h"
40 #include "w32heap.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
);
434 static unsigned int sound_type
= 0xFFFFFFFF;
435 #define MB_EMACS_SILENT (0xFFFFFFFF - 1)
438 w32_sys_ring_bell (struct frame
*f
)
440 if (sound_type
== 0xFFFFFFFF)
444 else if (sound_type
== MB_EMACS_SILENT
)
449 MessageBeep (sound_type
);
452 DEFUN ("set-message-beep", Fset_message_beep
, Sset_message_beep
, 1, 1, 0,
453 doc
: /* Set the sound generated when the bell is rung.
454 SOUND is 'asterisk, 'exclamation, 'hand, 'question, 'ok, or 'silent
455 to use the corresponding system sound for the bell. The 'silent sound
456 prevents Emacs from making any sound at all.
457 SOUND is nil to use the normal beep. */)
460 CHECK_SYMBOL (sound
);
463 sound_type
= 0xFFFFFFFF;
464 else if (EQ (sound
, intern ("asterisk")))
465 sound_type
= MB_ICONASTERISK
;
466 else if (EQ (sound
, intern ("exclamation")))
467 sound_type
= MB_ICONEXCLAMATION
;
468 else if (EQ (sound
, intern ("hand")))
469 sound_type
= MB_ICONHAND
;
470 else if (EQ (sound
, intern ("question")))
471 sound_type
= MB_ICONQUESTION
;
472 else if (EQ (sound
, intern ("ok")))
474 else if (EQ (sound
, intern ("silent")))
475 sound_type
= MB_EMACS_SILENT
;
477 sound_type
= 0xFFFFFFFF;
483 w32con_reset_terminal_modes (struct terminal
*t
)
486 CONSOLE_SCREEN_BUFFER_INFO info
;
490 /* Clear the complete screen buffer. This is required because Emacs
491 sets the cursor position to the top of the buffer, but there might
492 be other output below the bottom of the Emacs frame if the screen buffer
493 is larger than the window size. */
494 GetConsoleScreenBufferInfo (cur_screen
, &info
);
497 n
= info
.dwSize
.X
* info
.dwSize
.Y
;
499 FillConsoleOutputAttribute (cur_screen
, char_attr_normal
, n
, dest
, &r
);
500 FillConsoleOutputCharacter (cur_screen
, ' ', n
, dest
, &r
);
501 /* Now that the screen is clear, put the cursor at the top. */
502 SetConsoleCursorPosition (cur_screen
, dest
);
504 #ifdef USE_SEPARATE_SCREEN
505 SetConsoleActiveScreenBuffer (prev_screen
);
507 SetConsoleCursorInfo (prev_screen
, &prev_console_cursor
);
510 SetConsoleMode (keyboard_handle
, prev_console_mode
);
514 w32con_set_terminal_modes (struct terminal
*t
)
516 CONSOLE_CURSOR_INFO cci
;
518 /* make cursor big and visible (100 on Windows 95 makes it disappear) */
521 (void) SetConsoleCursorInfo (cur_screen
, &cci
);
523 SetConsoleActiveScreenBuffer (cur_screen
);
525 SetConsoleMode (keyboard_handle
, ENABLE_MOUSE_INPUT
| ENABLE_WINDOW_INPUT
);
527 /* Initialize input mode: interrupt_input off, no flow control, allow
528 8 bit character input, standard quit char. */
529 Fset_input_mode (Qnil
, Qnil
, make_number (2), Qnil
);
532 /* hmmm... perhaps these let us bracket screen changes so that we can flush
533 clumps rather than one-character-at-a-time...
535 we'll start with not moving the cursor while an update is in progress. */
537 w32con_update_begin (struct frame
* f
)
542 w32con_update_end (struct frame
* f
)
544 SetConsoleCursorPosition (cur_screen
, cursor_coords
);
548 w32con_set_terminal_window (struct frame
*f
, int size
)
552 /***********************************************************************
554 ***********************************************************************/
557 sys_tputs (char *str
, int nlines
, int (*outfun
) (int))
562 sys_tgetstr (char *cap
, char **area
)
568 /***********************************************************************
570 ***********************************************************************/
572 struct tty_display_info
*current_tty
= NULL
;
588 cmcheckmagic (struct tty_display_info
*tty
)
593 cmcostinit (struct tty_display_info
*tty
)
598 cmgoto (struct tty_display_info
*tty
, int row
, int col
)
603 Wcm_clear (struct tty_display_info
*tty
)
608 /***********************************************************************
610 ***********************************************************************/
613 /* Turn appearances of face FACE_ID on tty frame F on. */
616 w32_face_attributes (struct frame
*f
, int face_id
)
619 struct face
*face
= FACE_FROM_ID (f
, face_id
);
621 eassert (face
!= NULL
);
623 char_attr
= char_attr_normal
;
625 /* Reverse the default color if requested. If background and
626 foreground are specified, then they have been reversed already. */
627 if (face
->tty_reverse_p
)
628 char_attr
= (char_attr
& 0xff00) + ((char_attr
& 0x000f) << 4)
629 + ((char_attr
& 0x00f0) >> 4);
631 /* Before the terminal is properly initialized, all colors map to 0.
632 Don't try to resolve them. */
633 if (NILP (Vtty_defined_color_alist
))
636 /* Colors should be in the range 0...15 unless they are one of
637 FACE_TTY_DEFAULT_COLOR, FACE_TTY_DEFAULT_FG_COLOR or
638 FACE_TTY_DEFAULT_BG_COLOR. Other out of range colors are
639 invalid, so it is better to use the default color if they ever
640 get through to here. */
641 if (face
->foreground
>= 0 && face
->foreground
< 16)
642 char_attr
= (char_attr
& 0xfff0) + face
->foreground
;
644 if (face
->background
>= 0 && face
->background
< 16)
645 char_attr
= (char_attr
& 0xff0f) + (face
->background
<< 4);
651 initialize_w32_display (struct terminal
*term
)
653 CONSOLE_SCREEN_BUFFER_INFO info
;
654 Mouse_HLInfo
*hlinfo
;
656 term
->rif
= 0; /* No window based redisplay on the console. */
657 term
->cursor_to_hook
= w32con_move_cursor
;
658 term
->raw_cursor_to_hook
= w32con_move_cursor
;
659 term
->clear_to_end_hook
= w32con_clear_to_end
;
660 term
->clear_frame_hook
= w32con_clear_frame
;
661 term
->clear_end_of_line_hook
= w32con_clear_end_of_line
;
662 term
->ins_del_lines_hook
= w32con_ins_del_lines
;
663 term
->insert_glyphs_hook
= w32con_insert_glyphs
;
664 term
->write_glyphs_hook
= w32con_write_glyphs
;
665 term
->delete_glyphs_hook
= w32con_delete_glyphs
;
666 term
->ring_bell_hook
= w32_sys_ring_bell
;
667 term
->reset_terminal_modes_hook
= w32con_reset_terminal_modes
;
668 term
->set_terminal_modes_hook
= w32con_set_terminal_modes
;
669 term
->set_terminal_window_hook
= w32con_set_terminal_window
;
670 term
->update_begin_hook
= w32con_update_begin
;
671 term
->update_end_hook
= w32con_update_end
;
673 term
->read_socket_hook
= w32_console_read_socket
;
674 term
->mouse_position_hook
= w32_console_mouse_position
;
676 /* The following are not used on the console. */
677 term
->frame_rehighlight_hook
= 0;
678 term
->frame_raise_lower_hook
= 0;
679 term
->set_vertical_scroll_bar_hook
= 0;
680 term
->condemn_scroll_bars_hook
= 0;
681 term
->redeem_scroll_bar_hook
= 0;
682 term
->judge_scroll_bars_hook
= 0;
683 term
->frame_up_to_date_hook
= 0;
685 /* Initialize the mouse-highlight data. */
686 hlinfo
= &term
->display_info
.tty
->mouse_highlight
;
687 hlinfo
->mouse_face_beg_row
= hlinfo
->mouse_face_beg_col
= -1;
688 hlinfo
->mouse_face_end_row
= hlinfo
->mouse_face_end_col
= -1;
689 hlinfo
->mouse_face_face_id
= DEFAULT_FACE_ID
;
690 hlinfo
->mouse_face_mouse_frame
= NULL
;
691 hlinfo
->mouse_face_window
= Qnil
;
692 hlinfo
->mouse_face_hidden
= 0;
694 /* Initialize interrupt_handle. */
697 /* Remember original console settings. */
698 keyboard_handle
= GetStdHandle (STD_INPUT_HANDLE
);
699 GetConsoleMode (keyboard_handle
, &prev_console_mode
);
701 prev_screen
= GetStdHandle (STD_OUTPUT_HANDLE
);
703 #ifdef USE_SEPARATE_SCREEN
704 cur_screen
= CreateConsoleScreenBuffer (GENERIC_READ
| GENERIC_WRITE
,
706 CONSOLE_TEXTMODE_BUFFER
,
709 if (cur_screen
== INVALID_HANDLE_VALUE
)
711 printf ("CreateConsoleScreenBuffer failed in ResetTerm\n");
712 printf ("LastError = 0x%lx\n", GetLastError ());
717 cur_screen
= prev_screen
;
718 GetConsoleCursorInfo (prev_screen
, &prev_console_cursor
);
721 /* Respect setting of LINES and COLUMNS environment variables. */
723 char * lines
= getenv ("LINES");
724 char * columns
= getenv ("COLUMNS");
726 if (lines
!= NULL
&& columns
!= NULL
)
728 SMALL_RECT new_win_dims
;
731 new_size
.X
= atoi (columns
);
732 new_size
.Y
= atoi (lines
);
734 GetConsoleScreenBufferInfo (cur_screen
, &info
);
736 /* Shrink the window first, so the buffer dimensions can be
737 reduced if necessary. */
738 new_win_dims
.Top
= 0;
739 new_win_dims
.Left
= 0;
740 new_win_dims
.Bottom
= min (new_size
.Y
, info
.dwSize
.Y
) - 1;
741 new_win_dims
.Right
= min (new_size
.X
, info
.dwSize
.X
) - 1;
742 SetConsoleWindowInfo (cur_screen
, TRUE
, &new_win_dims
);
744 SetConsoleScreenBufferSize (cur_screen
, new_size
);
746 /* Set the window size to match the buffer dimension. */
747 new_win_dims
.Top
= 0;
748 new_win_dims
.Left
= 0;
749 new_win_dims
.Bottom
= new_size
.Y
- 1;
750 new_win_dims
.Right
= new_size
.X
- 1;
751 SetConsoleWindowInfo (cur_screen
, TRUE
, &new_win_dims
);
755 GetConsoleScreenBufferInfo (cur_screen
, &info
);
757 char_attr_normal
= info
.wAttributes
;
759 /* Determine if the info returned by GetConsoleScreenBufferInfo
760 is realistic. Old MS Telnet servers used to only fill out
761 the dwSize portion, even modern one fill the whole struct with
762 garbage when using non-MS telnet clients. */
763 if ((w32_use_full_screen_buffer
764 && (info
.dwSize
.Y
< 20 || info
.dwSize
.Y
> 100
765 || info
.dwSize
.X
< 40 || info
.dwSize
.X
> 200))
766 || (!w32_use_full_screen_buffer
767 && (info
.srWindow
.Bottom
- info
.srWindow
.Top
< 20
768 || info
.srWindow
.Bottom
- info
.srWindow
.Top
> 100
769 || info
.srWindow
.Right
- info
.srWindow
.Left
< 40
770 || info
.srWindow
.Right
- info
.srWindow
.Left
> 100)))
772 FRAME_LINES (SELECTED_FRAME ()) = 25;
773 SET_FRAME_COLS (SELECTED_FRAME (), 80);
776 else if (w32_use_full_screen_buffer
)
778 FRAME_LINES (SELECTED_FRAME ()) = info
.dwSize
.Y
; /* lines per page */
779 SET_FRAME_COLS (SELECTED_FRAME (), info
.dwSize
.X
); /* characters per line */
783 /* Lines per page. Use buffer coords instead of buffer size. */
784 FRAME_LINES (SELECTED_FRAME ()) = 1 + info
.srWindow
.Bottom
-
786 /* Characters per line. Use buffer coords instead of buffer size. */
787 SET_FRAME_COLS (SELECTED_FRAME (), 1 + info
.srWindow
.Right
-
791 if (os_subtype
== OS_NT
)
792 w32_console_unicode_input
= 1;
794 w32_console_unicode_input
= 0;
796 /* Setup w32_display_info structure for this frame. */
798 w32_initialize_display_info (build_string ("Console"));
803 DEFUN ("set-screen-color", Fset_screen_color
, Sset_screen_color
, 2, 2, 0,
804 doc
: /* Set screen foreground and background colors.
806 Arguments should be indices between 0 and 15, see w32console.el. */)
807 (Lisp_Object foreground
, Lisp_Object background
)
809 char_attr_normal
= XFASTINT (foreground
) + (XFASTINT (background
) << 4);
815 DEFUN ("get-screen-color", Fget_screen_color
, Sget_screen_color
, 0, 0, 0,
816 doc
: /* Get color indices of the current screen foreground and background.
818 The colors are returned as a list of 2 indices (FOREGROUND BACKGROUND).
819 See w32console.el and `tty-defined-color-alist' for mapping of indices
823 return Fcons (make_number (char_attr_normal
& 0x000f),
824 Fcons (make_number ((char_attr_normal
>> 4) & 0x000f), Qnil
));
827 DEFUN ("set-cursor-size", Fset_cursor_size
, Sset_cursor_size
, 1, 1, 0,
828 doc
: /* Set cursor size. */)
831 CONSOLE_CURSOR_INFO cci
;
832 cci
.dwSize
= XFASTINT (size
);
834 (void) SetConsoleCursorInfo (cur_screen
, &cci
);
840 syms_of_ntterm (void)
842 DEFVAR_BOOL ("w32-use-full-screen-buffer",
843 w32_use_full_screen_buffer
,
844 doc
: /* Non-nil means make terminal frames use the full screen buffer dimensions.
845 This is desirable when running Emacs over telnet.
846 A value of nil means use the current console window dimensions; this
847 may be preferable when working directly at the console with a large
848 scroll-back buffer. */);
849 w32_use_full_screen_buffer
= 0;
851 defsubr (&Sset_screen_color
);
852 defsubr (&Sget_screen_color
);
853 defsubr (&Sset_cursor_size
);
854 defsubr (&Sset_message_beep
);