Mercurial > emacs
comparison lisp/ange-ftp.el @ 13089:c18fa2e296f9
(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." |