martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(ange-ftp-file-entry-p): If ange-ftp-get-files returns

Browse Source 
nil, don't try ange-ftp-hash-entry-exists-p, just give up.
This commit is contained in:
Richard M. Stallman
1997-04-27 22:41:00 +00:00
parent 85cdc41349
commit 028873a048
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/ange-ftp.el
View File

@@ -2669,12 +2669,12 @@ NO-ERROR, if a listing for DIRECTORY cannot be obtained."
;; 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.