diff options
| author | Richard M. Stallman | 2002-01-17 01:40:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-01-17 01:40:23 +0000 |
| commit | 31bcb0dc4de7109e886f13d5fdc24c0d2b34d350 (patch) | |
| tree | 30f9faf731a3dee354ac17bfab1f12137bc7d48f | |
| parent | ff78c7214c8d3f39a55a080427d51d0378ae45cf (diff) | |
| download | emacs-31bcb0dc4de7109e886f13d5fdc24c0d2b34d350.tar.gz emacs-31bcb0dc4de7109e886f13d5fdc24c0d2b34d350.zip | |
(ange-ftp-passive-mode): New arg PROC.
(ange-ftp-get-process): Pass that arg.
| -rw-r--r-- | lisp/net/ange-ftp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 61b3f151645..ae86391ffbc 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el | |||
| @@ -2120,14 +2120,14 @@ Create a new process if needed." | |||
| 2120 | 'string-match) | 2120 | 'string-match) |
| 2121 | (if ange-ftp-try-passive-mode "on")))) | 2121 | (if ange-ftp-try-passive-mode "on")))) |
| 2122 | (if passive | 2122 | (if passive |
| 2123 | (ange-ftp-passive-mode passive))) | 2123 | (ange-ftp-passive-mode proc passive))) |
| 2124 | 2124 | ||
| 2125 | ;; Run any user-specified hooks. Note that proc, host and user are | 2125 | ;; Run any user-specified hooks. Note that proc, host and user are |
| 2126 | ;; dynamically bound at this point. | 2126 | ;; dynamically bound at this point. |
| 2127 | (run-hooks 'ange-ftp-process-startup-hook)) | 2127 | (run-hooks 'ange-ftp-process-startup-hook)) |
| 2128 | proc))) | 2128 | proc))) |
| 2129 | 2129 | ||
| 2130 | (defun ange-ftp-passive-mode (on-or-off) | 2130 | (defun ange-ftp-passive-mode (proc on-or-off) |
| 2131 | (if (string-match (concat "Passive mode " on-or-off) | 2131 | (if (string-match (concat "Passive mode " on-or-off) |
| 2132 | (cdr (ange-ftp-raw-send-cmd | 2132 | (cdr (ange-ftp-raw-send-cmd |
| 2133 | proc (concat "passive " on-or-off) | 2133 | proc (concat "passive " on-or-off) |