Mercurial > emacs
changeset 4231:91a883c56382
(Fget_buffer_process): Delete doc string from
second alternative definition.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 22 Jul 1993 19:38:51 +0000 |
| parents | df4d091e603e |
| children | f533d585cfc8 |
| files | src/process.c |
| diffstat | 1 files changed, 17 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/src/process.c Thu Jul 22 18:59:43 1993 +0000 +++ b/src/process.c Thu Jul 22 19:38:51 1993 +0000 @@ -807,6 +807,19 @@ return Fnull (tem); } + +#if 0 /* Turned off because we don't currently record this info + in the process. Perhaps add it. */ +DEFUN ("process-connection", Fprocess_connection, Sprocess_connection, 1, 1, 0, + "Return the connection type of `PROCESS'.\n\ +The value is `nil' for a pipe,\n\ +`t' or `pty' for a pty, or `stream' for a socket connection.") + (process) + Lisp_Object process; +{ + return XPROCESS (process)->type; +} +#endif Lisp_Object list_processes_1 () @@ -2985,16 +2998,7 @@ proc_buffered_char[i] = -1; } } -#if 0 -DEFUN ("process-connection", Fprocess_connection, Sprocess_connection, 0, 1, 0, - "Return the connection type of `PROCESS'. This can be nil (pipe),\n\ -t or pty (pty) or stream (socket connection).") - (process) - Lisp_Object process; -{ - return XPROCESS (process)->type; -} -#endif + syms_of_process () { #ifdef HAVE_SOCKETS @@ -3211,9 +3215,9 @@ DEFUN ("get-buffer-process", Fget_buffer_process, Sget_buffer_process, 1, 1, 0, - "Return the (or, a) process associated with BUFFER.\n\ -This copy of Emacs has not been built to support subprocesses, so this\n\ -function always returns nil.") + /* Don't confused make-docfile by having two doc strings for this function. + make-docfile does not pay attention to #if, for good reason! */ + 0) (name) register Lisp_Object name; {