From: Daiki Ueno <ueno@gnu.org>
Date: Sat, 11 Apr 2015 07:01:18 +0000 (+0900)
Subject: Respect more keyword args in `make-process'
X-Git-Tag: emacs-25.0.90~2490
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c7b96eba0599d94ebf93032beb928cf2c043845;p=emacs.git

Respect more keyword args in `make-process'

* process.c (Fmake_process): Respect `:sentinel' and `:filter'
keywords as documented.
---

diff --git a/src/process.c b/src/process.c
index 5319c6c9c47..3ffbbec544b 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1483,8 +1483,8 @@ usage: (make-process &rest ARGS)  */)
   pset_plist (XPROCESS (proc), Qnil);
   pset_type (XPROCESS (proc), Qreal);
   pset_buffer (XPROCESS (proc), buffer);
-  pset_sentinel (XPROCESS (proc), Qinternal_default_process_sentinel);
-  pset_filter (XPROCESS (proc), Qinternal_default_process_filter);
+  pset_sentinel (XPROCESS (proc), Fplist_get (contact, QCsentinel));
+  pset_filter (XPROCESS (proc), Fplist_get (contact, QCfilter));
   pset_command (XPROCESS (proc), Fcopy_sequence (command));
 
   if (tem = Fplist_get (contact, QCnoquery), !NILP (tem))