Mercurial > emacs
changeset 35003:c6726a1e70ce
(make_terminal_frame) [WINDOWSNT]: Make terminal frames
use output_w32_console method.
(Qw32_console): New Lisp_Object.
(Fframep): Return it.
(syms_of_frame): Init it.
(Fframe_parameters): Report w32console as font for w32_console
frames.
author | Andrew Innes <andrewi@gnu.org> |
---|---|
date | Tue, 02 Jan 2001 22:50:34 +0000 |
parents | 20a470317eeb |
children | 2298014242a6 |
files | src/frame.c |
diffstat | 1 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/frame.c Tue Jan 02 22:49:42 2001 +0000 +++ b/src/frame.c Tue Jan 02 22:50:34 2001 +0000 @@ -62,6 +62,7 @@ Lisp_Object Qwidth; Lisp_Object Qx; Lisp_Object Qw32; +Lisp_Object Qw32_console; Lisp_Object Qpc; Lisp_Object Qmac; Lisp_Object Qvisible; @@ -166,6 +167,8 @@ return Qx; case output_w32: return Qw32; + case output_w32_console: + return Qw32_console; case output_msdos_raw: return Qpc; case output_mac: @@ -483,11 +486,16 @@ else f->output_method = output_termcap; #else +#ifdef WINDOWSNT + f->output_method = output_w32_console; + f->output_data.x = &tty_display; +#else #ifdef macintosh make_mac_terminal_frame (f); #else f->output_data.x = &tty_display; #endif /* macintosh */ +#endif /* WINDOWSNT */ #endif /* MSDOS */ if (!noninteractive) @@ -1993,7 +2001,9 @@ store_in_alist (&alist, intern ("font"), build_string (FRAME_MSDOS_P (f) ? "ms-dos" - : FRAME_W32_P (f) ? "w32term" : "tty")); + : FRAME_W32_P (f) ? "w32term" + : FRAME_W32_CONSOLE_P (f) ? "w32console" + :"tty")); } store_in_alist (&alist, Qname, f->name); height = (FRAME_NEW_HEIGHT (f) ? FRAME_NEW_HEIGHT (f) : FRAME_HEIGHT (f)); @@ -2417,6 +2427,8 @@ staticpro (&Qx); Qw32 = intern ("w32"); staticpro (&Qw32); + Qw32_console = intern ("w32-console"); + staticpro (&Qw32_console); Qpc = intern ("pc"); staticpro (&Qpc); Qmac = intern ("mac");