Mercurial > emacs
changeset 42891:3f3b687cc8bf
(ange-ftp-bs2000-posix-hook-installed): Move defvar up.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 22 Jan 2002 01:42:44 +0000 |
| parents | 05f254304877 |
| children | e7cfdc6aa94e |
| files | lisp/net/ange-ftp.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el Tue Jan 22 01:09:23 2002 +0000 +++ b/lisp/net/ange-ftp.el Tue Jan 22 01:42:44 2002 +0000 @@ -6076,6 +6076,8 @@ 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,7 +6147,6 @@ (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 @@ -6157,6 +6158,7 @@ ; (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))))