[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.25 emacs/lisp/net/ange-ftp.el:1.26
*** emacs/lisp/net/ange-ftp.el:1.25     Sun Jan 20 17:10:54 2002
--- emacs/lisp/net/ange-ftp.el  Mon Jan 21 20:42:44 2002
***************
*** 6076,6081 ****
--- 6076,6083 ----
                    ange-ftp-bs2000-host-regexp)
            ange-ftp-host-cache nil)))
  
+ (defvar ange-ftp-bs2000-posix-hook-installed nil)
+ 
  (defun ange-ftp-add-bs2000-posix-host (host)
    "Mark HOST as the name of a machine running BS2000 with POSIX subsystem."
    (interactive
***************
*** 6145,6151 ****
          (cons '(bs2000 . ange-ftp-parse-bs2000-listing)
                ange-ftp-parse-list-func-alist)))
  
- (defvar ange-ftp-bs2000-posix-hook-installed nil)
  (defun ange-ftp-bs2000-cd-to-posix ()
    "cd to POSIX subsystem if the current host matches
  ange-ftp-bs2000-posix-host-regexp.  All BS2000 hosts with POSIX subsystem
--- 6147,6152 ----
***************
*** 6157,6162 ****
--- 6158,6164 ----
  ;     (ange-ftp-raw-send-cmd proc "cd %POSIX")
        (ange-ftp-cd host user "%POSIX")
        ;; put new home directory in the expand-dir hashtable.
+       ;; `host' and `user' are bound in ange-ftp-get-process.
        (ange-ftp-put-hash-entry (concat host "/" user "/~")
                                 (car (ange-ftp-get-pwd host user))
                                 ange-ftp-expand-dir-hashtable))))