Mercurial > emacs
changeset 7664:c363ad97af4a
(ange-ftp-gwp-start): Call internal-ange-ftp-mode.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 23 May 1994 22:44:08 +0000 |
| parents | eb26954fb767 |
| children | 7123c846b9b7 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Mon May 23 20:09:33 1994 +0000 +++ b/lisp/ange-ftp.el Mon May 23 22:44:08 1994 +0000 @@ -851,7 +851,7 @@ ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.50 $") +(defconst ange-ftp-version "$Revision: 1.51 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -1621,14 +1621,17 @@ ;; but that doesn't work: ftp never responds. ;; Can anyone find a fix for that? (proc (let ((process-connection-type t)) - (start-process name name + (start-process name name ange-ftp-gateway-program ange-ftp-gateway-host))) (ftp (mapconcat (function identity) args " "))) (process-kill-without-query proc) (set-process-sentinel proc (function ange-ftp-gwp-sentinel)) (set-process-filter proc (function ange-ftp-gwp-filter)) - (set-marker (process-mark proc) (point)) + (save-excursion + (set-buffer (process-buffer proc)) + (internal-ange-ftp-mode) + (set-marker (process-mark proc) (point))) (setq ange-ftp-gwp-running t ange-ftp-gwp-status nil) (ange-ftp-message "Connecting to gateway %s..." ange-ftp-gateway-host)