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

[Stefan Monnier]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.73 emacs/lisp/net/ange-ftp.el:1.74
*** emacs/lisp/net/ange-ftp.el:1.73     Fri Sep 30 21:04:56 2005
--- emacs/lisp/net/ange-ftp.el  Sun Oct  2 15:38:19 2005
***************
*** 4484,4490 ****
      ;; Follow symlinks.
      (let (tem)
        (while (and (not wildcard)
!                   (stringp (setq tem (ange-ftp-get-file-entry
                                        (directory-file-name file)))))
          (setq file
                (ange-ftp-expand-symlink
--- 4484,4490 ----
      ;; Follow symlinks.
      (let (tem)
        (while (and (not wildcard)
!                   (stringp (setq tem (file-symlink-p
                                        (directory-file-name file)))))
          (setq file
                (ange-ftp-expand-symlink