From 68eabf10ac6043328d82f2082d0634c63edaa658 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 23 May 1994 22:44:08 +0000 Subject: [PATCH] (ange-ftp-gwp-start): Call internal-ange-ftp-mode. --- lisp/ange-ftp.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 233936ae046..23ed923064a 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -851,7 +851,7 @@ SIZE, if supplied, should be a prime number." ;;;; 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 @@ good, skip, fatal, or unknown." ;; 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) -- 2.39.5