Mercurial > emacs

comparison lisp/ange-ftp.el @ 13089:c18fa2e296f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-dumb-unix-host): Avoid error if HOST is nil.
author Richard M. Stallman <rms@gnu.org>
date Wed, 27 Sep 1995 17:39:32 +0000
parents 35c7fa318961
children 9493a12ca8a5
comparison
equal deleted inserted replaced
13088:d383abe2f9f3 13089:c18fa2e296f9
651 ;; when it gets the 550 line, as it should. 651 ;; when it gets the 550 line, as it should.
652 652
653 (defvar ange-ftp-skip-msgs 653 (defvar ange-ftp-skip-msgs
654 (concat "^200 \\(PORT\\|Port\\) \\|^331 \\|^150 \\|^350 \\|^[0-9]+ bytes \\|" 654 (concat "^200 \\(PORT\\|Port\\) \\|^331 \\|^150 \\|^350 \\|^[0-9]+ bytes \\|"
655 "^Connected \\|^$\\|^Remote system\\|^Using\\|^ \\|Password:\\|" 655 "^Connected \\|^$\\|^Remote system\\|^Using\\|^ \\|Password:\\|"
656 "^Data connection \\|"
656 "^local:\\|^Trying\\|^125 \\|^550-\\|^221 .*oodbye") 657 "^local:\\|^Trying\\|^125 \\|^550-\\|^221 .*oodbye")
657 "*Regular expression matching ftp messages that can be ignored.") 658 "*Regular expression matching ftp messages that can be ignored.")
658 659
659 (defvar ange-ftp-fatal-msgs 660 (defvar ange-ftp-fatal-msgs
660 (concat "^ftp: \\|^Not connected\\|^530 \\|^4[25]1 \\|rcmd: \\|" 661 (concat "^ftp: \\|^Not connected\\|^530 \\|^4[25]1 \\|rcmd: \\|"
2202 ;;;; ------------------------------------------------------------ 2203 ;;;; ------------------------------------------------------------
2203 2204
2204 ;; Returns whether HOST's FTP server doesn't like \'ls\' or \'dir\' commands 2205 ;; Returns whether HOST's FTP server doesn't like \'ls\' or \'dir\' commands
2205 ;; to take switch arguments. 2206 ;; to take switch arguments.
2206 (defun ange-ftp-dumb-unix-host (host) 2207 (defun ange-ftp-dumb-unix-host (host)
2207 (and ange-ftp-dumb-unix-host-regexp 2208 (and host ange-ftp-dumb-unix-host-regexp
2208 (save-match-data 2209 (save-match-data
2209 (string-match ange-ftp-dumb-unix-host-regexp host)))) 2210 (string-match ange-ftp-dumb-unix-host-regexp host))))
2210 2211
2211 (defun ange-ftp-add-dumb-unix-host (host) 2212 (defun ange-ftp-add-dumb-unix-host (host)
2212 "Interactively adds a given HOST to ange-ftp-dumb-unix-host-regexp." 2213 "Interactively adds a given HOST to ange-ftp-dumb-unix-host-regexp."