3371 |
;; redefines both file-symlink-p and expand-file-name. |
;; redefines both file-symlink-p and expand-file-name. |
3372 |
(setq file (ange-ftp-expand-file-name file)) |
(setq file (ange-ftp-expand-file-name file)) |
3373 |
(if (ange-ftp-ftp-name file) |
(if (ange-ftp-ftp-name file) |
3374 |
(let ((file-ent |
(condition-case nil |
3375 |
(gethash |
(let ((file-ent |
3376 |
(ange-ftp-get-file-part file) |
(gethash |
3377 |
(ange-ftp-get-files (file-name-directory file))))) |
(ange-ftp-get-file-part file) |
3378 |
(and (stringp file-ent) file-ent)) |
(ange-ftp-get-files (file-name-directory file))))) |
3379 |
|
(and (stringp file-ent) file-ent)) |
3380 |
|
;; If we can't read the parent directory, just assume |
3381 |
|
;; this file is not a symlink. |
3382 |
|
;; This makes it possible to access a directory that |
3383 |
|
;; whose parent is not readable. |
3384 |
|
(file-error nil)) |
3385 |
(ange-ftp-real-file-symlink-p file))) |
(ange-ftp-real-file-symlink-p file))) |
3386 |
|
|
3387 |
(defun ange-ftp-file-exists-p (name) |
(defun ange-ftp-file-exists-p (name) |