Mercurial > emacs
diff lisp/net/ange-ftp.el @ 56765:3c6aa215e03f
(ange-ftp-gwp-start, ange-ftp-nslookup-host)
(ange-ftp-start-process): Use set-process-query-on-exit-flag.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 22 Aug 2004 17:11:34 +0000 |
parents | 19c16bca1b49 |
children | 4f0c0062f974 d8411455de48 |
line wrap: on
line diff
--- 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