# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1016714153 0
# Node ID 51fae98138311bb28141f08422fb34b75208bb4d
# Parent  a980adfcce47110dbb7f3e813007ac24a55a90bc
Test for network process support with featurep.

diff -r a980adfcce47 -r 51fae9813831 lisp/simple.el
--- a/lisp/simple.el	Thu Mar 21 12:23:22 2002 +0000
+++ b/lisp/simple.el	Thu Mar 21 12:35:53 2002 +0000
@@ -4206,7 +4206,7 @@
 
 ;;; make-network-process wrappers
 
-(if (fboundp 'make-network-process)
+(if (featurep 'make-network-process)
     (progn
 
 (defun open-network-stream (name buffer host service)
@@ -4271,7 +4271,7 @@
       (make-network-process :name name :buffer buffer
 			    :service service :server t :noquery t)))
 
-))  ;; (fboundp 'make-network-process)
+))  ;; (featurep 'make-network-process)
 
 
 ;; compatibility