From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 17 Jan 2002 01:40:23 +0000 (+0000)
Subject: (ange-ftp-passive-mode): New arg PROC.
X-Git-Tag: ttn-vms-21-2-B4~17104
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=31bcb0dc4de7109e886f13d5fdc24c0d2b34d350;p=emacs.git

(ange-ftp-passive-mode): New arg PROC.
(ange-ftp-get-process): Pass that arg.
---

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."
 				   '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)