diff options
Diffstat (limited to 'lisp/net/dns.el')
| -rw-r--r-- | lisp/net/dns.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/net/dns.el b/lisp/net/dns.el index beae5c10649..4fa87050e57 100644 --- a/lisp/net/dns.el +++ b/lisp/net/dns.el @@ -432,8 +432,9 @@ If REVERSEP, look up an IP address." tcp-p)) (while (and (zerop (buffer-size)) (> times 0)) - (sit-for (/ step 1000.0)) - (accept-process-output process 0 step) + (let ((step-sec (/ step 1000.0))) + (sit-for step-sec) + (accept-process-output process step-sec)) (setq times (- times step))) (condition-case nil (delete-process process) |