/[emacs]/emacs/lisp/net/ange-ftp.el
ViewVC logotype

Diff of /emacs/lisp/net/ange-ftp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49 by kai, Sun Apr 13 12:46:10 2003 UTC revision 1.50 by rms, Mon Jul 7 20:55:38 2003 UTC
# Line 3371  system TYPE.") Line 3371  system TYPE.")
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)

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26