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");