(ange-ftp-insert-directory): Undo unintended part in last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d02505c39659f799cc9bdfffacd5743bbbc138aa..63b44276b16603e3f1b552c9cdfffc80ef0df939 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-10-02  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * net/ange-ftp.el (ange-ftp-insert-directory): Undo unintended part
+       in last change.
+
 2005-10-02  Romain Francoise  <romain@orebokech.com>
 
        * progmodes/compile.el (compile-goto-error): Delete extra paren.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 9d2bf43c930eafcc43c057a6e4b67310d7caa37c..8142e812b748bbeb3251c899e550eff6a4996420 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4484,7 +4484,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
     ;; Follow symlinks.
     (let (tem)
       (while (and (not wildcard)
-                  (stringp (setq tem (ange-ftp-get-file-entry
+                  (stringp (setq tem (file-symlink-p
                                       (directory-file-name file)))))
         (setq file
               (ange-ftp-expand-symlink