Mercurial > emacs
changeset 42801:b719a1276b31
(ange-ftp-passive-mode): New arg PROC.
(ange-ftp-get-process): Pass that arg.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 17 Jan 2002 01:40:23 +0000 |
| parents | 327786c48101 |
| children | d72ace523825 |
| files | lisp/net/ange-ftp.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el Thu Jan 17 01:40:04 2002 +0000 +++ b/lisp/net/ange-ftp.el Thu Jan 17 01:40:23 2002 +0000 @@ -2120,14 +2120,14 @@ 'string-match) (if ange-ftp-try-passive-mode "on")))) (if passive - (ange-ftp-passive-mode passive))) + (ange-ftp-passive-mode proc passive))) ;; Run any user-specified hooks. Note that proc, host and user are ;; dynamically bound at this point. (run-hooks 'ange-ftp-process-startup-hook)) proc))) -(defun ange-ftp-passive-mode (on-or-off) +(defun ange-ftp-passive-mode (proc on-or-off) (if (string-match (concat "Passive mode " on-or-off) (cdr (ange-ftp-raw-send-cmd proc (concat "passive " on-or-off)