/[emacs]/emacs/lisp/net/ange-ftp.el
ViewVC logotype

Diff of /emacs/lisp/net/ange-ftp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by rms, Sun Jan 20 22:10:54 2002 UTC revision 1.26 by rms, Tue Jan 22 01:42:44 2002 UTC
# Line 6076  Other orders of $ and _ seem to all work Line 6076  Other orders of $ and _ seem to all work
6076                      ange-ftp-bs2000-host-regexp)                      ange-ftp-bs2000-host-regexp)
6077              ange-ftp-host-cache nil)))              ange-ftp-host-cache nil)))
6078    
6079    (defvar ange-ftp-bs2000-posix-hook-installed nil)
6080    
6081  (defun ange-ftp-add-bs2000-posix-host (host)  (defun ange-ftp-add-bs2000-posix-host (host)
6082    "Mark HOST as the name of a machine running BS2000 with POSIX subsystem."    "Mark HOST as the name of a machine running BS2000 with POSIX subsystem."
6083    (interactive    (interactive
# Line 6145  Other orders of $ and _ seem to all work Line 6147  Other orders of $ and _ seem to all work
6147            (cons '(bs2000 . ange-ftp-parse-bs2000-listing)            (cons '(bs2000 . ange-ftp-parse-bs2000-listing)
6148                  ange-ftp-parse-list-func-alist)))                  ange-ftp-parse-list-func-alist)))
6149    
 (defvar ange-ftp-bs2000-posix-hook-installed nil)  
6150  (defun ange-ftp-bs2000-cd-to-posix ()  (defun ange-ftp-bs2000-cd-to-posix ()
6151    "cd to POSIX subsystem if the current host matches    "cd to POSIX subsystem if the current host matches
6152  ange-ftp-bs2000-posix-host-regexp.  All BS2000 hosts with POSIX subsystem  ange-ftp-bs2000-posix-host-regexp.  All BS2000 hosts with POSIX subsystem
# Line 6157  be recognized automatically (they are al Line 6158  be recognized automatically (they are al
6158  ;       (ange-ftp-raw-send-cmd proc "cd %POSIX")  ;       (ange-ftp-raw-send-cmd proc "cd %POSIX")
6159          (ange-ftp-cd host user "%POSIX")          (ange-ftp-cd host user "%POSIX")
6160          ;; put new home directory in the expand-dir hashtable.          ;; put new home directory in the expand-dir hashtable.
6161            ;; `host' and `user' are bound in ange-ftp-get-process.
6162          (ange-ftp-put-hash-entry (concat host "/" user "/~")          (ange-ftp-put-hash-entry (concat host "/" user "/~")
6163                                   (car (ange-ftp-get-pwd host user))                                   (car (ange-ftp-get-pwd host user))
6164                                   ange-ftp-expand-dir-hashtable))))                                   ange-ftp-expand-dir-hashtable))))

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26