From 34368d128fb26ccda139fd0aeaa9d1d78338bea1 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 14 Jan 2003 09:56:10 +0000 Subject: [PATCH] (process-put, process-get): New functions. --- lisp/subr.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) 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. -- 2.39.2