diff options
| author | Kim F. Storm | 2002-03-21 12:23:22 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2002-03-21 12:23:22 +0000 |
| commit | 557ba8b2d6e5f4685c084180d1379cc9fc2980ce (patch) | |
| tree | 0bcba17ac3282497c19d7af04b4e58991b40b05c | |
| parent | 778140350cd3c2c9235112058b153b5002b012fb (diff) | |
| download | emacs-557ba8b2d6e5f4685c084180d1379cc9fc2980ce.tar.gz emacs-557ba8b2d6e5f4685c084180d1379cc9fc2980ce.zip | |
(open-network-stream-nowait): Use featurep.
(open-network-stream-server): Ditto.
| -rw-r--r-- | lisp/simple.el | 4 |
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. | |||
| 4240 | NAME, BUFFER, HOST, and SERVICE are as for `open-network-stream'. | 4240 | NAME, BUFFER, HOST, and SERVICE are as for `open-network-stream'. |
| 4241 | Optional args, SENTINEL and FILTER specifies the sentinel and filter | 4241 | Optional args, SENTINEL and FILTER specifies the sentinel and filter |
| 4242 | functions to be used for this network stream." | 4242 | functions 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. | |||
| 4267 | Optional args, SENTINEL and FILTER specifies the sentinel and filter | 4267 | Optional args, SENTINEL and FILTER specifies the sentinel and filter |
| 4268 | functions to be used for the client processes; the server process | 4268 | functions to be used for the client processes; the server process |
| 4269 | does not use these function." | 4269 | does 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 | ||