Mercurial > emacs
comparison lisp/net/ange-ftp.el @ 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 | 50a74884f960 |
| children | 3ee90bcdf67d |
comparison
equal
deleted
inserted
replaced
| 42800:327786c48101 | 42801:b719a1276b31 |
|---|---|
| 2118 (passive | 2118 (passive |
| 2119 (or (assoc-default host ange-ftp-passive-host-alist | 2119 (or (assoc-default host ange-ftp-passive-host-alist |
| 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) |
| 2134 "Trying passive mode..." nil))) | 2134 "Trying passive mode..." nil))) |
| 2135 (ange-ftp-message (concat "Trying passive mode..." on-or-off)) | 2135 (ange-ftp-message (concat "Trying passive mode..." on-or-off)) |