+#if 0
+/* This is a reasonable definition for this new primitive. Kyle sez:
+
+ "The patch looks OK to me except for the creation and exporting of the
+ Fprocess_readable_p function. I don't think a new Lisp function
+ should be created until we know something actually needs it. If
+ we later want to give process-readable-p different semantics it
+ may be hard to do it and stay compatible with what we hastily
+ create today."
+
+ He's right, not yet. Let's discuss the semantics on XEmacs Design
+ before enabling this.
+*/
+DEFUN ("process-readable-p", Fprocess_readable_p, 1, 1, 0, /*
+Return t if OBJECT is a process from which input may be available.
+*/
+ (object))
+{
+ return PROCESSP (object) && PROCESS_READABLE_P (XPROCESS (object))
+ ? Qt : Qnil;
+}
+#endif
+