[Emacs-diffs] Changes to emacs/lisp/subr.el

[Kim F. Storm]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.332 emacs/lisp/subr.el:1.333
*** emacs/lisp/subr.el:1.332    Sun Dec 22 17:05:52 2002
--- emacs/lisp/subr.el  Tue Jan 14 04:56:10 2003
***************
*** 1048,1053 ****
--- 1048,1066 ----
      (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.