changeset 51799:2a6ed9e210b2

(ange-ftp-file-symlink-p): Use condition-case to catch error in ange-ftp-get-files.
author Richard M. Stallman <rms@gnu.org>
date Mon, 07 Jul 2003 20:55:38 +0000
parents 04564d8f3be9
children e5ae6af23b7b
files lisp/net/ange-ftp.el
diffstat 1 files changed, 11 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el	Mon Jul 07 20:54:56 2003 +0000
+++ b/lisp/net/ange-ftp.el	Mon Jul 07 20:55:38 2003 +0000
@@ -3371,11 +3371,17 @@
   ;; redefines both file-symlink-p and expand-file-name.
   (setq file (ange-ftp-expand-file-name file))
   (if (ange-ftp-ftp-name file)
-      (let ((file-ent
-	     (gethash
-	      (ange-ftp-get-file-part file)
-	      (ange-ftp-get-files (file-name-directory file)))))
-	(and (stringp file-ent) file-ent))
+      (condition-case nil
+	  (let ((file-ent
+		 (gethash
+		  (ange-ftp-get-file-part file)
+		  (ange-ftp-get-files (file-name-directory file)))))
+	    (and (stringp file-ent) file-ent))
+	;; If we can't read the parent directory, just assume
+	;; this file is not a symlink.
+	;; This makes it possible to access a directory that
+	;; whose parent is not readable.
+	(file-error nil))
     (ange-ftp-real-file-symlink-p file)))
 
 (defun ange-ftp-file-exists-p (name)