117 |
(let ((proc (start-process " *nslookup*" " *nslookup*" |
(let ((proc (start-process " *nslookup*" " *nslookup*" |
118 |
url-gateway-nslookup-program host)) |
url-gateway-nslookup-program host)) |
119 |
(res host)) |
(res host)) |
120 |
(process-kill-without-query proc) |
(set-process-query-on-exit-flag proc nil) |
121 |
(save-excursion |
(save-excursion |
122 |
(set-buffer (process-buffer proc)) |
(set-buffer (process-buffer proc)) |
123 |
(while (memq (process-status proc) '(run open)) |
(while (memq (process-status proc) '(run open)) |