[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el

[Richard M . Stallman]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.59 emacs/lisp/net/ange-ftp.el:1.60
*** emacs/lisp/net/ange-ftp.el:1.59     Sat Aug 21 21:50:06 2004
--- emacs/lisp/net/ange-ftp.el  Sun Aug 22 17:11:34 2004
***************
*** 1771,1777 ****
                                ange-ftp-gateway-program
                                ange-ftp-gateway-host)))
         (ftp (mapconcat 'identity args " ")))
!     (process-kill-without-query proc)
      (set-process-sentinel proc 'ange-ftp-gwp-sentinel)
      (set-process-filter proc 'ange-ftp-gwp-filter)
      (save-excursion
--- 1771,1777 ----
                                ange-ftp-gateway-program
                                ange-ftp-gateway-host)))
         (ftp (mapconcat 'identity args " ")))
!     (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,1886 ****
                    (start-process " *nslookup*" " *nslookup*"
                                   ange-ftp-nslookup-program host)))
            (res host))
!       (process-kill-without-query proc)
        (save-excursion
          (set-buffer (process-buffer proc))
          (while (memq (process-status proc) '(run open))
--- 1880,1886 ----
                    (start-process " *nslookup*" " *nslookup*"
                                   ange-ftp-nslookup-program host)))
            (res host))
!       (set-process-query-on-exit-flag proc nil)
        (save-excursion
          (set-buffer (process-buffer proc))
          (while (memq (process-status proc) '(run open))
***************
*** 1938,1944 ****
        (set-buffer (process-buffer proc))
        (goto-char (point-max))
        (set-marker (process-mark proc) (point)))
!     (process-kill-without-query proc)
      (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
--- 1938,1944 ----
        (set-buffer (process-buffer proc))
        (goto-char (point-max))
        (set-marker (process-mark proc) (point)))
!     (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