-#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
-