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 5319c6c9c47ecc97db4d4448ba1524625ec30d82..3ffbbec544b6b86972379aaed02ccf0c0dea81ca 100644 (file)
--- 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))