diff src/console.c @ 110:fe104dbd9147 r20-1b7

Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children cca96a509cfe
line wrap: on
line diff
--- a/src/console.c	Mon Aug 13 09:18:41 2007 +0200
+++ b/src/console.c	Mon Aug 13 09:19:45 2007 +0200
@@ -315,7 +315,7 @@
 Return the type of the specified console (e.g. `x' or `tty').
 Value is `tty' for a tty console (a character-only terminal),
 `x' for a console that is an X display,
-`ns' for a console that is a NeXTstep connection (not yet implemeted),
+`ns' for a console that is a NeXTstep connection (not yet implemented),
 `win32' for a console that is a Windows or Windows NT connection (not yet
   implemented),
 `pc' for a console that is a direct-write MS-DOS connection (not yet
@@ -903,6 +903,9 @@
 # endif
 #endif /* BSD */
 }
+#ifdef HAVE_TTY
+extern Lisp_Object Fconsole_tty_controlling_process(Lisp_Object console);
+#endif
 
 DEFUN ("suspend-console", Fsuspend_console, 0, 1, "", /*
 Suspend a console.  For tty consoles, it sends a signal to suspend
@@ -922,6 +925,7 @@
   struct console *c;
   struct gcpro gcpro1;
 
+#ifdef HAVE_TTY
   if (NILP (console))
       console=Fselected_console();
 
@@ -944,6 +948,7 @@
   }
 
   UNGCPRO;
+#endif
   return Qnil;
 }
 
@@ -958,6 +963,7 @@
   struct console *c;
   struct gcpro gcpro1, gcpro2, gcpro3;
 
+#ifdef HAVE_TTY
   GCPRO2 (console, devcons);
 
   c = decode_console(console);
@@ -976,6 +982,7 @@
   }
 
   UNGCPRO;
+#endif
   return Qnil;
 }