# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1093194694 0
# Node ID 3c6aa215e03f9ba701f8d0a358c3a9d192b518fa
# Parent  57c8c9029251632da036814126a016c8125dc116
(ange-ftp-gwp-start, ange-ftp-nslookup-host)
(ange-ftp-start-process): Use set-process-query-on-exit-flag.

diff -r 57c8c9029251 -r 3c6aa215e03f lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Sun Aug 22 17:09:58 2004 +0000
+++ b/lisp/net/ange-ftp.el	Sun Aug 22 17:11:34 2004 +0000
@@ -1771,7 +1771,7 @@
 				ange-ftp-gateway-program
 				ange-ftp-gateway-host)))
 	 (ftp (mapconcat 'identity args " ")))
-    (process-kill-without-query proc)
+    (set-process-query-on-exit-flag proc nil)
     (set-process-sentinel proc 'ange-ftp-gwp-sentinel)
     (set-process-filter proc 'ange-ftp-gwp-filter)
     (save-excursion
@@ -1880,7 +1880,7 @@
 		    (start-process " *nslookup*" " *nslookup*"
 				   ange-ftp-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))
@@ -1938,7 +1938,7 @@
       (set-buffer (process-buffer proc))
       (goto-char (point-max))
       (set-marker (process-mark proc) (point)))
-    (process-kill-without-query proc)
+    (set-process-query-on-exit-flag proc nil)
     (set-process-sentinel proc 'ange-ftp-process-sentinel)
     (set-process-filter proc 'ange-ftp-process-filter)
     ;; On Windows, the standard ftp client buffers its output (because