diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-09-27 17:39:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-09-27 17:39:32 +0000 |
| commit | 2ea4e0e3303d1e3ca3cd4107c17da043b09b61be (patch) | |
| tree | 6b7fb069a144414ffe722e9c32c7c4114f51a346 /lisp/ange-ftp.el | |
| parent | 6b7fb8aaf0ce0da623c42371e13e4a5686db01e6 (diff) | |
| download | emacs-2ea4e0e3303d1e3ca3cd4107c17da043b09b61be.tar.gz | |
(ange-ftp-dumb-unix-host): Avoid error if HOST is nil.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index b2824d02bd2..0983fc2180d 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -653,6 +653,7 @@ parenthesized expressions in REGEXP for the components (in that order).") (defvar ange-ftp-skip-msgs (concat "^200 \\(PORT\\|Port\\) \\|^331 \\|^150 \\|^350 \\|^[0-9]+ bytes \\|" "^Connected \\|^$\\|^Remote system\\|^Using\\|^ \\|Password:\\|" + "^Data connection \\|" "^local:\\|^Trying\\|^125 \\|^550-\\|^221 .*oodbye") "*Regular expression matching ftp messages that can be ignored.") @@ -2204,7 +2205,7 @@ Works by doing a pwd and examining the directory syntax." ;; Returns whether HOST's FTP server doesn't like \'ls\' or \'dir\' commands ;; to take switch arguments. (defun ange-ftp-dumb-unix-host (host) - (and ange-ftp-dumb-unix-host-regexp + (and host ange-ftp-dumb-unix-host-regexp (save-match-data (string-match ange-ftp-dumb-unix-host-regexp host)))) |