# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1042538170 0
# Node ID 50cb245b20729ee2c5fba28ad2871b08932cb78e
# Parent  c0c09d77bace1a2c80728e3466efa9d82d6c5613
(process-put, process-get): New functions.

diff -r c0c09d77bace -r 50cb245b2072 lisp/subr.el
--- a/lisp/subr.el	Tue Jan 14 09:55:50 2003 +0000
+++ b/lisp/subr.el	Tue Jan 14 09:56:10 2003 +0000
@@ -1048,6 +1048,19 @@
     (set-process-query-on-exit-flag process nil)
     old))
 
+;; process plist management
+
+(defun process-get (process propname)
+  "Return the value of PROCESS' PROPNAME property.
+This is the last value stored with `(process-put PROCESS PROPNAME VALUE)'."
+  (plist-get (process-plist process) propname))
+
+(defun process-put (process propname value)
+  "Change PROCESS' PROPNAME property to VALUE.
+It can be retrieved with `(process-get PROCESS PROPNAME)'."
+  (set-process-plist process 
+		     (plist-put (process-plist process) propname value)))
+
 
 ;;;; Input and display facilities.