1049 |
|
|
1050 |
DEFUN ("set-process-plist", Fset_process_plist, Sset_process_plist, |
DEFUN ("set-process-plist", Fset_process_plist, Sset_process_plist, |
1051 |
2, 2, 0, |
2, 2, 0, |
1052 |
doc: /* Replace the plist of PROCESS with PLIST. */) |
doc: /* Replace the plist of PROCESS with PLIST. Returns PLIST. */) |
1053 |
(process, plist) |
(process, plist) |
1054 |
register Lisp_Object process, plist; |
register Lisp_Object process, plist; |
1055 |
{ |
{ |
1057 |
CHECK_LIST (plist); |
CHECK_LIST (plist); |
1058 |
|
|
1059 |
XPROCESS (process)->plist = plist; |
XPROCESS (process)->plist = plist; |
1060 |
|
return plist; |
1061 |
} |
} |
1062 |
|
|
1063 |
#if 0 /* Turned off because we don't currently record this info |
#if 0 /* Turned off because we don't currently record this info |