1048 |
(set-process-query-on-exit-flag process nil) |
(set-process-query-on-exit-flag process nil) |
1049 |
old)) |
old)) |
1050 |
|
|
1051 |
|
;; process plist management |
1052 |
|
|
1053 |
|
(defun process-get (process propname) |
1054 |
|
"Return the value of PROCESS' PROPNAME property. |
1055 |
|
This is the last value stored with `(process-put PROCESS PROPNAME VALUE)'." |
1056 |
|
(plist-get (process-plist process) propname)) |
1057 |
|
|
1058 |
|
(defun process-put (process propname value) |
1059 |
|
"Change PROCESS' PROPNAME property to VALUE. |
1060 |
|
It can be retrieved with `(process-get PROCESS PROPNAME)'." |
1061 |
|
(set-process-plist process |
1062 |
|
(plist-put (process-plist process) propname value))) |
1063 |
|
|
1064 |
|
|
1065 |
;;;; Input and display facilities. |
;;;; Input and display facilities. |
1066 |
|
|