* net/tramp.el (tramp-handle-insert-directory): Handle also

symlinks, when FILENAME is not in `default-directory'.

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03617962164..f8edcd6f38e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,12 @@
+2010-01-29  Michael Albinus  <michael.albinus@gmx.de>
+
+        * net/tramp.el (tramp-handle-insert-directory): Handle also
+        symlinks, when FILENAME is not in `default-directory'.
+
 2010-01-28  Michael Albinus  <michael.albinus@gmx.de>
 
         * net/ange-ftp.el (ange-ftp-insert-directory): Handle the case,
-        FILENAME is not in `default-directory'.  (Bug#5478)
+        FILE is not in `default-directory'.  (Bug#5478)
 
         * net/tramp.el (tramp-handle-insert-directory): Simplify handling
         of SWITCHES.  Handle the case, FILENAME is not in
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 9e8522f3db0..28a30155a66 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -4147,6 +4147,8 @@ This is like `dired-recursive-delete-directory' for Tramp files."
         ;; The inserted file could be from somewhere else.
         (when (and (not wildcard) (not full-directory-p))
           (goto-char (point-max))
+          (when (file-symlink-p filename)
+            (goto-char (search-backward "->" beg 'noerror)))
           (search-backward
            (if (zerop (length (file-name-nondirectory filename)))
                "."