1 /* Terminal hooks for GNU Emacs on the Microsoft W32 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"
43 extern Lisp_Object
Frecenter (Lisp_Object
);
45 static void w32con_move_cursor (struct frame
*f
, int row
, int col
);
46 static void w32con_clear_to_end (struct frame
*f
);
47 static void w32con_clear_frame (struct frame
*f
);
48 static void w32con_clear_end_of_line (struct frame
*f
, int);
49 static void w32con_ins_del_lines (struct frame
*f
, int vpos
, int n
);
50 static void w32con_insert_glyphs (struct frame
*f
, struct glyph
*start
, int len
);
51 static void w32con_write_glyphs (struct frame
*f
, struct glyph
*string
, int len
);
52 static void w32con_delete_glyphs (struct frame
*f
, int n
);
53 static void w32con_reset_terminal_modes (struct terminal
*t
);
54 static void w32con_set_terminal_modes (struct terminal
*t
);
55 static void w32con_set_terminal_window (struct frame
*f
, int size
);
56 static void w32con_update_begin (struct frame
* f
);
57 static void w32con_update_end (struct frame
* f
);
58 static WORD
w32_face_attributes (struct frame
*f
, int face_id
);
60 static COORD cursor_coords
;
61 static HANDLE prev_screen
, cur_screen
;
62 static WORD char_attr_normal
;
63 static DWORD prev_console_mode
;
65 #ifndef USE_SEPARATE_SCREEN
66 static CONSOLE_CURSOR_INFO prev_console_cursor
;
69 HANDLE keyboard_handle
;
72 /* Setting this as the ctrl handler prevents emacs from being killed when
73 someone hits ^C in a 'suspended' session (child shell).
74 Also ignore Ctrl-Break signals. */
77 ctrl_c_handler (unsigned long type
)
79 /* Only ignore "interrupt" events when running interactively. */
80 return (!noninteractive
81 && (type
== CTRL_C_EVENT
|| type
== CTRL_BREAK_EVENT
));
85 /* Move the cursor to (ROW, COL) on FRAME. */
87 w32con_move_cursor (struct frame
*f
, int row
, int col
)
89 cursor_coords
.X
= col
;
90 cursor_coords
.Y
= row
;
92 /* TODO: for multi-tty support, cur_screen should be replaced with a
93 reference to the terminal for this frame. */
94 SetConsoleCursorPosition (cur_screen
, cursor_coords
);
97 /* Clear from cursor to end of screen. */
99 w32con_clear_to_end (struct frame
*f
)
101 w32con_clear_end_of_line (f
, FRAME_COLS (f
) - 1);
102 w32con_ins_del_lines (f
, cursor_coords
.Y
, FRAME_LINES (f
) - cursor_coords
.Y
- 1);
105 /* Clear the frame. */
107 w32con_clear_frame (struct frame
*f
)
112 CONSOLE_SCREEN_BUFFER_INFO info
;
114 GetConsoleScreenBufferInfo (GetStdHandle (STD_OUTPUT_HANDLE
), &info
);
116 /* Remember that the screen buffer might be wider than the window. */
117 n
= FRAME_LINES (f
) * info
.dwSize
.X
;
120 FillConsoleOutputAttribute (cur_screen
, char_attr_normal
, n
, dest
, &r
);
121 FillConsoleOutputCharacter (cur_screen
, ' ', n
, dest
, &r
);
123 w32con_move_cursor (f
, 0, 0);
127 static struct glyph glyph_base
[256];
128 static BOOL ceol_initialized
= FALSE
;
130 /* Clear from Cursor to end (what's "standout marker"?). */
132 w32con_clear_end_of_line (struct frame
*f
, int end
)
134 if (!ceol_initialized
)
137 for (i
= 0; i
< 256; i
++)
139 memcpy (&glyph_base
[i
], &space_glyph
, sizeof (struct glyph
));
141 ceol_initialized
= TRUE
;
143 w32con_write_glyphs (f
, glyph_base
, end
- cursor_coords
.X
); /* fencepost ? */
146 /* Insert n lines at vpos. if n is negative delete -n lines. */
148 w32con_ins_del_lines (struct frame
*f
, int vpos
, int n
)
158 scroll
.Top
= vpos
- n
;
159 scroll
.Bottom
= FRAME_LINES (f
);
165 scroll
.Bottom
= FRAME_LINES (f
) - n
;
168 clip
.Top
= clip
.Left
= scroll
.Left
= 0;
169 clip
.Right
= scroll
.Right
= FRAME_COLS (f
);
170 clip
.Bottom
= FRAME_LINES (f
);
174 fill
.Char
.AsciiChar
= 0x20;
175 fill
.Attributes
= char_attr_normal
;
177 ScrollConsoleScreenBuffer (cur_screen
, &scroll
, &clip
, dest
, &fill
);
179 /* Here we have to deal with a w32 console flake: If the scroll
180 region looks like abc and we scroll c to a and fill with d we get
181 cbd... if we scroll block c one line at a time to a, we get cdd...
182 Emacs expects cdd consistently... So we have to deal with that
183 here... (this also occurs scrolling the same way in the other
188 if (scroll
.Bottom
< dest
.Y
)
190 for (i
= scroll
.Bottom
; i
< dest
.Y
; i
++)
192 w32con_move_cursor (f
, i
, 0);
193 w32con_clear_end_of_line (f
, FRAME_COLS (f
));
199 nb
= dest
.Y
+ (scroll
.Bottom
- scroll
.Top
) + 1;
203 for (i
= nb
; i
< scroll
.Top
; i
++)
205 w32con_move_cursor (f
, i
, 0);
206 w32con_clear_end_of_line (f
, FRAME_COLS (f
));
212 cursor_coords
.Y
= vpos
;
221 scroll_line (struct frame
*f
, int dist
, int direction
)
223 /* The idea here is to implement a horizontal scroll in one line to
224 implement delete and half of insert. */
225 SMALL_RECT scroll
, clip
;
229 clip
.Top
= scroll
.Top
= clip
.Bottom
= scroll
.Bottom
= cursor_coords
.Y
;
231 clip
.Right
= FRAME_COLS (f
);
233 if (direction
== LEFT
)
235 scroll
.Left
= cursor_coords
.X
+ dist
;
236 scroll
.Right
= FRAME_COLS (f
) - 1;
240 scroll
.Left
= cursor_coords
.X
;
241 scroll
.Right
= FRAME_COLS (f
) - dist
- 1;
244 dest
.X
= cursor_coords
.X
;
245 dest
.Y
= cursor_coords
.Y
;
247 fill
.Char
.AsciiChar
= 0x20;
248 fill
.Attributes
= char_attr_normal
;
250 ScrollConsoleScreenBuffer (cur_screen
, &scroll
, &clip
, dest
, &fill
);
254 /* If start is zero insert blanks instead of a string at start ?. */
256 w32con_insert_glyphs (struct frame
*f
, register struct glyph
*start
,
259 scroll_line (f
, len
, RIGHT
);
261 /* Move len chars to the right starting at cursor_coords, fill with blanks */
264 /* Print the first len characters of start, cursor_coords.X adjusted
267 w32con_write_glyphs (f
, start
, len
);
271 w32con_clear_end_of_line (f
, cursor_coords
.X
+ len
);
276 w32con_write_glyphs (struct frame
*f
, register struct glyph
*string
,
281 unsigned char *conversion_buffer
;
282 struct coding_system
*coding
;
287 /* If terminal_coding does any conversion, use it, otherwise use
288 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
289 because it always return 1 if the member src_multibyte is 1. */
290 coding
= (FRAME_TERMINAL_CODING (f
)->common_flags
& CODING_REQUIRE_ENCODING_MASK
291 ? FRAME_TERMINAL_CODING (f
) : &safe_terminal_coding
);
292 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
294 coding
->mode
&= ~CODING_MODE_LAST_BLOCK
;
298 /* Identify a run of glyphs with the same face. */
299 int face_id
= string
->face_id
;
302 for (n
= 1; n
< len
; ++n
)
303 if (string
[n
].face_id
!= face_id
)
306 /* Turn appearance modes of the face of the run on. */
307 char_attr
= w32_face_attributes (f
, face_id
);
310 /* This is the last run. */
311 coding
->mode
|= CODING_MODE_LAST_BLOCK
;
312 conversion_buffer
= encode_terminal_code (string
, n
, coding
);
313 if (coding
->produced
> 0)
315 /* Set the attribute for these characters. */
316 if (!FillConsoleOutputAttribute (cur_screen
, char_attr
,
317 coding
->produced
, cursor_coords
,
320 printf ("Failed writing console attributes: %d\n",
325 /* Write the characters. */
326 if (!WriteConsoleOutputCharacter (cur_screen
, conversion_buffer
,
327 coding
->produced
, cursor_coords
,
330 printf ("Failed writing console characters: %d\n",
335 cursor_coords
.X
+= coding
->produced
;
336 w32con_move_cursor (f
, cursor_coords
.Y
, cursor_coords
.X
);
343 /* Used for mouse highlight. */
345 w32con_write_glyphs_with_face (struct frame
*f
, register int x
, register int y
,
346 register struct glyph
*string
, register int len
,
347 register int face_id
)
349 unsigned char *conversion_buffer
;
350 struct coding_system
*coding
;
355 /* If terminal_coding does any conversion, use it, otherwise use
356 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
357 because it always return 1 if the member src_multibyte is 1. */
358 coding
= (FRAME_TERMINAL_CODING (f
)->common_flags
& CODING_REQUIRE_ENCODING_MASK
359 ? FRAME_TERMINAL_CODING (f
) : &safe_terminal_coding
);
360 /* We are going to write the entire block of glyphs in one go, as
361 they all have the same face. So this _is_ the last block. */
362 coding
->mode
|= CODING_MODE_LAST_BLOCK
;
364 conversion_buffer
= encode_terminal_code (string
, len
, coding
);
365 if (coding
->produced
> 0)
367 DWORD filled
, written
;
368 /* Compute the character attributes corresponding to the face. */
369 DWORD char_attr
= w32_face_attributes (f
, face_id
);
374 /* Set the attribute for these characters. */
375 if (!FillConsoleOutputAttribute (cur_screen
, char_attr
,
376 coding
->produced
, start_coords
,
378 DebPrint (("Failed writing console attributes: %d\n", GetLastError ()));
381 /* Write the characters. */
382 if (!WriteConsoleOutputCharacter (cur_screen
, conversion_buffer
,
383 filled
, start_coords
, &written
))
384 DebPrint (("Failed writing console characters: %d\n",
390 /* Implementation of draw_row_with_mouse_face for W32 console. */
392 tty_draw_row_with_mouse_face (struct window
*w
, struct glyph_row
*row
,
393 int start_hpos
, int end_hpos
,
394 enum draw_glyphs_face draw
)
396 int nglyphs
= end_hpos
- start_hpos
;
397 struct frame
*f
= XFRAME (WINDOW_FRAME (w
));
398 struct tty_display_info
*tty
= FRAME_TTY (f
);
399 int face_id
= tty
->mouse_highlight
.mouse_face_face_id
;
402 if (end_hpos
>= row
->used
[TEXT_AREA
])
403 nglyphs
= row
->used
[TEXT_AREA
] - start_hpos
;
405 pos_y
= row
->y
+ WINDOW_TOP_EDGE_Y (w
);
406 pos_x
= row
->used
[LEFT_MARGIN_AREA
] + start_hpos
+ WINDOW_LEFT_EDGE_X (w
);
408 if (draw
== DRAW_MOUSE_FACE
)
409 w32con_write_glyphs_with_face (f
, pos_x
, pos_y
,
410 row
->glyphs
[TEXT_AREA
] + start_hpos
,
412 else if (draw
== DRAW_NORMAL_TEXT
)
414 COORD save_coords
= cursor_coords
;
416 w32con_move_cursor (f
, pos_y
, pos_x
);
417 write_glyphs (f
, row
->glyphs
[TEXT_AREA
] + start_hpos
, nglyphs
);
418 w32con_move_cursor (f
, save_coords
.Y
, save_coords
.X
);
423 w32con_delete_glyphs (struct frame
*f
, int n
)
425 /* delete chars means scroll chars from cursor_coords.X + n to
426 cursor_coords.X, anything beyond the edge of the screen should
429 scroll_line (f
, n
, LEFT
);
432 static unsigned int sound_type
= 0xFFFFFFFF;
433 #define MB_EMACS_SILENT (0xFFFFFFFF - 1)
436 w32_sys_ring_bell (struct frame
*f
)
438 if (sound_type
== 0xFFFFFFFF)
442 else if (sound_type
== MB_EMACS_SILENT
)
447 MessageBeep (sound_type
);
450 DEFUN ("set-message-beep", Fset_message_beep
, Sset_message_beep
, 1, 1, 0,
451 doc
: /* Set the sound generated when the bell is rung.
452 SOUND is 'asterisk, 'exclamation, 'hand, 'question, 'ok, or 'silent
453 to use the corresponding system sound for the bell. The 'silent sound
454 prevents Emacs from making any sound at all.
455 SOUND is nil to use the normal beep. */)
458 CHECK_SYMBOL (sound
);
461 sound_type
= 0xFFFFFFFF;
462 else if (EQ (sound
, intern ("asterisk")))
463 sound_type
= MB_ICONASTERISK
;
464 else if (EQ (sound
, intern ("exclamation")))
465 sound_type
= MB_ICONEXCLAMATION
;
466 else if (EQ (sound
, intern ("hand")))
467 sound_type
= MB_ICONHAND
;
468 else if (EQ (sound
, intern ("question")))
469 sound_type
= MB_ICONQUESTION
;
470 else if (EQ (sound
, intern ("ok")))
472 else if (EQ (sound
, intern ("silent")))
473 sound_type
= MB_EMACS_SILENT
;
475 sound_type
= 0xFFFFFFFF;
481 w32con_reset_terminal_modes (struct terminal
*t
)
484 CONSOLE_SCREEN_BUFFER_INFO info
;
488 /* Clear the complete screen buffer. This is required because Emacs
489 sets the cursor position to the top of the buffer, but there might
490 be other output below the bottom of the Emacs frame if the screen buffer
491 is larger than the window size. */
492 GetConsoleScreenBufferInfo (cur_screen
, &info
);
495 n
= info
.dwSize
.X
* info
.dwSize
.Y
;
497 FillConsoleOutputAttribute (cur_screen
, char_attr_normal
, n
, dest
, &r
);
498 FillConsoleOutputCharacter (cur_screen
, ' ', n
, dest
, &r
);
499 /* Now that the screen is clear, put the cursor at the top. */
500 SetConsoleCursorPosition (cur_screen
, dest
);
502 #ifdef USE_SEPARATE_SCREEN
503 SetConsoleActiveScreenBuffer (prev_screen
);
505 SetConsoleCursorInfo (prev_screen
, &prev_console_cursor
);
508 SetConsoleMode (keyboard_handle
, prev_console_mode
);
512 w32con_set_terminal_modes (struct terminal
*t
)
514 CONSOLE_CURSOR_INFO cci
;
516 /* make cursor big and visible (100 on Win95 makes it disappear) */
519 (void) SetConsoleCursorInfo (cur_screen
, &cci
);
521 SetConsoleActiveScreenBuffer (cur_screen
);
523 SetConsoleMode (keyboard_handle
, ENABLE_MOUSE_INPUT
| ENABLE_WINDOW_INPUT
);
525 /* Initialize input mode: interrupt_input off, no flow control, allow
526 8 bit character input, standard quit char. */
527 Fset_input_mode (Qnil
, Qnil
, make_number (2), Qnil
);
530 /* hmmm... perhaps these let us bracket screen changes so that we can flush
531 clumps rather than one-character-at-a-time...
533 we'll start with not moving the cursor while an update is in progress. */
535 w32con_update_begin (struct frame
* f
)
540 w32con_update_end (struct frame
* f
)
542 SetConsoleCursorPosition (cur_screen
, cursor_coords
);
546 w32con_set_terminal_window (struct frame
*f
, int size
)
550 /***********************************************************************
552 ***********************************************************************/
555 sys_tputs (char *str
, int nlines
, int (*outfun
) (int))
560 sys_tgetstr (char *cap
, char **area
)
566 /***********************************************************************
568 ***********************************************************************/
570 struct tty_display_info
*current_tty
= NULL
;
586 cmcheckmagic (struct tty_display_info
*tty
)
591 cmcostinit (struct tty_display_info
*tty
)
596 cmgoto (struct tty_display_info
*tty
, int row
, int col
)
601 Wcm_clear (struct tty_display_info
*tty
)
606 /* Report the current cursor position. The following two functions
607 mirror cm.h macros and are used in term.c's tty menu code, so they
608 are not really "stubs". */
610 curX (struct tty_display_info
*tty
)
612 return cursor_coords
.X
;
616 curY (struct tty_display_info
*tty
)
618 return cursor_coords
.Y
;
621 /***********************************************************************
623 ***********************************************************************/
626 /* Turn appearances of face FACE_ID on tty frame F on. */
629 w32_face_attributes (struct frame
*f
, int face_id
)
632 struct face
*face
= FACE_FROM_ID (f
, face_id
);
634 xassert (face
!= NULL
);
636 char_attr
= char_attr_normal
;
638 /* Reverse the default color if requested. If background and
639 foreground are specified, then they have been reversed already. */
640 if (face
->tty_reverse_p
)
641 char_attr
= (char_attr
& 0xff00) + ((char_attr
& 0x000f) << 4)
642 + ((char_attr
& 0x00f0) >> 4);
644 /* Before the terminal is properly initialized, all colors map to 0.
645 Don't try to resolve them. */
646 if (NILP (Vtty_defined_color_alist
))
649 /* Colors should be in the range 0...15 unless they are one of
650 FACE_TTY_DEFAULT_COLOR, FACE_TTY_DEFAULT_FG_COLOR or
651 FACE_TTY_DEFAULT_BG_COLOR. Other out of range colors are
652 invalid, so it is better to use the default color if they ever
653 get through to here. */
654 if (face
->foreground
>= 0 && face
->foreground
< 16)
655 char_attr
= (char_attr
& 0xfff0) + face
->foreground
;
657 if (face
->background
>= 0 && face
->background
< 16)
658 char_attr
= (char_attr
& 0xff0f) + (face
->background
<< 4);
664 initialize_w32_display (struct terminal
*term
)
666 CONSOLE_SCREEN_BUFFER_INFO info
;
667 Mouse_HLInfo
*hlinfo
;
669 term
->rif
= 0; /* No window based redisplay on the console. */
670 term
->cursor_to_hook
= w32con_move_cursor
;
671 term
->raw_cursor_to_hook
= w32con_move_cursor
;
672 term
->clear_to_end_hook
= w32con_clear_to_end
;
673 term
->clear_frame_hook
= w32con_clear_frame
;
674 term
->clear_end_of_line_hook
= w32con_clear_end_of_line
;
675 term
->ins_del_lines_hook
= w32con_ins_del_lines
;
676 term
->insert_glyphs_hook
= w32con_insert_glyphs
;
677 term
->write_glyphs_hook
= w32con_write_glyphs
;
678 term
->delete_glyphs_hook
= w32con_delete_glyphs
;
679 term
->ring_bell_hook
= w32_sys_ring_bell
;
680 term
->reset_terminal_modes_hook
= w32con_reset_terminal_modes
;
681 term
->set_terminal_modes_hook
= w32con_set_terminal_modes
;
682 term
->set_terminal_window_hook
= w32con_set_terminal_window
;
683 term
->update_begin_hook
= w32con_update_begin
;
684 term
->update_end_hook
= w32con_update_end
;
686 term
->read_socket_hook
= w32_console_read_socket
;
687 term
->mouse_position_hook
= w32_console_mouse_position
;
689 /* The following are not used on the console. */
690 term
->frame_rehighlight_hook
= 0;
691 term
->frame_raise_lower_hook
= 0;
692 term
->set_vertical_scroll_bar_hook
= 0;
693 term
->condemn_scroll_bars_hook
= 0;
694 term
->redeem_scroll_bar_hook
= 0;
695 term
->judge_scroll_bars_hook
= 0;
696 term
->frame_up_to_date_hook
= 0;
698 /* Initialize the mouse-highlight data. */
699 hlinfo
= &term
->display_info
.tty
->mouse_highlight
;
700 hlinfo
->mouse_face_beg_row
= hlinfo
->mouse_face_beg_col
= -1;
701 hlinfo
->mouse_face_end_row
= hlinfo
->mouse_face_end_col
= -1;
702 hlinfo
->mouse_face_face_id
= DEFAULT_FACE_ID
;
703 hlinfo
->mouse_face_mouse_frame
= NULL
;
704 hlinfo
->mouse_face_window
= Qnil
;
705 hlinfo
->mouse_face_hidden
= 0;
707 /* Initialize interrupt_handle. */
710 /* Remember original console settings. */
711 keyboard_handle
= GetStdHandle (STD_INPUT_HANDLE
);
712 GetConsoleMode (keyboard_handle
, &prev_console_mode
);
714 prev_screen
= GetStdHandle (STD_OUTPUT_HANDLE
);
716 #ifdef USE_SEPARATE_SCREEN
717 cur_screen
= CreateConsoleScreenBuffer (GENERIC_READ
| GENERIC_WRITE
,
719 CONSOLE_TEXTMODE_BUFFER
,
722 if (cur_screen
== INVALID_HANDLE_VALUE
)
724 printf ("CreateConsoleScreenBuffer failed in ResetTerm\n");
725 printf ("LastError = 0x%lx\n", GetLastError ());
730 cur_screen
= prev_screen
;
731 GetConsoleCursorInfo (prev_screen
, &prev_console_cursor
);
734 /* Respect setting of LINES and COLUMNS environment variables. */
736 char * lines
= getenv ("LINES");
737 char * columns
= getenv ("COLUMNS");
739 if (lines
!= NULL
&& columns
!= NULL
)
741 SMALL_RECT new_win_dims
;
744 new_size
.X
= atoi (columns
);
745 new_size
.Y
= atoi (lines
);
747 GetConsoleScreenBufferInfo (cur_screen
, &info
);
749 /* Shrink the window first, so the buffer dimensions can be
750 reduced if necessary. */
751 new_win_dims
.Top
= 0;
752 new_win_dims
.Left
= 0;
753 new_win_dims
.Bottom
= min (new_size
.Y
, info
.dwSize
.Y
) - 1;
754 new_win_dims
.Right
= min (new_size
.X
, info
.dwSize
.X
) - 1;
755 SetConsoleWindowInfo (cur_screen
, TRUE
, &new_win_dims
);
757 SetConsoleScreenBufferSize (cur_screen
, new_size
);
759 /* Set the window size to match the buffer dimension. */
760 new_win_dims
.Top
= 0;
761 new_win_dims
.Left
= 0;
762 new_win_dims
.Bottom
= new_size
.Y
- 1;
763 new_win_dims
.Right
= new_size
.X
- 1;
764 SetConsoleWindowInfo (cur_screen
, TRUE
, &new_win_dims
);
768 GetConsoleScreenBufferInfo (cur_screen
, &info
);
770 char_attr_normal
= info
.wAttributes
;
772 /* Determine if the info returned by GetConsoleScreenBufferInfo
773 is realistic. Old MS Telnet servers used to only fill out
774 the dwSize portion, even modern one fill the whole struct with
775 garbage when using non-MS telnet clients. */
776 if ((w32_use_full_screen_buffer
777 && (info
.dwSize
.Y
< 20 || info
.dwSize
.Y
> 100
778 || info
.dwSize
.X
< 40 || info
.dwSize
.X
> 200))
779 || (!w32_use_full_screen_buffer
780 && (info
.srWindow
.Bottom
- info
.srWindow
.Top
< 20
781 || info
.srWindow
.Bottom
- info
.srWindow
.Top
> 100
782 || info
.srWindow
.Right
- info
.srWindow
.Left
< 40
783 || info
.srWindow
.Right
- info
.srWindow
.Left
> 100)))
785 FRAME_LINES (SELECTED_FRAME ()) = 25;
786 SET_FRAME_COLS (SELECTED_FRAME (), 80);
789 else if (w32_use_full_screen_buffer
)
791 FRAME_LINES (SELECTED_FRAME ()) = info
.dwSize
.Y
; /* lines per page */
792 SET_FRAME_COLS (SELECTED_FRAME (), info
.dwSize
.X
); /* characters per line */
796 /* Lines per page. Use buffer coords instead of buffer size. */
797 FRAME_LINES (SELECTED_FRAME ()) = 1 + info
.srWindow
.Bottom
-
799 /* Characters per line. Use buffer coords instead of buffer size. */
800 SET_FRAME_COLS (SELECTED_FRAME (), 1 + info
.srWindow
.Right
-
804 /* Setup w32_display_info structure for this frame. */
806 w32_initialize_display_info (build_string ("Console"));
811 DEFUN ("set-screen-color", Fset_screen_color
, Sset_screen_color
, 2, 2, 0,
812 doc
: /* Set screen foreground and background colors.
814 Arguments should be indices between 0 and 15, see w32console.el. */)
815 (Lisp_Object foreground
, Lisp_Object background
)
817 char_attr_normal
= XFASTINT (foreground
) + (XFASTINT (background
) << 4);
823 DEFUN ("get-screen-color", Fget_screen_color
, Sget_screen_color
, 0, 0, 0,
824 doc
: /* Get color indices of the current screen foreground and background.
826 The colors are returned as a list of 2 indices (FOREGROUND BACKGROUND).
827 See w32console.el and `tty-defined-color-alist' for mapping of indices
831 return Fcons (make_number (char_attr_normal
& 0x000f),
832 Fcons (make_number ((char_attr_normal
>> 4) & 0x000f), Qnil
));
835 DEFUN ("set-cursor-size", Fset_cursor_size
, Sset_cursor_size
, 1, 1, 0,
836 doc
: /* Set cursor size. */)
839 CONSOLE_CURSOR_INFO cci
;
840 cci
.dwSize
= XFASTINT (size
);
842 (void) SetConsoleCursorInfo (cur_screen
, &cci
);
848 syms_of_ntterm (void)
850 DEFVAR_BOOL ("w32-use-full-screen-buffer",
851 w32_use_full_screen_buffer
,
852 doc
: /* Non-nil means make terminal frames use the full screen buffer dimensions.
853 This is desirable when running Emacs over telnet.
854 A value of nil means use the current console window dimensions; this
855 may be preferable when working directly at the console with a large
856 scroll-back buffer. */);
857 w32_use_full_screen_buffer
= 0;
859 defsubr (&Sset_screen_color
);
860 defsubr (&Sget_screen_color
);
861 defsubr (&Sset_cursor_size
);
862 defsubr (&Sset_message_beep
);