From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 2 Oct 2005 15:38:20 +0000 (+0000)
Subject: (ange-ftp-insert-directory): Undo unintended part in last change.
X-Git-Tag: emacs-pretest-22.0.90~6860
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=402893bb42d63da7d63b0ada348d7797baf96201;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d02505c3965..63b44276b16 100644
--- 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 9d2bf43c930..8142e812b74 100644
--- 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