From: Kim F. Storm <storm@cua.dk>
Date: Tue, 14 Jan 2003 13:36:14 +0000 (+0000)
Subject: (Fset_process_plist): Fixed return value.
X-Git-Tag: ttn-vms-21-2-B4~11668
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26a086c6a49eb4173e3a3cd1751835f270395706;p=emacs.git

(Fset_process_plist): Fixed return value.
---

diff --git a/src/process.c b/src/process.c
index 160883f0786..e90382b08b1 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1049,7 +1049,7 @@ DEFUN ("process-plist", Fprocess_plist, Sprocess_plist,
 
 DEFUN ("set-process-plist", Fset_process_plist, Sset_process_plist,
        2, 2, 0,
-       doc: /* Replace the plist of PROCESS with PLIST.  */)
+       doc: /* Replace the plist of PROCESS with PLIST.  Returns PLIST.  */)
      (process, plist)
      register Lisp_Object process, plist;
 {
@@ -1057,6 +1057,7 @@ DEFUN ("set-process-plist", Fset_process_plist, Sset_process_plist,
   CHECK_LIST (plist);
 
   XPROCESS (process)->plist = plist;
+  return plist;
 }
 
 #if 0 /* Turned off because we don't currently record this info