From 00dc02800f6f9ae3d50df7604ea78fc91fa32215 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 22 Jan 2002 01:42:44 +0000 Subject: [PATCH] (ange-ftp-bs2000-posix-hook-installed): Move defvar up. --- lisp/net/ange-ftp.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 2af51044896..ef4b65d5556 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -6076,6 +6076,8 @@ Other orders of $ and _ seem to all work just fine.") 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 @@ Other orders of $ and _ seem to all work just fine.") (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 @@ be recognized automatically (they are all valid BS2000 hosts too)." ; (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)))) -- 2.39.5