# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1128267500 0
# Node ID 2eea5cbe306f3f582ff39be66bd195dbe5c2a965
# Parent  342bbdcdefebce7f4b51afd718875b036560fc68
(ange-ftp-insert-directory): Undo unintended part in last change.

diff -r 342bbdcdefeb -r 2eea5cbe306f lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Oct 02 15:01:48 2005 +0000
+++ b/lisp/ChangeLog	Sun Oct 02 15:38:20 2005 +0000
@@ -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 -r 342bbdcdefeb -r 2eea5cbe306f lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Sun Oct 02 15:01:48 2005 +0000
+++ b/lisp/net/ange-ftp.el	Sun Oct 02 15:38:20 2005 +0000
@@ -4484,7 +4484,7 @@
     ;; 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