From 557ba8b2d6e5f4685c084180d1379cc9fc2980ce Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Thu, 21 Mar 2002 12:23:22 +0000 Subject: [PATCH] (open-network-stream-nowait): Use featurep. (open-network-stream-server): Ditto. --- lisp/simple.el | 4 ++-- 1 file 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. 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 @@ an unused port number for the server. 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))) -- 2.39.2