Mercurial > hg > xemacs-beta

comparison lisp/dired/ange-ftp.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children b82b59fe008d
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
870 (defvar ange-ftp-nslookup-program nil 870 (defvar ange-ftp-nslookup-program nil
871 "*If non-NIL then a string naming nslookup program." ) 871 "*If non-NIL then a string naming nslookup program." )
872 872
873 (defvar ange-ftp-make-backup-files () 873 (defvar ange-ftp-make-backup-files ()
874 "*A list of operating systems for which ange-ftp will make Emacs backup 874 "*A list of operating systems for which ange-ftp will make Emacs backup
875 files files on the remote host. For example, '\(unix\) makes sense, but 875 files on the remote host. For example, '\(unix\) makes sense, but
876 '\(unix vms\) or '\(vms\) would be silly, since vms makes its own backups.") 876 '\(unix vms\) or '\(vms\) would be silly, since vms makes its own backups.")
877 877
878 (defvar ange-ftp-retry-time 5 878 (defvar ange-ftp-retry-time 5
879 "*Number of seconds to wait before retrying if a file or listing 879 "*Number of seconds to wait before retrying if a file or listing
880 doesn't arrive. This might need to be increased for very slow connections.") 880 doesn't arrive. This might need to be increased for very slow connections.")
2143 "^[-A-Z0-9_$]+:\\[[-A-Z0-9_$]+\\(\\.[-A-Z0-9_$]+\\)*\\]$") 2143 "^[-A-Z0-9_$]+:\\[[-A-Z0-9_$]+\\(\\.[-A-Z0-9_$]+\\)*\\]$")
2144 (defconst ange-ftp-mts-path-template 2144 (defconst ange-ftp-mts-path-template
2145 "^[A-Z0-9._][A-Z0-9._][A-Z0-9._][A-Z0-9._]:$") 2145 "^[A-Z0-9._][A-Z0-9._][A-Z0-9._][A-Z0-9._]:$")
2146 2146
2147 (defun ange-ftp-guess-host-type (host user) 2147 (defun ange-ftp-guess-host-type (host user)
2148 "Guess at the the host type of HOST by doing a pwd, and examining 2148 "Guess at the host type of HOST by doing a pwd, and examining
2149 the directory syntax." 2149 the directory syntax."
2150 (let ((host-type (ange-ftp-host-type host)) 2150 (let ((host-type (ange-ftp-host-type host))
2151 (key (concat host "/" user "/~"))) 2151 (key (concat host "/" user "/~")))
2152 (if (eq host-type 'unix) 2152 (if (eq host-type 'unix)
2153 ;; Note that ange-ftp-host-type returns unix as the default value. 2153 ;; Note that ange-ftp-host-type returns unix as the default value.