diff options
| author | David Kastrup <dak@gnu.org> | 2003-02-15 15:41:33 +0000 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2003-02-15 15:41:33 +0000 |
| commit | 57199263600f82d8bc0a4af0e43850b1af4df0ce (patch) | |
| tree | bae73fe938503032e5e9f1e0defea0630546b92b /lisp/net | |
| parent | 495122f95f72cddaca2a3e7881b4078ea9a82553 (diff) | |
| download | emacs-57199263600f82d8bc0a4af0e43850b1af4df0ce.tar.gz | |
(ange-ftp-get-file-entry): Allow for graceful
failure returning nil, as documented.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/ange-ftp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 1ac2311e266..58ffe0b27d5 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -2938,7 +2938,8 @@ this also returns nil." (setq ent (ange-ftp-get-files name t)) (gethash "." ent)) ;; i.e. it's a directory by child lookup - (gethash file (ange-ftp-get-files dir)))))) + (and (setq ent (ange-ftp-get-files dir t)) + (gethash file ent)))))) (defun ange-ftp-internal-delete-file-entry (name &optional dir-p) (when dir-p |