--- a/src/process.c	Mon Aug 13 09:35:15 2007 +0200
+++ b/src/process.c	Mon Aug 13 09:36:16 2007 +0200
@@ -3298,15 +3298,14 @@
       proc_buffered_char[i] = -1;
     }
 }
+
 #if 0
 
-xxDEFUN ("process-connection", Fprocess_connection, Sprocess_connection,
-	 0, 1, 0 /*
+xxDEFUN ("process-connection", Fprocess_connection, 0, 1, 0, /*
 Return the connection type of `PROCESS'.  This can be nil (pipe),
 t or pty (pty) or stream (socket connection).
-*/ )
-  (process)
-     Lisp_Object process;
+*/
+	 (process))
 {
   return XPROCESS (process)->type;
 }