Commit 68eabf10 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(ange-ftp-gwp-start): Call internal-ange-ftp-mode.

parent 596122a7
...@@ -851,7 +851,7 @@ SIZE, if supplied, should be a prime number." ...@@ -851,7 +851,7 @@ SIZE, if supplied, should be a prime number."
;;;; Internal variables. ;;;; Internal variables.
;;;; ------------------------------------------------------------ ;;;; ------------------------------------------------------------
(defconst ange-ftp-version "$Revision: 1.50 $") (defconst ange-ftp-version "$Revision: 1.51 $")
(defvar ange-ftp-data-buffer-name " *ftp data*" (defvar ange-ftp-data-buffer-name " *ftp data*"
"Buffer name to hold directory listing data received from ftp process.") "Buffer name to hold directory listing data received from ftp process.")
...@@ -1621,14 +1621,17 @@ good, skip, fatal, or unknown." ...@@ -1621,14 +1621,17 @@ good, skip, fatal, or unknown."
;; but that doesn't work: ftp never responds. ;; but that doesn't work: ftp never responds.
;; Can anyone find a fix for that? ;; Can anyone find a fix for that?
(proc (let ((process-connection-type t)) (proc (let ((process-connection-type t))
(start-process name name (start-process name name
ange-ftp-gateway-program ange-ftp-gateway-program
ange-ftp-gateway-host))) ange-ftp-gateway-host)))
(ftp (mapconcat (function identity) args " "))) (ftp (mapconcat (function identity) args " ")))
(process-kill-without-query proc) (process-kill-without-query proc)
(set-process-sentinel proc (function ange-ftp-gwp-sentinel)) (set-process-sentinel proc (function ange-ftp-gwp-sentinel))
(set-process-filter proc (function ange-ftp-gwp-filter)) (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 (setq ange-ftp-gwp-running t
ange-ftp-gwp-status nil) ange-ftp-gwp-status nil)
(ange-ftp-message "Connecting to gateway %s..." ange-ftp-gateway-host) (ange-ftp-message "Connecting to gateway %s..." ange-ftp-gateway-host)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment