From: David Kastrup <dak@gnu.org>
Date: Sat, 15 Feb 2003 15:41:33 +0000 (+0000)
Subject: (ange-ftp-get-file-entry): Allow for graceful
X-Git-Tag: ttn-vms-21-2-B4~11179
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=57199263600f82d8bc0a4af0e43850b1af4df0ce;p=emacs.git

(ange-ftp-get-file-entry): Allow for graceful
failure returning nil, as documented.
---

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