Mercurial > emacs
comparison lisp/net/ange-ftp.el @ 49805:6e4a6658cec0
(ange-ftp-get-file-entry): Allow for graceful
failure returning nil, as documented.
| author | David Kastrup <dak@gnu.org> |
|---|---|
| date | Sat, 15 Feb 2003 15:41:33 +0000 |
| parents | 0d8b17d428b5 |
| children | 2bf79af13e21 |
comparison
equal
deleted
inserted
replaced
| 49804:41a57604cb32 | 49805:6e4a6658cec0 |
|---|---|
| 2936 (gethash file ent) | 2936 (gethash file ent) |
| 2937 (or (and (ange-ftp-allow-child-lookup dir file) | 2937 (or (and (ange-ftp-allow-child-lookup dir file) |
| 2938 (setq ent (ange-ftp-get-files name t)) | 2938 (setq ent (ange-ftp-get-files name t)) |
| 2939 (gethash "." ent)) | 2939 (gethash "." ent)) |
| 2940 ;; i.e. it's a directory by child lookup | 2940 ;; i.e. it's a directory by child lookup |
| 2941 (gethash file (ange-ftp-get-files dir)))))) | 2941 (and (setq ent (ange-ftp-get-files dir t)) |
| 2942 (gethash file ent)))))) | |
| 2942 | 2943 |
| 2943 (defun ange-ftp-internal-delete-file-entry (name &optional dir-p) | 2944 (defun ange-ftp-internal-delete-file-entry (name &optional dir-p) |
| 2944 (when dir-p | 2945 (when dir-p |
| 2945 (setq name (file-name-as-directory name)) | 2946 (setq name (file-name-as-directory name)) |
| 2946 (remhash name ange-ftp-files-hashtable) | 2947 (remhash name ange-ftp-files-hashtable) |