]> git.eshelyaron.com Git - emacs.git/commitdiff
* net/tramp.el (tramp-handle-insert-directory): Handle also
authorMichael Albinus <michael.albinus@gmx.de>
Fri, 29 Jan 2010 16:23:25 +0000 (17:23 +0100)
committerMichael Albinus <michael.albinus@gmx.de>
Fri, 29 Jan 2010 16:23:25 +0000 (17:23 +0100)
symlinks, when FILENAME is not in `default-directory'.

lisp/ChangeLog
lisp/net/tramp.el

index 03617962164efb5c9ef891eee014020323f5bb24..f8edcd6f38e8ed15a0d562d197efec4bbc41a1dc 100644 (file)
@@ -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
index 9e8522f3db063ad55fae06b90c80f043a1d213f6..28a30155a665969d598458b3080a200c5b60dbdc 100644 (file)
@@ -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)))
               "."