Mercurial > emacs
changeset 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 | d383abe2f9f3 |
| children | b9cc587a5d8b |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Wed Sep 27 15:26:15 1995 +0000 +++ b/lisp/ange-ftp.el Wed Sep 27 17:39:32 1995 +0000 @@ -653,6 +653,7 @@ (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 @@ ;; 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))))