[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el

[Richard M. Stallman]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.49 emacs/lisp/net/ange-ftp.el:1.50
*** emacs/lisp/net/ange-ftp.el:1.49     Sun Apr 13 08:46:10 2003
--- emacs/lisp/net/ange-ftp.el  Mon Jul  7 16:55:38 2003
***************
*** 3371,3381 ****
    ;; 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))
      (ange-ftp-real-file-symlink-p file)))
  
  (defun ange-ftp-file-exists-p (name)
--- 3371,3387 ----
    ;; redefines both file-symlink-p and expand-file-name.
    (setq file (ange-ftp-expand-file-name file))
    (if (ange-ftp-ftp-name file)
!       (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)