Commit 365aee82 authored by Kim F. Storm's avatar Kim F. Storm

(Fset_process_contact): New function.

(syms_of_process): defsubr it.
(make-network-process): Update doc.
parent b8a76c6c
......@@ -146,7 +146,7 @@ extern Lisp_Object QCfamily;
extern Lisp_Object QCfilter;
/* a process object is a network connection when its childp field is neither
Qt nor Qnil but is instead a cons cell (HOSTNAME PORTNUM). */
Qt nor Qnil but is instead a property list (KEY VAL ...). */
#define NETCONN_P(p) (GC_CONSP (XPROCESS (p)->childp))
......@@ -1037,6 +1037,24 @@ See `make-network-process' for a list of keywords. */)
return Fplist_get (contact, key);
DEFUN ("set-process-contact", Fset_process_contact, Sset_process_contact,
3, 3, 0,
doc: /* Change value in PROCESS' contact information list of KEY to VAL.
If KEY is already a property on the list, its value is set to VAL,
otherwise the new KEY VAL pair is added. Returns VAL. */)
(process, key, val)
register Lisp_Object process, key, val;
Lisp_Object contact;
CHECK_PROCESS (process);
if (NETCONN_P (process))
XPROCESS (process)->childp = Fplist_put (XPROCESS (process)->childp, key, val);
return val;
#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,
......@@ -2589,6 +2607,10 @@ the server process. Also, the BUFFER argument is not used directly by
the server process, but via the optional :log function, accepted (and
failed) connections may be logged in the server process' buffer.
The original argument list, modified with the actual connection
information, is available via the `process-contact' function.
Additional arguments may be added via `set-process-contact'.
usage: (make-network-process &rest ARGS) */)
(nargs, args)
int nargs;
......@@ -6341,6 +6363,7 @@ The value takes effect when `start-process' is called. */);
defsubr (&Sset_process_query_on_exit_flag);
defsubr (&Sprocess_query_on_exit_flag);
defsubr (&Sprocess_contact);
defsubr (&Sset_process_contact);
defsubr (&Slist_processes);
defsubr (&Sprocess_list);
defsubr (&Sstart_process);
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment