# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 978475834 0
# Node ID c6726a1e70ce48535f9fbbc2fc3162a6c278c8df
# Parent  20a470317eeb0820e5d15b8ee9be18d5a2fdce89
(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.

diff -r 20a470317eeb -r c6726a1e70ce src/frame.c
--- 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");