Mercurial > emacs
changeset 17584:53a369ac3d2c
(ange-ftp-file-entry-p): If ange-ftp-get-files returns
nil, don't try ange-ftp-hash-entry-exists-p, just give up.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 27 Apr 1997 22:41:00 +0000 |
| parents | ef3d3871adef |
| children | aefc22e52046 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Sun Apr 27 22:05:34 1997 +0000 +++ b/lisp/ange-ftp.el Sun Apr 27 22:41:00 1997 +0000 @@ -2669,12 +2669,12 @@ ;; will simply send back the ls ;; error message. (ange-ftp-get-hash-entry "." ent)) - ;; Child lookup failed. Try the parent. If this bombs, - ;; we are at wits end -- signal an error. - ;; Problem: If this signals an error, the error message - ;; may not have a lot to do with what went wrong. - (ange-ftp-hash-entry-exists-p file - (ange-ftp-get-files dir)))))) + ;; Child lookup failed, so try the parent. + (let ((table (ange-ftp-get-files dir))) + ;; If the dir doesn't exist, don't use it as a hash table. + (and table + (ange-ftp-hash-entry-exists-p file + table))))))) (defun ange-ftp-get-file-entry (name) "Given NAME, return the given file entry.