changeset 44069:a980adfcce47

(open-network-stream-nowait): Use featurep. (open-network-stream-server): Ditto.
author Kim F. Storm <storm@cua.dk>
date Thu, 21 Mar 2002 12:23:22 +0000
parents 85388a495f68
children 51fae9813831
files lisp/simple.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Thu Mar 21 12:22:32 2002 +0000
+++ b/lisp/simple.el	Thu Mar 21 12:23:22 2002 +0000
@@ -4240,7 +4240,7 @@
 NAME, BUFFER, HOST, and SERVICE are as for `open-network-stream'.
 Optional args, SENTINEL and FILTER specifies the sentinel and filter
 functions to be used for this network stream."
-  (if (make-network-process :feature :nowait t)
+  (if (featurep 'make-network-process  '(:nowait t))
       (make-network-process :name name :buffer buffer :nowait t
 			    :host host :service service
 			    :filter filter :sentinel sentinel)))
@@ -4267,7 +4267,7 @@
 Optional args, SENTINEL and FILTER specifies the sentinel and filter
 functions to be used for the client processes; the server process
 does not use these function."
-  (if (make-network-process :feature :server t)
+  (if (featurep 'make-network-process '(:server t))
       (make-network-process :name name :buffer buffer
 			    :service service :server t :noquery t)))