From 57199263600f82d8bc0a4af0e43850b1af4df0ce Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sat, 15 Feb 2003 15:41:33 +0000 Subject: [PATCH] (ange-ftp-get-file-entry): Allow for graceful failure returning nil, as documented. --- lisp/net/ange-ftp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.2