aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKim F. Storm2002-03-21 12:23:22 +0000
committerKim F. Storm2002-03-21 12:23:22 +0000
commit557ba8b2d6e5f4685c084180d1379cc9fc2980ce (patch)
tree0bcba17ac3282497c19d7af04b4e58991b40b05c
parent778140350cd3c2c9235112058b153b5002b012fb (diff)
downloademacs-557ba8b2d6e5f4685c084180d1379cc9fc2980ce.tar.gz
emacs-557ba8b2d6e5f4685c084180d1379cc9fc2980ce.zip
(open-network-stream-nowait): Use featurep.
(open-network-stream-server): Ditto.
-rw-r--r--lisp/simple.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index e63fde044bf..57493bb06e2 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4240,7 +4240,7 @@ Args are NAME BUFFER HOST SERVICE SENTINEL FILTER.
4240NAME, BUFFER, HOST, and SERVICE are as for `open-network-stream'. 4240NAME, BUFFER, HOST, and SERVICE are as for `open-network-stream'.
4241Optional args, SENTINEL and FILTER specifies the sentinel and filter 4241Optional args, SENTINEL and FILTER specifies the sentinel and filter
4242functions to be used for this network stream." 4242functions to be used for this network stream."
4243 (if (make-network-process :feature :nowait t) 4243 (if (featurep 'make-network-process '(:nowait t))
4244 (make-network-process :name name :buffer buffer :nowait t 4244 (make-network-process :name name :buffer buffer :nowait t
4245 :host host :service service 4245 :host host :service service
4246 :filter filter :sentinel sentinel))) 4246 :filter filter :sentinel sentinel)))
@@ -4267,7 +4267,7 @@ an unused port number for the server.
4267Optional args, SENTINEL and FILTER specifies the sentinel and filter 4267Optional args, SENTINEL and FILTER specifies the sentinel and filter
4268functions to be used for the client processes; the server process 4268functions to be used for the client processes; the server process
4269does not use these function." 4269does not use these function."
4270 (if (make-network-process :feature :server t) 4270 (if (featurep 'make-network-process '(:server t))
4271 (make-network-process :name name :buffer buffer 4271 (make-network-process :name name :buffer buffer
4272 :service service :server t :noquery t))) 4272 :service service :server t :noquery t)))
4273 4273