diff options
author | Richard M. Stallman <rms@gnu.org> | 2004-08-22 17:11:34 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2004-08-22 17:11:34 +0000 |
commit | 260763dbb07b4fff981d090f9c3d3a28758849d9 (patch) | |
tree | 286a6fb86151e888b5162ebc7877f1447c0c8b96 /lisp/net/ange-ftp.el | |
parent | 4d96f7e75bed46ef6ec86cc0824cfb0529994725 (diff) | |
download | emacs-260763dbb07b4fff981d090f9c3d3a28758849d9.tar.gz |
(ange-ftp-gwp-start, ange-ftp-nslookup-host)
(ange-ftp-start-process): Use set-process-query-on-exit-flag.
Diffstat (limited to 'lisp/net/ange-ftp.el')
-rw-r--r-- | lisp/net/ange-ftp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index b9a7fc46148..c1f3c0a8d52 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -1771,7 +1771,7 @@ good, skip, fatal, or unknown." 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 @@ been queued with no result. CONT will still be called, however." (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 @@ on the gateway machine to do the ftp instead." (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 |