From 31bcb0dc4de7109e886f13d5fdc24c0d2b34d350 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 17 Jan 2002 01:40:23 +0000 Subject: [PATCH] (ange-ftp-passive-mode): New arg PROC. (ange-ftp-get-process): Pass that arg. --- lisp/net/ange-ftp.el | 4 ++-- 1 file 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." '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) -- 2.39.5