(url-gateway-nslookup-host): Use `set-process-query-on-exit-flag'.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index dc84b2f8dd6..053984fcaeb 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2004-10-20  John Paul Wallington  <jpw@gnu.org>
+
+        * url-gw.el (url-gateway-nslookup-host):
+        Use `set-process-query-on-exit-flag'.
+
 2004-10-10  Lars Hansen  <larsh@math.ku.dk>
 
         * url-auth.el: Update header and footer.
diff --git a/lisp/url/url-gw.el b/lisp/url/url-gw.el
index 38220d3cc21..b5701668f83 100644
--- a/lisp/url/url-gw.el
+++ b/lisp/url/url-gw.el
@@ -117,7 +117,7 @@ linked Emacs under SunOS 4.x"
       (let ((proc (start-process " *nslookup*" " *nslookup*"
                                  url-gateway-nslookup-program host))
             (res host))
-        (process-kill-without-query proc)
+        (set-process-query-on-exit-flag proc nil)
         (save-excursion
           (set-buffer (process-buffer proc))
           (while (memq (process-status proc) '(run open))