[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el

[Richard M. Stallman]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.23 emacs/lisp/net/ange-ftp.el:1.24
*** emacs/lisp/net/ange-ftp.el:1.23     Mon Jan 14 08:00:43 2002
--- emacs/lisp/net/ange-ftp.el  Wed Jan 16 20:40:23 2002
***************
*** 2120,2133 ****
                                   'string-match)
                    (if ange-ftp-try-passive-mode "on"))))
          (if passive
!             (ange-ftp-passive-mode 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)
    (if (string-match (concat "Passive mode " on-or-off)
                      (cdr (ange-ftp-raw-send-cmd
                            proc (concat "passive " on-or-off)
--- 2120,2133 ----
                                   'string-match)
                    (if ange-ftp-try-passive-mode "on"))))
          (if 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 (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)