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

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index dc84b2f..053984f 100644 (file)
--- 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 38220d3..b570166 100644 (file)
--- 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))