Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 56764:57c8c9029251 | 56765:3c6aa215e03f |
|---|---|
| 1769 (proc (let ((process-connection-type t)) | 1769 (proc (let ((process-connection-type t)) |
| 1770 (start-process name name | 1770 (start-process name name |
| 1771 ange-ftp-gateway-program | 1771 ange-ftp-gateway-program |
| 1772 ange-ftp-gateway-host))) | 1772 ange-ftp-gateway-host))) |
| 1773 (ftp (mapconcat 'identity args " "))) | 1773 (ftp (mapconcat 'identity args " "))) |
| 1774 (process-kill-without-query proc) | 1774 (set-process-query-on-exit-flag proc nil) |
| 1775 (set-process-sentinel proc 'ange-ftp-gwp-sentinel) | 1775 (set-process-sentinel proc 'ange-ftp-gwp-sentinel) |
| 1776 (set-process-filter proc 'ange-ftp-gwp-filter) | 1776 (set-process-filter proc 'ange-ftp-gwp-filter) |
| 1777 (save-excursion | 1777 (save-excursion |
| 1778 (set-buffer (process-buffer proc)) | 1778 (set-buffer (process-buffer proc)) |
| 1779 (goto-char (point-max)) | 1779 (goto-char (point-max)) |
| 1878 ;; Can anyone find a fix for that? | 1878 ;; Can anyone find a fix for that? |
| 1879 (proc (let ((process-connection-type t)) | 1879 (proc (let ((process-connection-type t)) |
| 1880 (start-process " *nslookup*" " *nslookup*" | 1880 (start-process " *nslookup*" " *nslookup*" |
| 1881 ange-ftp-nslookup-program host))) | 1881 ange-ftp-nslookup-program host))) |
| 1882 (res host)) | 1882 (res host)) |
| 1883 (process-kill-without-query proc) | 1883 (set-process-query-on-exit-flag proc nil) |
| 1884 (save-excursion | 1884 (save-excursion |
| 1885 (set-buffer (process-buffer proc)) | 1885 (set-buffer (process-buffer proc)) |
| 1886 (while (memq (process-status proc) '(run open)) | 1886 (while (memq (process-status proc) '(run open)) |
| 1887 (accept-process-output proc)) | 1887 (accept-process-output proc)) |
| 1888 (goto-char (point-min)) | 1888 (goto-char (point-min)) |
| 1936 (setq proc (apply 'start-process name name args)))) | 1936 (setq proc (apply 'start-process name name args)))) |
| 1937 (save-excursion | 1937 (save-excursion |
| 1938 (set-buffer (process-buffer proc)) | 1938 (set-buffer (process-buffer proc)) |
| 1939 (goto-char (point-max)) | 1939 (goto-char (point-max)) |
| 1940 (set-marker (process-mark proc) (point))) | 1940 (set-marker (process-mark proc) (point))) |
| 1941 (process-kill-without-query proc) | 1941 (set-process-query-on-exit-flag proc nil) |
| 1942 (set-process-sentinel proc 'ange-ftp-process-sentinel) | 1942 (set-process-sentinel proc 'ange-ftp-process-sentinel) |
| 1943 (set-process-filter proc 'ange-ftp-process-filter) | 1943 (set-process-filter proc 'ange-ftp-process-filter) |
| 1944 ;; On Windows, the standard ftp client buffers its output (because | 1944 ;; On Windows, the standard ftp client buffers its output (because |
| 1945 ;; stdout is a pipe handle) so the startup message may never appear: | 1945 ;; stdout is a pipe handle) so the startup message may never appear: |
| 1946 ;; `accept-process-output' at this point would hang indefinitely. | 1946 ;; `accept-process-output' at this point would hang indefinitely. |