Mercurial > emacs
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)))