# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1009594234 0
# Node ID 47ec068f97d55920cc4983e034f6fe42aef2e4e8
# Parent  f8555eb1fe49d0b132a161a972bf5df3cbd4ed4e
(ange-ftp-insert-directory): Explicitly follow symlinks.

diff -r f8555eb1fe49 -r 47ec068f97d5 lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Sat Dec 29 01:13:26 2001 +0000
+++ b/lisp/net/ange-ftp.el	Sat Dec 29 02:50:34 2001 +0000
@@ -4380,13 +4380,19 @@
 
 (defun ange-ftp-insert-directory (file switches &optional wildcard full)
   (let ((short (ange-ftp-abbreviate-filename file))
-	(parsed (ange-ftp-ftp-name (expand-file-name file))))
+	(parsed (ange-ftp-ftp-name (expand-file-name file)))
+	tem)
     (if parsed
-	(insert
-	 (if wildcard
-	     (let ((default-directory (file-name-directory file)))
-	       (ange-ftp-ls (file-name-nondirectory file) switches nil nil t))
-	   (ange-ftp-ls file switches full)))
+	(if (and (not wildcard)
+		 (setq tem (file-symlink-p (directory-file-name file))))
+	    (ange-ftp-insert-directory
+	     (ange-ftp-replace-name-component file tem)
+	     switches wildcard full)
+	  (insert
+	   (if wildcard
+	       (let ((default-directory (file-name-directory file)))
+		 (ange-ftp-ls (file-name-nondirectory file) switches nil nil t))
+	     (ange-ftp-ls file switches full))))q
       (ange-ftp-real-insert-directory file switches wildcard full))))
 
 (defun ange-ftp-dired-uncache (dir)