Mercurial > hg > xemacs-beta

diff src/console-stream.c @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 697ef44129c6
children
line wrap: on
line diff
--- a/src/console-stream.c	Mon Aug 13 11:25:03 2007 +0200
+++ b/src/console-stream.c	Mon Aug 13 11:26:11 2007 +0200
@@ -298,6 +298,12 @@
 }
 
 void
+reinit_console_type_create_stream (void)
+{
+  REINITIALIZE_CONSOLE_TYPE (stream);
+}
+
+void
 vars_of_console_stream (void)
 {
   DEFVAR_LISP ("terminal-console", &Vterminal_console /*
@@ -320,6 +326,7 @@
   staticpro (&Vstdio_str);
 }
 
+#ifndef PDUMP
 void
 init_console_stream (void)
 {
@@ -339,3 +346,22 @@
         event_stream_select_console (XCONSOLE (Vterminal_console));
     }
 }
+
+#else
+
+void
+init_console_stream (void)
+{
+  /* This function can GC */
+  Vterminal_device = Fmake_device (Qstream, Qnil, Qnil);
+  Vterminal_console = Fdevice_console (Vterminal_device);
+  Vterminal_frame = Fmake_frame (Qnil, Vterminal_device);
+  minibuf_window = XFRAME (Vterminal_frame)->minibuffer_window;
+  if (initialized)
+    {
+      stream_init_console (XCONSOLE (Vterminal_console), Qnil);
+      if (noninteractive)
+	event_stream_select_console (XCONSOLE (Vterminal_console));
+    }
+}
+#endif