From: Kim F. Storm <storm@cua.dk>
Date: Tue, 28 May 2002 22:04:14 +0000 (+0000)
Subject: (open-network-stream-server): Pass on optional args
X-Git-Tag: ttn-vms-21-2-B4~14831
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5f64b52b67f2ca96607933a87f02ba54541ec202;p=emacs.git

(open-network-stream-server): Pass on optional args
sentinel and filter to make-network-process (from Luke Gorrie).
---

diff --git a/lisp/simple.el b/lisp/simple.el
index a2701047057..95b89eab04d 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4328,7 +4328,8 @@ functions to be used for the client processes; the server process
 does not use these function."
   (if (featurep 'make-network-process '(:server t))
       (make-network-process :name name :buffer buffer
-			    :service service :server t :noquery t)))
+			    :service service :server t :noquery t
+			    :sentinel sentinel :filter filter)))
 
 ))  ;; (featurep 'make-network-process)