diff options
| author | Richard M. Stallman | 1997-04-27 22:41:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-04-27 22:41:00 +0000 |
| commit | 028873a04818daade50153a28d7b89cc2ab197be (patch) | |
| tree | 13d811ea732c7090a7c8cde26aaf68a8b89ec2e5 | |
| parent | 85cdc4134962a4f4bcbd37aa6b504973b4576c4b (diff) | |
| download | emacs-028873a04818daade50153a28d7b89cc2ab197be.tar.gz emacs-028873a04818daade50153a28d7b89cc2ab197be.zip | |
(ange-ftp-file-entry-p): If ange-ftp-get-files returns
nil, don't try ange-ftp-hash-entry-exists-p, just give up.
| -rw-r--r-- | lisp/ange-ftp.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 35b63c1ec2c..3586dc4a35c 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el | |||
| @@ -2669,12 +2669,12 @@ NO-ERROR, if a listing for DIRECTORY cannot be obtained." | |||
| 2669 | ;; will simply send back the ls | 2669 | ;; will simply send back the ls |
| 2670 | ;; error message. | 2670 | ;; error message. |
| 2671 | (ange-ftp-get-hash-entry "." ent)) | 2671 | (ange-ftp-get-hash-entry "." ent)) |
| 2672 | ;; Child lookup failed. Try the parent. If this bombs, | 2672 | ;; Child lookup failed, so try the parent. |
| 2673 | ;; we are at wits end -- signal an error. | 2673 | (let ((table (ange-ftp-get-files dir))) |
| 2674 | ;; Problem: If this signals an error, the error message | 2674 | ;; If the dir doesn't exist, don't use it as a hash table. |
| 2675 | ;; may not have a lot to do with what went wrong. | 2675 | (and table |
| 2676 | (ange-ftp-hash-entry-exists-p file | 2676 | (ange-ftp-hash-entry-exists-p file |
| 2677 | (ange-ftp-get-files dir)))))) | 2677 | table))))))) |
| 2678 | 2678 | ||
| 2679 | (defun ange-ftp-get-file-entry (name) | 2679 | (defun ange-ftp-get-file-entry (name) |
| 2680 | "Given NAME, return the given file entry. | 2680 | "Given NAME, return the given file entry. |