diff options
Diffstat (limited to 'src/process.c')
| -rw-r--r-- | src/process.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/process.c b/src/process.c index 61cf86e4eb3..088997d80ac 100644 --- a/src/process.c +++ b/src/process.c | |||
| @@ -3333,7 +3333,7 @@ usage: (make-network-process &rest ARGS) */) | |||
| 3333 | QCaddress = is_server ? QClocal : QCremote; | 3333 | QCaddress = is_server ? QClocal : QCremote; |
| 3334 | 3334 | ||
| 3335 | /* :nowait BOOL */ | 3335 | /* :nowait BOOL */ |
| 3336 | if (!is_server && socktype == SOCK_STREAM | 3336 | if (!is_server && socktype != SOCK_DGRAM |
| 3337 | && (tem = Fplist_get (contact, QCnowait), !NILP (tem))) | 3337 | && (tem = Fplist_get (contact, QCnowait), !NILP (tem))) |
| 3338 | { | 3338 | { |
| 3339 | #ifndef NON_BLOCKING_CONNECT | 3339 | #ifndef NON_BLOCKING_CONNECT |
| @@ -3428,7 +3428,7 @@ usage: (make-network-process &rest ARGS) */) | |||
| 3428 | Some kernels have a bug which causes retrying connect to fail | 3428 | Some kernels have a bug which causes retrying connect to fail |
| 3429 | after a connect. Polling can interfere with gethostbyname too. */ | 3429 | after a connect. Polling can interfere with gethostbyname too. */ |
| 3430 | #ifdef POLL_FOR_INPUT | 3430 | #ifdef POLL_FOR_INPUT |
| 3431 | if (socktype == SOCK_STREAM) | 3431 | if (socktype != SOCK_DGRAM) |
| 3432 | { | 3432 | { |
| 3433 | record_unwind_protect (unwind_stop_other_atimers, Qnil); | 3433 | record_unwind_protect (unwind_stop_other_atimers, Qnil); |
| 3434 | bind_polling_period (10); | 3434 | bind_polling_period (10); |
| @@ -3631,7 +3631,7 @@ usage: (make-network-process &rest ARGS) */) | |||
| 3631 | } | 3631 | } |
| 3632 | #endif | 3632 | #endif |
| 3633 | 3633 | ||
| 3634 | if (socktype == SOCK_STREAM && listen (s, backlog)) | 3634 | if (socktype != SOCK_DGRAM && listen (s, backlog)) |
| 3635 | report_file_error ("Cannot listen on server socket", Qnil); | 3635 | report_file_error ("Cannot listen on server socket", Qnil); |
| 3636 | 3636 | ||
| 3637 | break; | 3637 | break; |
| @@ -3794,7 +3794,7 @@ usage: (make-network-process &rest ARGS) */) | |||
| 3794 | p->pid = 0; | 3794 | p->pid = 0; |
| 3795 | p->infd = inch; | 3795 | p->infd = inch; |
| 3796 | p->outfd = outch; | 3796 | p->outfd = outch; |
| 3797 | if (is_server && socktype == SOCK_STREAM) | 3797 | if (is_server && socktype != SOCK_DGRAM) |
| 3798 | p->status = Qlisten; | 3798 | p->status = Qlisten; |
| 3799 | 3799 | ||
| 3800 | /* Make the process marker point into the process buffer (if any). */ | 3800 | /* Make the process marker point into the process buffer (if any). */ |