Mercurial > emacs

changeset 49805:6e4a6658cec0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 41a57604cb32
children 2edf03d7c602
files lisp/net/ange-ftp.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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