From: Kim F. Storm <storm@cua.dk>
Date: Tue, 14 Jan 2003 09:56:10 +0000 (+0000)
Subject: (process-put, process-get): New functions.
X-Git-Tag: ttn-vms-21-2-B4~11672
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34368d128fb26ccda139fd0aeaa9d1d78338bea1;p=emacs.git

(process-put, process-get): New functions.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index c0e0ea61ef3..b2842b27242 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1048,6 +1048,19 @@ or `set-process-query-on-exit-flag' instead."
     (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.