procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ange-ftp-bs2000-posix-hook-installed): Move defvar up.

Browse source
This commit is contained in:
Richard M. Stallman 2002-01-22 01:42:44 +00:00
parent 41b495aff5
commit 00dc02800f
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/net/ange-ftp.el
View file

@ -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))))