# HG changeset patch
# User David Kastrup <dak@gnu.org>
# Date 1045323693 0
# Node ID 6e4a6658cec0d09a6f2ba5684707ceddfb128839
# Parent  41a57604cb3218d3641be2f50ec107c85b3a1353
(ange-ftp-get-file-entry): Allow for graceful
failure returning nil, as documented.

diff -r 41a57604cb32 -r 6e4a6658cec0 lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Sat Feb 15 15:41:04 2003 +0000
+++ b/lisp/net/ange-ftp.el	Sat Feb 15 15:41:33 2003 +0000
@@ -2938,7 +2938,8 @@
 	       (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